2
Гений 1С
гуру
09.06.22
✎
15:59
|
(0) делюсь функцией, чем богат
&Вместо("ПолучитьСодержаниеТекстовыхФайловИзХранилища")
Функция ио_xml_ПолучитьСодержаниеТекстовыхФайловИзХранилища(ПомещенныеФайлы, Кодировка) Экспорт
//Осипов 2020-10-13 корректируем, удаляя недопустимые символы
//Убирает недопустимые символы из файла отчета оффлайн-кассы
РезультатЧтенияФайлов = ПродолжитьВызов(ПомещенныеФайлы, Кодировка);
Если РезультатЧтенияФайлов.СодержаниеФайлов = Неопределено Тогда
Возврат РезультатЧтенияФайлов;
КонецЕсли;
Для Каждого СодержаниеФайла ИЗ РезультатЧтенияФайлов.СодержаниеФайлов Цикл
Если ТипЗнч(СодержаниеФайла) = Тип("Структура") И СодержаниеФайла.Свойство("ТекстСодержания") Тогда
СодержаниеФайла.ТекстСодержания = ио_xml_УдалитьНедопустимыеСимволыXML(СодержаниеФайла.ТекстСодержания);
КонецЕсли;
КонецЦикла;
Возврат РезультатЧтенияФайлов;
КонецФункции
Функция ио_xml_УдалитьНедопустимыеСимволыXML(Стр)
//Осипов - функция по удалению недопустимых символов
Позиция = НайтиНедопустимыеСимволыXML(Стр, , );
Пока Позиция <> 0 Цикл
Стр = Лев(Стр, Позиция-1) + Сред(Стр, Позиция+1);
Позиция = НайтиНедопустимыеСимволыXML(Стр, , );
КонецЦикла;
Возврат Стр;
КонецФункции
|
|