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