// Функция проверяет наличие в строке только цифр

//

// Параметры

//  СтрокаПроверки - Строка для проверки только цифр

//

// Возвращаемое значение:

//   Булево

//

Функция ЕстьНеЦифры(Знач СтрокаПроверки) Экспорт





	Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда

		Возврат Истина;

	КонецЕсли;

	

	СтрокаПроверки = СокрЛП(СтрокаПроверки);

	Длина = СтрДлина(СтрокаПроверки);

	

	Для а = 1 По Длина Цикл

		Если Найти("0123456789", Сред(СтрокаПроверки, а, 1)) = 0 Тогда

			Возврат Истина;

		КонецЕсли; 

	КонецЦикла;

	

	Возврат Ложь;

	

КонецФункции   

 

// Параметры

//  СтрокаПроверки - Строка для проверки только цифр

//

// Возвращаемое значение:

//   Булево

//

Функция ТолькоЦифрыВСтроке(Знач СтрокаПроверки, УчитыватьЛидирующиеНули = Истина, УчитыватьПробелы = Истина) Экспорт

	

	Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда

		Возврат Ложь;

	КонецЕсли;

	

	Если НЕ ЗначениеЗаполнено(СтрокаПроверки) Тогда

		Возврат Истина;

	КонецЕсли; 

	

	Если НЕ УчитыватьПробелы Тогда

		СтрокаПроверки = СтрЗаменить(СтрокаПроверки, " ", "");

	КонецЕсли;

	

	Если НЕ УчитыватьЛидирующиеНули Тогда

		НомерПервойЦифры = 0;

		Для а = 1 По СтрДлина(СтрокаПроверки) Цикл

			НомерПервойЦифры = НомерПервойЦифры + 1;

			КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));

			Если КодСимвола <> 48 Тогда

				Прервать;

			КонецЕсли;

		КонецЦикла;

		СтрокаПроверки = Сред(СтрокаПроверки, НомерПервойЦифры);

	КонецЕсли;

	

	Для а = 1 По СтрДлина(СтрокаПроверки) Цикл

		КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));

		Если НЕ (КодСимвола >= 48 И КодСимвола <= 57) Тогда

			Возврат Ложь;

		КонецЕсли; 

	КонецЦикла; 



	Возврат Истина;

	

КонецФункции

   

 

// Функция проверяет наличие в строке только цифр

//

// Параметры

//  СтрокаПроверки - Строка для проверки только цифр

//

// Возвращаемое значение:

//   Булево

//

Функция ЕстьНеЦифры(Знач СтрокаПроверки) Экспорт

	

	СписокКодовЧисел = Новый СписокЗначений;

	Для а = 48 По 57 Цикл

		СписокКодовЧисел.Добавить(а);

	КонецЦикла; 

	

	СтрокаПроверки = СокрЛП(СтрокаПроверки);

	

	Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда

		

		Возврат Истина;

		

	Иначе

		

		Для а = 1 По СтрДлина(СтрокаПроверки) Цикл

			Если СписокКодовЧисел.НайтиПоЗначению(КодСимвола(Сред(СтрокаПроверки, а, 1))) = Неопределено Тогда

				Возврат Истина;

			КонецЕсли; 

		КонецЦикла; 

		

	КонецЕсли; 

	

	Возврат Ложь; 	

КонецФункции   

   

 

// Функция проверяет наличие в строке только цифр

//

// Параметры

//  СтрокаПроверки - Строка для проверки только цифр

//

// Возвращаемое значение:

//   Булево

//

Функция ЕстьНеЦифры(Знач СтрокаПроверки) Экспорт

	

	СписокКодовЧисел = Новый СписокЗначений;

	Для а = 48 По 57 Цикл

		СписокКодовЧисел.Добавить(а);

	КонецЦикла; 

	

	СтрокаПроверки = СокрЛП(СтрокаПроверки);

	

	Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда

		

		Возврат Истина;

		

	Иначе

		

		Для а = 1 По СтрДлина(СтрокаПроверки) Цикл

			Если СписокКодовЧисел.НайтиПоЗначению(КодСимвола(Сред(СтрокаПроверки, а, 1))) = Неопределено Тогда

				Возврат Истина;

			КонецЕсли; 

		КонецЦикла; 

		

	КонецЕсли; 

	

	Возврат Ложь;

	

КонецФункции