|
1
IronDemon
11.08.07
✎
15:13
|
И в 8.0 была
Процедура ВыполнитьПроверкуНеДопустимыхСимволовВСтроке(Стр)
Если ПустаяСтрока(Стр) Тогда
Возврат;
КонецЕсли;
ПозицияНедопустимогоСимвола = НайтиНедопустимыеСимволыXML(Стр);
Если ПозицияНедопустимогоСимвола > 0 Тогда
//СтруктураОшибки = Новый Структура("ОписаниеОшибки,Объект");
//СтруктураОшибки.ОписаниеОшибки = "Найдены недопустимые символы";
//ЗаписатьВПротоколВыполнения("", СтруктураОшибки);
НоваяСтрока = "";
Пока ПозицияНедопустимогоСимвола > 0 Цикл
НоваяСтрока = НоваяСтрока + Лев(Стр, ПозицияНедопустимогоСимвола - 1);
Стр = Сред(Стр, ПозицияНедопустимогоСимвола + 1);
ПозицияНедопустимогоСимвола = НайтиНедопустимыеСимволыXML(Стр);
КонецЦикла;
Стр = НоваяСтрока + Стр;
КонецЕсли;
КонецПроцедуры
|
|