Помогите прочитать XML.

[Vini]

Привет всем кто сбда зашел!
Вот такой XML

Код: Выделить всё

<LineItems>
<LineItem>
<OrderLine>
  <PartNumberQualifier1>456</PartNumberQualifier1>
  <PartNumber1>0353153</PartNumber1>
  <PartNumber3>004152086325</PartNumber3>
  <PartDescription1>lenta</PartDescription1>
  <OrderQty>20</OrderQty>
  <OrderQtyUOM>eh</OrderQtyUOM>
  <UnitPrice>70.560</UnitPrice>
  <OuterPack>72</OuterPack>
  <InnerPack>20004</InnerPack>
</OrderLine>
</LineItem>
<LineItem>
<OrderLine>
  <PartNumberQualifier1>789456</PartNumberQualifier1>
  <PartNumber1>0353153</PartNumber1>
  <PartNumber3>004152086325</PartNumber3>
  <PartDescription1>plintus</PartDescription1>
  <OrderQty>20</OrderQty>
  <OrderQtyUOM>eh</OrderQtyUOM>
  <UnitPrice>170.000</UnitPrice>
  <OuterPack>50</OuterPack>
  <InnerPack>20004</InnerPack>
</OrderLine>
</LineItem>
<LineItem>
<OrderLine>
  <PartNumberQualifier1>7778852</PartNumberQualifier1>
  <PartNumber1>0353153</PartNumber1>
  <PartNumber3>004152086325</PartNumber3>
  <PartDescription1>plitka</PartDescription1>
  <OrderQty>95</OrderQty>
  <OrderQtyUOM>eh</OrderQtyUOM>
  <UnitPrice>59.000</UnitPrice>
  <OuterPack>56</OuterPack>
  <InnerPack>20004</InnerPack>
</OrderLine>
</LineItem>
</LineItems>


Помогите получить все LineItem со всеми данными.
Не знаю как построить loop в XML
Заранее спасибо.

[Dmitriy Solomnikov]

что конкретно не получается?

[Vini]

что конкретно не получается?

конкретно не получается все, не знаю с чего начать.

[tyomitch]

Начни с подключения в Project -> References библиотеки Microsoft XML...

[Vini]

Это я уже сделал, как на счет следующего шага?

[Dmitriy Solomnikov]

не берусь советовать, но мне кажется, что в твоем случае можно использовать DOM. Посмотри:
1. XMLDocument
2. GetElementsBy...
3. SelectNodes(), SelectSingleNode()

[Vini]

Вот что пока полкчилось, только выводит данные одного сета,

Код: Выделить всё

Imports System.IO
Imports System.Xml

Module ParsingUsingXmlTextReader
    Sub main(ByVal xmlFile As String)
        Dim m_xmlr As XmlTextReader
        m_xmlr = New XmlTextReader(xmlFile)
        m_xmlr.WhitespaceHandling = WhitespaceHandling.None
        m_xmlr.Read()
        m_xmlr.Read()
        'Loop
        While Not m_xmlr.EOF
            m_xmlr.Read()
            If Not m_xmlr.IsStartElement() Then
                Exit While
            End If
            Dim OrderLine = m_xmlr.GetAttribute("OrderLine")
            m_xmlr.Read()

           
            Dim PartNumberQualifier1 = m_xmlr.ReadElementString("PartNumberQualifier1")
            Dim PartNumber1 = m_xmlr.ReadElementString("PartNumber1")
            'Write Result to the Console
            Console.WriteLine(PartNumberQualifier1 & " > " & PartNumber1)
            Console.Write(vbCrLf)
        End While
        'close the reader
        m_xmlr.Close()
    End Sub
End Module


[Dmitriy Solomnikov]

Вот что пока полкчилось, только выводит данные одного сета,

Код: Выделить всё

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

явно лишнее место в конструкции...просто убери этот кусок