|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
// Функция проверяет наличие в строке только цифр // // Параметры // СтрокаПроверки - Строка для проверки только цифр // // Возвращаемое значение: // Булево // Функция ЕстьНеЦифры(Знач СтрокаПроверки) Экспорт СписокКодовЧисел = Новый СписокЗначений; Для а = 48 По 57 Цикл СписокКодовЧисел.Добавить(а); КонецЦикла; СтрокаПроверки = СокрЛП(СтрокаПроверки); Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда Возврат Истина; Иначе Для а = 1 По СтрДлина(СтрокаПроверки) Цикл Если СписокКодовЧисел.НайтиПоЗначению(КодСимвола(Сред(СтрокаПроверки, а, 1))) = Неопределено Тогда Возврат Истина; КонецЕсли; КонецЦикла; КонецЕсли; Возврат Ложь; КонецФункции |
About the Author
