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