Слова, буквы и цифры (артикулы из наименований)

Публикую алгоритм который из длинных наименований номенклатуры может оставить только слова, которые содержат английские буквы и цифры (одновременно)
При желании можно откорректировать алфавит (строка с русским алфавитом закомментирована)
Может применяться для поиска артикулов в длинных наименованиях номенклатуры при загрузке в 1С прайсов.


ПравильныеСимволы = "0123456789";
//ПравильныеСимволыБуквы = "QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnmЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю";
ПравильныеСимволыБуквы = "QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm";

МассивКлючевыхСлов = глРазложитьСтрокуВМассивПодстрок(Значение);
МассивКлючевыхСлов = ПеревестиВРег(МассивКлючевыхСлов);
КоличествоСлов = МассивКлючевыхСлов.Количество();

Значение = "";

КоличествоКлючевыхСлов = 0;
Для инд = 0 По КоличествоСлов - 1 Цикл
КоличествоКлючевыхСлов = КоличествоКлючевыхСлов + 1;

СтрКлючевоеСлово = СокрЛП(МассивКлючевыхСлов[инд]);

ЕстьБуква = 0;
ЕстьЦифра = 0;

Для Сч = 1 по СтрДлина(СтрКлючевоеСлово) Цикл
ТекСимв = Сред(СтрКлючевоеСлово, Сч, 1);

Если ЕстьЦифра = 0 Тогда
Если Найти(ПравильныеСимволы, ТекСимв) > 0 Тогда
ЕстьЦифра = 1; Иначе ЕстьЦифра = 0;
КонецЕсли;
КонецЕсли;

Если ЕстьБуква = 0 Тогда
Если Найти(ПравильныеСимволыБуквы, ТекСимв) > 0 Тогда
ЕстьБуква = 1; Иначе ЕстьБуква = 0;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Если ЕстьБуква = 0 ИЛИ ЕстьЦифра = 0 Тогда
Продолжить;
КонецЕсли;

Значение = Значение+" "+СтрКлючевоеСлово;

КонецЦикла;