Поиск русских букв в артикуле номенклатуры

[happynattion]

Возможно ли как то осуществить поиск русских букв в артикуле номенклатуры? Номенклатуру забивают из файла excel копируют артикула не обращая внимание на наличие русских букв. Конфигурция УПП 1.3

[oleg-x]

Возможно ли как то осуществить поиск русских букв в артикуле номенклатуры? Номенклатуру забивают из файла excel копируют артикула не обращая внимание на наличие русских букв. Конфигурция УПП 1.3

На ум приходит поиск перебором русских букв.
Найти(Наименование,"а")
Можно через код символа, тогда получится сделать в цикле.

[happynattion]

Можно через код символа, тогда получится сделать в цикле.

Это как через код символа?

[Z.spb]

Можно через код символа, тогда получится сделать в цикле.

Это как через код символа?

У каждой буквы, цифры или символа есть код. Получить этот код можно функцией "КодСимвола".
Например

Код Выделить Развернуть

Сообщить(КодСимвола("а"));
Сообщить(КодСимвола("я"));
Сообщить(КодСимвола("ё"));

Буквы с "а" до "я" идут подряд, буква "ё" имеет отдельный номер.

Самый простой пример перебором побуквенно

Код Выделить Развернуть


Артикул  = "QwertyфZXCV";
нАртикул = Нрег(Артикул);
ЕстьРусскиеБуквы = Ложь;
Для сч=1 По СтрДлина(нАртикул) Цикл
Если (КодСимвола(нАртикул,сч) > 1071 И КодСимвола(нАртикул,сч) < 1104)
ИЛИ КодСимвола(нАртикул,сч) = 1105 Тогда
ЕстьРусскиеБуквы = Истина;
Прервать;
КонецЕсли;
КонецЦикла;


А ещё можно вот так

Код Выделить Развернуть

Артикул  = "QwertyфZXCV";
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.IgnoreCase = Истина;
RegExp.Global = Истина;
RegExp.MultiLine = Ложь;
RegExp.Pattern = "[а-яё]";
ЕстьРусскиеБуквы = RegExp.Test(Артикул);
RegExp = Неопределено;
Сообщить(ЕстьРусскиеБуквы);


А если номенклатуры много и вся она загружается из Excel, допустим в таблицу значений, то можно эту таблицу запихнуть в запрос 1С, и запросом установить условие ПОДОБНО "%[а-яё]%".

Разные варианты есть.

[oleg-x]

Можно через код символа, тогда получится сделать в цикле.

Это как через код символа?

Вот две строки:

Код Выделить Развернуть

КодСимвола(Строка,2); //Возвращает код второго символа
Символ(0430); //Возвращает символ (а), согласно кодировке
//Коды согласно Unicode. остается определится какие коды и как организовать цикл.