Удалить из строки лишние символы в 1С
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Функция УбираемЛишнееИзСтроки(НашаСтрокаДляРазбора) Экспорт Строк = ""; НужныеСимволы = "QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnmЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю"; Для Сч = 1 по СтрДлина(НашаСтрокаДляРазбора) Цикл ТекущСимв = Сред(НашаСтрокаДляРазбора, Сч, 1); Если Найти(НужныеСимволы, ТекущСимв) > 0 Тогда Строк = Строк + ТекущСимв; КонецЕсли; КонецЦикла; Возврат Строк; КонецФункции |