Функція 1с яка шукає Кирилицю в рядку. За бажанням символи в рядку можна замінити на будь-які інші (наприклад для перевірки цифр у рядку).
Функция ПеревіркаСтрокиНаКирилицю(СтрТекст)
СтрТекстДок = СокрЛП(СтрТекст);
СтрТекстДок = Нрег(СтрТекстДок);
ДлинаСтрокиНомера = СтрДлина(СтрТекстДок);
СимволыКирилицы = "абвгґдежзиіїйклмнопрстуфхцчшщьэюя";
Найденные_Символы = "";
Если ДлинаСтрокиНомера > 0 Тогда
Для СК = 1 По ДлинаСтрокиНомера Цикл
ТекСимвол = Сред(СтрТекстДок,СК,1);
Если СтрЧислоВхождений(СимволыКирилицы,ТекСимвол) > 0 Тогда
Найденные_Символы = Найденные_Символы + ТекСимвол;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если Найденные_Символы <> "" Тогда
Возврат Найденные_Символы;
КонецЕсли;
Возврат Неопределено;
КонецФункции
2024-05-24
