Удобный способ чтения XML

27.08.21

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

Чтение XML

Пишу как заметку, чтобы самому не потерять , может и другим пригодится.

Есть много разных способов работы с XML файлом, например через последовательных обход или через построение DOM.

Легко гулятся вот такие снипеты про это : https://helpme1c.ru/chtenie-i-zapis-xml-v-yazyke-1s-8-3-8-2-v-primerax

 

Лично мне оба способа доступа к XML не нравятся. Вот решил поделится тем подходом который на мой вкус красивый.

Суть метода в конвертации XML в Соответствие (Функция ПрочитатьXMLВСоответствие) + Хэлпер для удобного чтения из соответствия (Функция ПрочитатьРеквизитСоотвествия).

Листинг :

Функция ПрочитатьXMLВСоответствие(XML, ТипПоследнегоЭлемента = Неопределено)    
    
    Ветка = Новый Соответствие;
    Значение = "";
    
    Пока XML.Прочитать() Цикл
        ТипУзла = XML.ТипУзла;
        Если ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
            ТипПоследнегоЭлемента = ТипУзлаXML.НачалоЭлемента; 
            Временно = Ветка.Получить(XML.Имя);
            Если Временно = Неопределено Тогда
                Ветка.Вставить(XML.Имя, ПрочитатьXMLВСоответствие(XML, ТипПоследнегоЭлемента));
            Иначе
                Если ТипЗнч(Временно) <> Тип("Массив") Тогда
                    Временно=ПреобразоватьВМассив(Временно);
                    Ветка.Вставить(XML.Имя, Временно);
                КонецЕсли;
                Временно.Добавить(ПрочитатьXMLВСоответствие(XML, ТипПоследнегоЭлемента));
            КонецЕсли;
        ИначеЕсли ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
            ТипПоследнегоЭлемента = ТипУзлаXML.КонецЭлемента;
            Возврат ?(ЗначениеЗаполнено(Ветка), Ветка, Значение);
        ИначеЕсли ТипУзла = ТипУзлаXML.Текст И Не ТипПоследнегоЭлемента = ТипУзлаXML.Текст Тогда
            ТипПоследнегоЭлемента = ТипУзлаXML.Текст;
            Значение = Значение + XML.Значение;
            XML.Прочитать();
            Возврат Значение;
        КонецЕсли
    КонецЦикла;
    
    Возврат Ветка;
КонецФункции


Функция ПрочитатьРеквизитСоотвествия(Соответствие,Путь,ЗначениеОшибки=Неопределено) Экспорт
    
    МассивРеквизитов = СтрРазделить(Путь,".");
    
    Счетчик = 0;
    Пока Счетчик<МассивРеквизитов.Количество() Цикл
        Элемент = МассивРеквизитов[Счетчик]; 
        Если Лев(Элемент,1)="(" и Прав(Элемент,1)<>")" Тогда
            Счетчик2=Счетчик+1;
            Пока Счетчик2<МассивРеквизитов.Количество() и Прав(МассивРеквизитов[Счетчик],1)<>")" Цикл
                МассивРеквизитов[Счетчик]=МассивРеквизитов[Счетчик]+"."+МассивРеквизитов[Счетчик2];
                МассивРеквизитов.Удалить(Счетчик2);
            КонецЦикла;    
        КонецЕсли;
        Элемент = МассивРеквизитов[Счетчик]; 
        Если  Лев(Элемент,1)="(" и Прав(Элемент,1)=")" Тогда
            МассивРеквизитов[Счетчик]=Сред(Элемент,2,СтрДлина(Элемент)-2);
        КонецЕсли;        
        Счетчик=Счетчик+1;
    КонецЦикла;    
    
    Результат=Соответствие;
    Для каждого Реквизит из МассивРеквизитов Цикл
        Индекс=Неопределено;
        лФигурнаяСкобкаНачало=СтрНайти(Реквизит,"[");
        лФигурнаяСкобкаКонец=СтрНайти(Реквизит,"]");
        Если ЗначениеЗаполнено(лФигурнаяСкобкаНачало) и ЗначениеЗаполнено(лФигурнаяСкобкаКонец) Тогда
            Попытка
                Индекс=Число(Сред(Реквизит,лФигурнаяСкобкаНачало+1,лФигурнаяСкобкаКонец-лФигурнаяСкобкаНачало-1));
                Реквизит=СтрЗаменить(Реквизит,СтрШаблон("[%1]",Формат(Индекс,"ЧН=0; ЧГ=")),"");
            Исключение
            КонецПопытки;
        КонецЕсли;    
        
        Если ТипЗнч(Результат)=Тип("Соответствие") Тогда
            Результат=Результат.Получить(Реквизит);
        Иначе
            Результат=ЗначениеОшибки;
            Прервать;
        КонецЕсли;
        
        Если ТипЗнч(Результат)=Тип("Массив") и Индекс<>Неопределено и Результат.Количество()>Индекс Тогда
            Результат=Результат[Индекс];
        КонецЕсли;
    КонецЦикла;    
    
    Если Результат=Неопределено Тогда
        Результат=ЗначениеОшибки;
    КонецЕсли;    
    
    Возврат Результат;
    
КонецФункции    



Функция ПреобразоватьВМассив(Значение)
    Если ТипЗнч(Значение)<>Тип("Массив") Тогда
        ВременныйМассив=Новый Массив;
        ВременныйМассив.Добавить(Значение);
        Возврат ВременныйМассив
    Иначе
        Возврат Значение
    КонецЕсли;    
КонецФункции

Пример использования :

//АдресФайла - Адрес хранилища на сервере куда помещен файл, можно переписать на получение по пути из ФС

Файл = ПолучитьИзВременногоХранилища(АдресФайла);
Поток = Файл.ОткрытьПотокДляЧтения(); 
	
Чтение = Новый ЧтениеXML();
Чтение.ОткрытьПоток(Поток);
	
//Чтение XML в соответствие
РезультатЧтения = ПрочитатьXMLВСоответствие(Чтение);
	
//Примеры произвольного доступа
ПримерДоступаСФигурнымиСкобками = ПрочитатьРеквизитСоотвествия(РезультатЧтения,"Message.Body.(Документ.РеализацияТоваровУслуг)");
ПримерДоступаПоИндексу = ПрочитатьРеквизитСоотвествия(РезультатЧтения,"Message.Body.(Документ.РеализацияТоваровУслуг[0]).КлючевыеСвойства.Дата");
//итд

Чтение.Закрыть();
Поток.Закрыть();

2й параметр у ПрочитатьРеквизитСоотвествия это строка отражающая полный путь до целевого реквизита соответствия

Скобки "()" используются для придания атомарности конструкции внутри скобки. Т.е в примере соответствие ключ будет прямо так и назван "Документ.РеализацияТоваровУслуг"

Скобки "[]" используются для доступа к массиву по индексу.

XML ЧтениеXML

См. также

SALE! 15%

[ED3] Обмен для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ и других с EnterpriseData (универсальный формат обмена), правила обмена

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

25080 22572 руб.

12.06.2017    134981    721    291    

388

SALE! 20%

Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0. Переносятся документы, начальные остатки и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | В продаже с 2019г. | Воспользовались более 176 предприятий! | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой, обращайтесь!

34650 27720 руб.

15.04.2019    68449    180    138    

111

SALE! 20%

Перенос данных из ERP 2 / КА 2 в ЗУП 3. Переносятся остатки, документы и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из ERP в ЗУП 3 | из КА 2 в ЗУП | Воспользовались более 79 предприятий! | Предлагаем приобрести готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | В продаже с 2020г. | Оперативно обновляем правила до актуальных релизов 1С | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

43450 34760 руб.

03.12.2020    34182    80    58    

78

SALE! 10%

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.87.x) и УТ 11.5 (11.5.16.x).

28000 25200 руб.

23.07.2020    46322    196    64    

158

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9217    9    8    

10

SALE! 10%

Перенос данных из УПП 1.3 в БП 3.0. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.223.x) и БП 3.0 (3.0.149.x). Правила подходят для версии ПРОФ и КОРП.

28000 25200 руб.

15.12.2021    20266    132    38    

90

SALE! 10%

Перенос данных из БП 3.0 в УНФ 3.0 / УНФ 1.6. Переносятся остатки, документы и справочная информация

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

В продаже с 2018г. | Воспользовались более 41 предприятия! | Правила конвертации (КД 2) для переноса данных из БП 3 в УНФ | Переносятся все виды документов, начальные остатки и вся возможная справочная информация | Есть фильтр по организациям | Оперативно обновляем на новые релизы | Оказываем техподдержку | В комплект файлов входит инструкция, авторская версия обработки "Универсальный обмен...", актуальные правила переноса данных и архив старых версий переноса | Учет в БП 3 должен быть корректным, некорректные данные не переносятся | Можно бесплатно проверить на вашем сервере до покупки!

50722 45650 руб.

10.07.2018    67460    41    122    

46

Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 11.12.2023, версия 9.5 - 9.9)

13200 руб.

20.11.2015    150758    365    375    

501
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. capitan 2466 27.08.21 11:36 Сейчас в теме
Если вы на сервере, то почему не работать с XML файлом как с объектом ?
2. Malfarion 251 27.08.21 14:18 Сейчас в теме
(1) К сожалению ваш вопрос не понял. Если вы его попробуете развернуть , возможно я смогу вам ответить =)
6. capitan 2466 27.08.21 15:19 Сейчас в теме
(2)ОбъектXDTO будет с теми же реквизитами
Его можно в 2 строки создать из файла xml
7. Malfarion 251 27.08.21 16:11 Сейчас в теме
(6) Ваша правда, думаю что ОбъектXDTO вместо соответствия тоже подойдет, переписать хэлпер на чтение из ОбъектаXDTO.
Единственный минус который я вижу объекта XDTO что это аналог структуры и ключи там имеют строгие ограничения на названия. Все недопустимые символы заменяются что иногда может быть менее интуитивно.
8. capitan 2466 27.08.21 16:44 Сейчас в теме
(7)Большой плюс, что 1С за вас проверит корректность документа и если нужно соответствие схеме
Это же ответ на ваш единственный минус
Климов Сергей; +1 Ответить
9. Malfarion 251 27.08.21 16:51 Сейчас в теме
(8) Я тут плюсов не вижу, но вам спасибо за дельные замечания.
3. brr 182 27.08.21 14:42 Сейчас в теме
А почему в соответствие, дерево значений ведь удобнее? А что будете делать с повторяющимися элементами?
5. Malfarion 251 27.08.21 15:11 Сейчас в теме
(3) Вот построили вы дерево значений, как вы получите доступ к произвольной строке чтобы считать что-то. Будет то еще удовольствие и спагети кода из Строки.НайтиСтроки() итд.
4. Malfarion 251 27.08.21 15:09 Сейчас в теме
Все повторяющие элементы идут под общим ключом как массив. Я думаю достаточно взять любой XML файл и глянуть что получается =)
10. dhurricane 28.08.21 15:40 Сейчас в теме
Ветка.Удалить(XML.Имя);
Ветка.Вставить(XML.Имя, Временно);
Удаление здесь излишне.
11. Malfarion 251 28.08.21 18:48 Сейчас в теме
12. FractonKireyev 17.10.21 19:32 Сейчас в теме
Структура XML такая:

<Имя1 ...> ... </Имя1>
<Имя2 ...> ... </Имя2>
<Имя1 ...> ... </Имя1>
<Имя2 ...> ... </Имя2>
<Имя2 ...> ... </Имя2>

При этом нет прямого указания на количество строк <Имя2 ...> после <Имя1 ...> - сколько получилось, столько и получилось, но это важно для разбора и загрузки данных (например это количество строк в разделе). При этом <Имя2 ...> не подчинено <Имя1 ...>, но важен порядок следования.

Всё. Ваш алгоритм не справился.

А как быть с чтением атрибутов?
Оставьте свое сообщение