Проверка на наличие только русских букв в тексте (строке) в 1С. Допускаются пробелы, дефис и спецсимволы.
Возвращаемое значение:
Истина — Строка содержит допустимые символы.
Ложь — Встречаются недопустимые символы.
|
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 |
Функция НаписаниеСтрокиРусскимиБуквами(Знач СтрокаДляРазбора) Экспорт СтрокаДляРазбора = СокрЛП(СтрокаДляРазбора); ДопустимыеЗначения = Новый СписокЗначений; ДопустимыеЗначения.Добавить(184); ДопустимыеЗначения.Добавить(168); ДопустимыеЗначения.Добавить(45); ДопустимыеЗначения.Добавить(46); ДопустимыеЗначения.Добавить(32); ДопустимыеЗначения.Добавить(48); ДопустимыеЗначения.Добавить(49); ДопустимыеЗначения.Добавить(50); ДопустимыеЗначения.Добавить(51); ДопустимыеЗначения.Добавить(52); ДопустимыеЗначения.Добавить(53); ДопустимыеЗначения.Добавить(54); ДопустимыеЗначения.Добавить(55); ДопустимыеЗначения.Добавить(56); ДопустимыеЗначения.Добавить(57); Для Сч=1 По СтрДлина(СтрокаДляРазбора) Цикл Код = КодСимвола(СтрокаДляРазбора,Сч); Если (Код<192) И (ДопустимыеЗначения.НайтиПоЗначению(Код) = Неопределено) Тогда Возврат Ложь; КонецЕсли; КонецЦикла; Возврат Истина; КонецФункции |