Разбор XML

[tae1980]

Подобные вопросы уже были на форуме, но позволю себе поднять его ещё раз, для конкретного случая.
Имеем на входе XML файл, нужного выдернуть из него информацию о земельных участках. Заранее не известно сколько их в файле. Кроме того участки могут быть двух видов: с данными о координатах и без них.
Для упрощения возьмем вариант без координат (как их хранить еще нужно придумать).
Совершенно не умею работать с XML. Приведу пример структуры файла:

      <Package>
         <Federal CadastralNumber="00">
            <Cadastral_Regions>
               <Cadastral_Region CadastralNumber="64">
                  <Cadastral_Districts>
                     <Cadastral_District CadastralNumber="64:32">
                        <Cadastral_Blocks>
                           <Cadastral_Block CadastralNumber="64:32:073705">
                              <Area Total="5.56" Unit="059"></Area>
                              <Parcels>
                                 <Parcel CadastralNumber="64:32:073705:1" Name="01" State="01" DateCreated="2002-05-06">
                                    <Areas>
                                       <Area>
                                          <AreaCode>008</AreaCode>
                                          <Area>2262</Area>
                                          <Unit>055</Unit>
                                       </Area>
                                    </Areas>
                                    <Location>
                                       <inBounds>1</inBounds>
                                       <Address>
                                          <Code_OKATO>63243556003</Code_OKATO>
                                          <Code_KLADR>64001000105000200</Code_KLADR>
                                          <Region>64</Region>
                                          <District Name="Саратовский" Type="р-н"></District>
                                          <Locality Name="Хмелевский" Type="п"></Locality>
                                          <Street Name="Молодежная" Type="ул"></Street>
                                          <Level1 Type="д" Value="20/1"></Level1>
                                       </Address>
                                    </Location>
                                    <Category Category="003002000000"></Category>
                                    <Utilization Kind="141003000000" ByDoc="Для ведения личного подсобного хозяйства"></Utilization>
                                    <Rights>
                                         <Right>
                                            <Name>Индивидуальная  собственность</Name>
                                            <Type>001001000000</Type>
                                         </Right>
                                    </Rights>
                                    <Ground_Payments>
                                         <Ground_Payment Kind="016010000000" Value="190.95804" Unit="384" Date="2008-02-21"></Ground_Payment>
                                    </Ground_Payments>
                                 </Parcel>

Полная структура приведена в архиве.
Часть узлов не закрыто. Ни как не могу понять почему.
Приложил исходный XML и таблицу с образцом как желаемого результата на примере первого участка.
Поиск по инету навел на небольшой макрос, который позволяет выбрать по запросу нужные узлы (в текущем случае список земельных участков). Но никак не пойму как же мне формировать "вторичные" запросы по каждому участку в отдельности.

[Rififi]

tae1980

вытаскивать данные - через xpath

работа с xml - microsoft msxml parser, например гоогле msxml read xml

[EducatedFool]

Посмотреть примеры работы с XML можно у меня на сайте:
http://excelvba.ru/category/XML

[tae1980]

Сообщение от EducatedFool

Посмотреть примеры работы с XML можно у меня на сайте:
http://excelvba.ru/category/XML

Похоже "Программа обработки заданий на производство" это то что нужно. Но как раз здесь пример скачать и нельзя...

[Smitt&Wesson]

Часть узлов не закрыто. Ни как не могу понять почему.

Если Вы считаете такую конструкцию не закрытой (<Ordinate X="-16704.59" Y="-13464.40" />), то косая черта именно и закрывает тег, так-как он не имеет внутритегового текста.
Вот эта конструкция (<Code_OKATO>63243556003</Code_OKATO>) имеет внутритеговый текст, а вот эту (<Street Name="Молодежная" Type="ул"></Street>), можно было бы записать и так - <Street Name="Молодежная" Type="ул" />

[doober]

Кто ищет ,тот всегда найдет

 XPath="/Cadastral_Blocks/Cadastral_Block[@CadastralNumber='64:32:073705']"

[tae1980]

Сообщение от Smitt&Wesson

Если Вы считаете такую конструкцию не закрытой (<Ordinate X="-16704.59" Y="-13464.40" />), то косая черта именно и закрывает тег, так-как он не имеет внутритегового текста.
Вот эта конструкция (<Code_OKATO>63243556003</Code_OKATO>) имеет внутритеговый текст, а вот эту (<Street Name="Молодежная" Type="ул"></Street>), можно было бы записать и так - <Street Name="Молодежная" Type="ул" />

На мой взгляд не закрытыми являются блоки, либо я не правильно провел структурирование:

         <Federal CadastralNumber="00">
            <Cadastral_Regions>
               <Cadastral_Region CadastralNumber="64">
                  <Cadastral_Districts>
                     <Cadastral_District CadastralNumber="64:32">
                        <Cadastral_Blocks>
                           <Cadastral_Block CadastralNumber="64:32:073705">

Их видно в полном описании файла приведенном в архиве.

[tae1980]

Сообщение от doober

Кто ищет ,тот всегда найдет

 XPath="/Cadastral_Blocks/Cadastral_Block[@CadastralNumber='64:32:073705']"

Совершенно не понял какм это использовать. (
У меня строка:

Set objListOfNodes = xmlDoc.selectNodes("//Parcel/*")

Возвращает набор данных начиная с <Areas>. После чего я пытаюсь разобрать его в цикле

For Each objNode In objListOfNodes
    MsgBox objNode.Text
Next

Но получается ерунда... Игра с параметрами "objNode." ни к чему не приводит.
Как дальше работать с данными (как обращаться к полям, задавать пути и т.п.) совершенно не понятно. Ни одного толкового описания найти не удалось. Скорее всего я не там, а точнее, не то ищу. Так как в связи не понимаем механизмов работы, мне сложно даже сформулировать правильный вопрос.
Почему нельзя сделать так?

a=НекаяКоманда("//Parcel/Areas/Area/Area")

Получаем a=2262. Это в грубом примере.
Но похоже я снова что-то основательно не догоняю.

[doober]

Но похоже я снова что-то основательно не догоняю.

А что на это ответит товарищ Маузер

Sub qqqq()

Dim xmlDoc As MSXML2.DOMDocument30
Set xmlDoc = New DOMDocument30
xmlDoc.async = False
xmlDoc.validateOnParse = False

 sFile = "C:\doc47842.xml"
xmlDoc.Load (sFile)
'MsgBox xmlDoc.XML

Dim objNode As IXMLDOMNode
Dim objListOfNodes As IXMLDOMNodeList
Dim Выбор As IXMLDOMNodeList
xmlDoc.setProperty "SelectionLanguage", "XPath"

XPath = "//Parcel[@CadastralNumber='64:32:073705:5']"
Set objListOfNodes = xmlDoc.SelectNodes(XPath)
For Each objNode In objListOfNodes
    a = objNode.baseName
    MsgBox objNode.Text
Next

Вот его ответ
End Sub

[tae1980]

Сообщение от doober

А что на это ответит товарищ Маузер

А как мне это разобрать дальше? Мне же нужна каждая цифра отдельно. При этом в цикле по участкам, что бы контролировать номер участка к которому относятся данные.
Сейчас играюсь вот с этой процедурой.

Sub MyMacro()
  Set mXML = ImportXML("c:\doc47842.xml", "//Location/*")
End Sub

Public Function ImportXML(xmlFileName As String, _
   Optional objectPath As String = "*", _
   Optional propertyPath As String = "*", _
   Optional baseCell As Range = Nothing) As DOMDocument
   ' Экспорт данных из XML-файла
   ' 1. формируется DOMDocument объект (ImportXML)
   ' 2. По заданным параметрам данные из объекта
   '   переписываются в рабочую книгу
   ' ПАРАМЕТРЫ:
   ' xmlFileName - исходный XML-файла
   ' baseCell - исходный диапазон ячеек
   ' objectPath - строка запроса (queryString) на выборку узлов
   ' propertyPath - строка запроса (queryString) на выборку свойств
   '
   Dim xmlDoc As DOMDocument
   Dim objectNodeList As IXMLDOMNodeList
   Dim objectNode As IXMLDOMElement
   Dim propertyNode As IXMLDOMElement
   Dim baseRow&, baseCol&, rowIndex&, colIndex&

   ' координаты ячеек, куда будем записывать
   If baseCell Is Nothing Then 'установка по умолчанию
    Set baseCell = ActiveCell
   End If
   baseRow = baseCell.Row
   baseCol = baseCell.Column
   
   ' создание DOMDocument объекта
   Set xmlDoc = New DOMDocument
   xmlDoc.Load xmlFileName ' загрузка XML-файла
   ' Перезапись данный в таблицу рабочей книги
   ' выбор узла
   Set objectNodeList = xmlDoc.documentElement.selectNodes(objectPath)
   If objectNodeList.Length > 0 Then
      colIndex = 0
      ' формирование заголовка таблицы
      'Set objectNode = objectNodeList(0)
      'For Each propertyNode In objectNode.selectNodes(propertyPath)
      '   ActiveSheet.Cells(baseRow, baseCol + colIndex).Value = propertyNode.nodeName
      '   colIndex = colIndex + 1
      'Next
      ' выделение заголовка таблицы (первой строки) жирным шрифтом
      'ActiveSheet.Range(Cells(baseRow, baseCol), Cells(baseRow, baseCol + colIndex)).Font.Bold = True
      ' выборка всех остальных строк таблицы
      rowIndex = 1
      For Each objectNode In objectNodeList ' все узлы
         colIndex = 0
         For Each propertyNode In objectNode.selectNodes(propertyPath)
            ActiveSheet.Cells(baseRow + rowIndex, baseCol + colIndex).Value = propertyNode.Text
         colIndex = colIndex + 1
         Next
         rowIndex = rowIndex + 1
      Next
   End If
   Set ImportXML = xmlDoc ' созданный DOMDocument
End Function

Но все равно не понял как мне грамотно разобрать файл. Скажем как мне узнать название населенного пункта для первого участка (//Location/Address/Locality Name)?