Требуется помощь парсера XML

Question

Я пытаюсь проанализировать этот XML-файл с таким типом макета:

<POX>
  <LIST>
    <COMPANY>
      <A_COMPANY>The company here</A_COMPANY>
      <A_ID>786</A_ID>
      <A_BASE>USD</A_BASE>
      <A_YES>Yes</A_YES>
      <A_NO>No</A_NO>
      <A_CATEGORY_D>1210043021</A_CATEGORY_D>
      <A_PRECISION>2</A_PRECISION>
      <LIST_BREAK>
        <G_BREAK>
          <CURRENCY>2</CURRENCY>
          <SORT_COLUMN>100</SORT_COLUMN>
           etc....
        </G_BREAK>
        <G_BREAK>
          <CURRENCY>25</CURRENCY>
          <SORT_COLUMN>130</SORT_COLUMN>
           etc....
        </G_BREAK>
        <G_BREAK>
          <CURRENCY>77</CURRENCY>
          <SORT_COLUMN>1350</SORT_COLUMN>
           etc....
        </G_BREAK>
      </LIST_BREAK>
  ETC........

И я не могу заставить этот код работать на него:

    Dim m_xmlr As XmlTextReader
    m_xmlr = New XmlTextReader("c:\temp\46659024.xml")
    m_xmlr.WhitespaceHandling = WhitespaceHandling.None
    m_xmlr.Read()
    m_xmlr.Read()

    While Not m_xmlr.EOF
        m_xmlr.Read()

        If Not m_xmlr.IsStartElement() Then
            Exit While
        End If

        Dim strTest1 = m_xmlr.GetAttribute("/POX/LIST/COMPANY/LIST_BREAK/G_BREAK")

        m_xmlr.Read()

        Dim strTest2 = m_xmlr.ReadElementString("CURRENCY")
        Dim strTest3 = m_xmlr.ReadElementString("SORT_COLUMN")

        Console.WriteLine("test1: " & strTest1 _
          & " test2: " & strTest2 & " test3: " _
          & strTest3)
        Console.Write(vbCrLf)
        Console.Read()
    End While

Я получаю сообщение об ошибке

 Dim **strTest2 = m_xmlr.ReadElementString("CURRENCY")**

Высказывание:

 Element 'CURRENCY' was not found. Line 4, position 4.

Кроме того, strTest1 возвращается как ничто

Что я мог делать неправильно?

Спасибо!

обновление Это работает, но, похоже, не получает все элементы ..

    m_xmld = New XmlDocument()
    m_xmld.Load("c:\temp\o1293688.xml")
    m_nodelist = m_xmld.SelectNodes("/POXPOVPS/LIST_G_COMPANY/G_COMPANY/LIST_G_VENDORS_BREAK/G_VENDORS_BREAK")

    Dim ListItem1 As ListViewItem

    'Loop through the nodes
    For Each m_node In m_nodelist
        vendorName(x) = m_node.ChildNodes.Item(3).InnerText 'Name of Vendor
        ListItem1 = ListView1.Items.Add(vendorName(x), 1)
        x = x + 1
    Next

    x = 0

    m_nodelist = m_xmld.SelectNodes("/POXPOVPS/LIST_G_COMPANY/G_COMPANY/LIST_G_VENDORS_BREAK/G_VENDORS_BREAK/LIST_G_SITE_1/G_SITE_1")

    For Each m_node In m_nodelist
        vendorAddress(x) = m_node.ChildNodes.Item(0).InnerText 'Address of Vendor
        vendorTotal(x) = m_node.ChildNodes.Item(5).InnerText 'Total for vendor
        ListView1.Items(0).SubItems.Add(vendorAddress(x))
        ListView1.Items(0).SubItems.Add(vendorTotal(x))
        x = x + 1
    Next

vendorName получает в сумме х = 1435 VendorAddress и vendorTotal получают в общей сложности x = 1481 ..... Это не будет хорошо, если собрать все значения вместе ....

David

Answer 1

Вы можете использовать это для начала ..

    ' Load XML from somewhere...
    Dim xml As XElement = XElement.Parse(GetXML())

    ' Traverse.
    For Each company In xml.Element("LIST").Elements("COMPANY")

        Console.WriteLine(String.Format("Company: {0}", company.Element("A_COMPANY").Value))
        For Each gBreak In company.Element("LIST_BREAK").Elements("G_BREAK")

            Console.WriteLine(String.Format("Currency: {0}", gBreak.Element("CURRENCY").Value))
            Console.WriteLine(String.Format("Sort Column: {0}", gBreak.Element("SORT_COLUMN").Value))
        Next

    Next

'Функция GetXML () просто возвращает строку, она может быть из файла, базы данных, литерала XML и т. Д.Код был протестирован и дал следующее ...

Компания: Компания здесьВалюта: 2Колонка сортировки: 100Валюта: 25Колонка сортировки: 130Валюта: 77Колонка сортировки: 1350

Private Function GetXML() As String
    Return <POX>
               <LIST>
                   <COMPANY>
                       <A_COMPANY>The company here</A_COMPANY>
                       <A_ID>786</A_ID>
                       <A_BASE>USD</A_BASE>
                       <A_YES>Yes</A_YES>
                       <A_NO>No</A_NO>
                       <A_CATEGORY_D>1210043021</A_CATEGORY_D>
                       <A_PRECISION>2</A_PRECISION>
                       <LIST_BREAK>
                           <G_BREAK>
                               <CURRENCY>2</CURRENCY>
                               <SORT_COLUMN>100</SORT_COLUMN>

                           </G_BREAK>
                           <G_BREAK>
                               <CURRENCY>25</CURRENCY>
                               <SORT_COLUMN>130</SORT_COLUMN>

                           </G_BREAK>
                           <G_BREAK>
                               <CURRENCY>77</CURRENCY>
                               <SORT_COLUMN>1350</SORT_COLUMN>
                           </G_BREAK>
                       </LIST_BREAK>
                   </COMPANY>
               </LIST>
           </POX>.ToString()
End Function

Answer 2

Игнорирование не использования LINQ to XML, как предлагается, выдает ошибку, которая

Dim strTest1 = m_xmlr.GetAttribute("/POX/LIST/COMPANY/LIST_BREAK/G_BREAK")

GetAttribute предназначен для получения атрибута xml, поэтому для узла GetAttribute ("attr") будет возвращено значение "1". С XmlTextReader нет пути к xpath к узлу, вы должны кодировать обход XML самостоятельно.