Парсинг в XML

Парсинг в XML, Формирование XML документа по средствам EXCEL(vba) , по заданному шаблону XML

Пользователь

Сообщений: 17 Регистрация: 21.08.2015

24.08.2015 12:42:10

Доброго времени суток.
Подскажите как лучше осуществить задачу:
- есть данные в excel в том числе и таблицы
- есть XML документ который нужно заполнить данными из excel ( или создать идентичный уже заполненный)
Как это лучше сделать? Форма XML достаточно сложная имеются пустые теги ( пытался создать с помощью инструмента " источник " не получилось из-за наличия пустых тегов.
Похожего вопроса на форуме не нашел. Возможно это вообще не сюда.

PS может кто знает как задать пустой тег? (при экспортировании в xml через источник не получилось)

Изменено: PyaterikovDA - 24.08.2015 13:15:09

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#2 24.08.2015 13:37:42 PyaterikovDA, здравия. Прочтите правила и помогите помочь Вам. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

PyaterikovDA

Пользователь

Сообщений: 17 Регистрация: 21.08.2015

24.08.2015 16:40:57

Спасибо за интерес!
Прилагаю документы соответственно то что нужно перевести и форма по которой нужно перевести и схема.

С уважением.... Мне-бы понять как это делать в какую сторону копать.

Прикрепленные файлы

excel.xlsx (11.64 КБ)
struct.txt (3.13 КБ)
схема.txt (4.43 КБ)

Изменено: PyaterikovDA - 24.08.2015 16:55:29

Doober

Пользователь

Сообщений: 2377 Регистрация: 09.04.2013

24.08.2015 21:17:22

Пример кода для формирования XML.
Часть схемы реализовал,по аналогии пишите под себя.
elementBlank для удобочитаемости xml.

Скрытый текст

Код

Sub ExtportToXML()
    Dim strFilePath As String,objDoc, objNode
    strFilePath = "C:\Пример.xml"

    Set objDoc = CreateObject("MSXML2.DOMDocument")
    objDoc.resolveExternals = True
    Set objNode = objDoc.createProcessingInstruction( _
                  "xml", "version='1.0' standalone='yes'")
    Set objNode = objDoc.InsertBefore(objNode, _
                                      objDoc.ChildNodes.Item(0))

    Set СообщПриобрНФО = objDoc.createElement("СообщПриобрНФО")
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "  "
    СообщПриобрНФО.appendChild BlankNode

    Set СлужЧасть = objDoc.createElement("СлужЧасть")
    Set ИнформЧасть = objDoc.createElement("ИнформЧасть")
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "  "
    ИнформЧасть.appendChild BlankNode

    Set objDoc.DocumentElement = СообщПриобрНФО

    СообщПриобрНФО.appendChild СлужЧасть
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "   "
    СообщПриобрНФО.appendChild BlankNode
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "   "
    СлужЧасть.appendChild BlankNode

    СообщПриобрНФО.appendChild ИнформЧасть
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    СообщПриобрНФО.appendChild BlankNode
    Set objNode = objDoc.createElement("ВерсФорм")
    objNode.Text = 11
    СлужЧасть.appendChild objNode
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    СлужЧасть.appendChild BlankNode
    Set objNode = objDoc.createElement("ВерсПрог")
    objNode.Text = "01"
    СлужЧасть.appendChild objNode
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    СлужЧасть.appendChild BlankNode
    Set ФИОУполнСотрудн = objDoc.createElement("ФИОУполнСотрудн")
    СлужЧасть.appendChild ФИОУполнСотрудн
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    СлужЧасть.appendChild BlankNode
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    ФИОУполнСотрудн.appendChild BlankNode
    Set objNode = objDoc.createElement("Фам")
    objNode.Text = "Иванова"
    ФИОУполнСотрудн.appendChild objNode
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    ФИОУполнСотрудн.appendChild BlankNode
    Set objNode = objDoc.createElement("Фам")
    objNode.Text = "Елена"
    ФИОУполнСотрудн.appendChild objNode
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    ФИОУполнСотрудн.appendChild BlankNode
    Set objNode = objDoc.createElement("Отч")
    objNode.Text = "Ивановна"
    ФИОУполнСотрудн.appendChild objNode
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    ФИОУполнСотрудн.appendChild BlankNode

    Set objNode = objDoc.createElement("СведНФО")
    objNode.Text = "СведНФО"
    ИнформЧасть.appendChild objNode
    Set BlankNode = objDoc.createTextNode("elementBlank")
    BlankNode.Text = vbNewLine & "        "
    ИнформЧасть.appendChild BlankNode

    objDoc.Save strFilePath
End Sub

Startprog

Пользователь

Сообщений: 17 Регистрация: 21.08.2015

25.08.2015 09:41:51

Спасибо большое!
Но это не совсем-то, так можно создать структуру xml но как ее заполнять не в ручную.
Возможно - ли как то привязать теги к ячейкам памяти( что-бы данные автоматически заносились с листа в структуру xml) например при нажатии кнопки.

Изменено: Startprog - 25.08.2015 09:59:32

AlexTM

Пользователь

Сообщений: 438 Регистрация: 29.05.2015

Win7SP1 EXL2010 / Win8.1 EXL2016 (VM)

25.08.2015 09:55:09

Startprog,это что-то вроде задачи для анализа хтмл кода вэб-страниц. Недавно я поступал так: сначала парсил код на страницу экселя (все теги переносятся без изменений, пустые тоже), а там уже вносил нужные мне изменения или анализировал содержимое. В Вашем случае после внесения можно наладить экспорт в txt всех строк измененного листа.
Как вариант.

Но муторный... Если структура не меняется, конечно же.

Изменено: AlexTM - 25.08.2015 09:56:26

Startprog

Пользователь

Сообщений: 17 Регистрация: 21.08.2015

25.08.2015 10:03:34

AlexTM, Если я вас правильно понял.... я так делал но столкнулся с проблемой нулевого тега, это когда тек стоит как закрытый(<inf/>), а парсится как пустой(<inf></inf>. Приходилось изменять руками что не удобно, особенно если этот тег в цикле, а если работает бухгалтер .....

Изменено: Startprog - 25.08.2015 10:06:43

AlexTM Пользователь Сообщений: 438 Регистрация: 29.05.2015 Win7SP1 EXL2010 / Win8.1 EXL2016 (VM)	#8 25.08.2015 10:17:14 Startprog,это проблематично, если меняется число строк кода, структура... А если нет, то один раз подготовленный шаблон не решит ли проблему?

Startprog

Пользователь

Сообщений: 17 Регистрация: 21.08.2015

25.08.2015 10:28:09

AlexTM, думаю решит) но такие мелочи часто всплывают... например если число нужно указывать в формате с двумя знаками после запятой( в экселе при установке формата числовой с двумя знаками, само значение в ячейке не меняется, меняется только отображение в таблице следовательно исправлять все числа в XML, ну а если их много...)
Хочется сделать все четко! Кнопку нажал, результат получил.

Startprog Пользователь Сообщений: 17 Регистрация: 21.08.2015	#10 25.08.2015 12:43:00 Doober, поясните пожалуйста поподробней про elementBlank не понимаю зачем он нужен и его функцию PS получилось загружать значения из яп осталось с таблицей разобраться!))

Doober

Пользователь

Сообщений: 2377 Регистрация: 09.04.2013

#11

25.08.2015 13:58:38

С нодом elementBlank

Код

<СообщПриобрНФО>
  <СлужЧасть>
     <ВерсФорм>11</ВерсФорм>
        <ВерсПрог>01</ВерсПрог>
        <ФИОУполнСотрудн>
        <Фам>Иванова</Фам>
        <Фам>Елена</Фам>
        <Отч>Ивановна</Отч>
        </ФИОУполнСотрудн>
        </СлужЧасть>
   <ИнформЧасть>
  <СведНФО>СведНФО</СведНФО>
        </ИнформЧасть>
</СообщПриобрНФО>

Без

Код

<СообщПриобрНФО><СлужЧасть><ВерсФорм>11</ВерсФорм><ВерсПрог>01</ВерсПрог><ФИОУполнСотрудн><Фам>Иванова</Фам><Фам>Елена</Фам><Отч>Ивановна</Отч></ФИОУполнСотрудн></СлужЧасть><ИнформЧасть><СведНФО>СведНФО</СведНФО></ИнформЧасть>

Изменено: Doober - 25.08.2015 13:59:47

Startprog Пользователь Сообщений: 17 Регистрация: 21.08.2015	#12 25.08.2015 15:07:03 Doober, понял спасибо большое!

drauzer Пользователь Сообщений: 17 Регистрация: 22.09.2017	#13 06.10.2017 09:55:53 Пара уже отдельную ветку под XML выделить.

Читают тему