Функция снятия экранирования XML со строки данных КИЗ
16.06.26
Разработка - Универсальные функции
Не нашел публикации на эту тему и решил восполнить этот пробел. Решалась задача определения проблемных УПД в части МТ до их подписания (в разных ЭДО). Попутно появилась проблема снятия экранирования с маркировок КИЗ в XML формате УПД. Т.к. решения, которым я мог бы воспользоваться, я не нашел, поэтому предлагаю свое.
Получаем из УПД вот такие строки:
<КИЗ>0104610080410581215DYLPImJq=>Vg</КИЗ>
<КИЗ>0104610080410581215E:BIFBXWcQ;<</КИЗ>
<КИЗ>0104610080410581215Eammcns:65sQ</КИЗ>
Нужно преобразовать в:
<КИЗ>0104610080410581215DYLPImJq=>Vg</КИЗ>
<КИЗ>0104610080410581215E:BIFBXWcQ;<</КИЗ>
<КИЗ>0104610080410581215Eammcns:65sQ</КИЗ>
Вот функция, выполняющая эту задачу:
Функция ПреобразоватьКИЗизXMLформата(КИЗ) Экспорт
Перем Рез;
Рез = КИЗ;
Чтение = Новый ЧтениеXML;
Чтение.УстановитьСтроку(КИЗ);
Стр = "";
ИмяУзла = "";
Пока Чтение.Прочитать() Цикл
ТипУзла = Чтение.ТипУзла;
Если ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
ИмяУзла = Чтение.Имя;
ИначеЕсли ТипУзла = ТипУзлаXML.Текст Тогда
Если ЗначениеЗаполнено(Чтение.Значение) Тогда
Стр = СокрЛП(Чтение.Значение);
Прервать;
КонецЕсли;
КонецЕсли
КонецЦикла;
Если ЗначениеЗаполнено(Стр) И ЗначениеЗаполнено(ИмяУзла) Тогда
Рез = "<"+ИмяУзла+">"+Стр+"</"+ИмяУзла+">";
КонецЕсли;
Возврат Рез;
КонецФункции
Тестирование выполнялось на 1С: Бухгалтерия 3.0 (3.0.195.40), платформа 1С:Предприятие 8.3 (8.3.27.1859).
Вступайте в нашу телеграмм-группу Инфостарт
Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
