1С 8.3 Получить количество символов латиницы в строке
Данные > Примеры кода 1С > 1С 8.3 Строка, текст, буквы
Перейти в раздел примеры кода 1С 8.3:
Количество символов латиницы в искомой строке в 1С 8.3:
Функция Получение_Количества_Символов_Латиницы(Знач СтрокаЛатиница) Экспорт
Найденные_Символы_Латиницы = Новый Массив;
СтрокаЛатиница = СокрЛП(СтрокаЛатиница);
СтрокаЛатиница = Нрег(СтрокаЛатиница);
ДлинаСтрокиЛатиницы = СтрДлина(СтрокаЛатиница);
Если ДлинаСтрокиЛатиницы > 0 Тогда
СимволыЛатиницы= "abcdefghijklmnopqrstuvxyz";
Для СЛ = 1 по ДлинаСтрокиЛатиницы Цикл
ТекСимвол = Сред(СтрокаЛатиница,СЛ,1);
Если Найденные_Символы_Латиницы.Найти(ТекСимвол) = Неопределено
и СтрНайти("abcdefghijklmnopqrstuvxyz",ТекСимвол) > 0 Тогда
Найденные_Символы_Латиницы.Добавить(ТекСимвол);
КонецЕсли;
КонецЦикла;
КонецЕсли;
//Возвращает количество найденных различных символов латиницы в строке 1С 8.3
Возврат Найденные_Символы_Латиницы.Количество();
КонецФункции
Найденные_Символы_Латиницы = Новый Массив;
СтрокаЛатиница = СокрЛП(СтрокаЛатиница);
СтрокаЛатиница = Нрег(СтрокаЛатиница);
ДлинаСтрокиЛатиницы = СтрДлина(СтрокаЛатиница);
Если ДлинаСтрокиЛатиницы > 0 Тогда
СимволыЛатиницы= "abcdefghijklmnopqrstuvxyz";
Для СЛ = 1 по ДлинаСтрокиЛатиницы Цикл
ТекСимвол = Сред(СтрокаЛатиница,СЛ,1);
Если Найденные_Символы_Латиницы.Найти(ТекСимвол) = Неопределено
и СтрНайти("abcdefghijklmnopqrstuvxyz",ТекСимвол) > 0 Тогда
Найденные_Символы_Латиницы.Добавить(ТекСимвол);
КонецЕсли;
КонецЦикла;
КонецЕсли;
//Возвращает количество найденных различных символов латиницы в строке 1С 8.3
Возврат Найденные_Символы_Латиницы.Количество();
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник