// Функция проверяет наличие в строке только цифр // // Параметры // СтрокаПроверки - Строка для проверки только цифр // // Возвращаемое значение: // Булево // Функция ЕстьНеЦифры(Знач СтрокаПроверки) Экспорт СписокКодовЧисел = Новый СписокЗначений; Для а = 48 По 57 Цикл СписокКодовЧисел.Добавить(а); КонецЦикла; СтрокаПроверки = СокрЛП(СтрокаПроверки); Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда Возврат Истина; Иначе Для а = 1 По СтрДлина(СтрокаПроверки) Цикл Если СписокКодовЧисел.НайтиПоЗначению(КодСимвола(Сред(СтрокаПроверки, а, 1))) = Неопределено Тогда Возврат Истина; КонецЕсли; КонецЦикла; КонецЕсли; Возврат Ложь; КонецФункции
