Проверяем строку на присутствие только чисел в 1С
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Функция ПроверкаНаНаличиеЦифр(Знач НашаСтрокаДляРазбора) Экспорт КодыЦифр = Новый СписокЗначений; Для а = 48 По 57 Цикл КодыЦифр.Добавить(а); КонецЦикла; НашаСтрокаДляРазбора = СокрЛП(НашаСтрокаДляРазбора); Если ТипЗнч(НашаСтрокаДляРазбора) <> Тип("Строка") Тогда Возврат Истина; Иначе Для а = 1 По СтрДлина(НашаСтрокаДляРазбора) Цикл Если КодыЦифр.НайтиПоЗначению(КодСимвола(Сред(НашаСтрокаДляРазбора, а, 1))) = Неопределено Тогда Возврат Истина; КонецЕсли; КонецЦикла; КонецЕсли; Возврат Ложь; КонецФункции |