<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
<ausgaben>
  <monat nummer="9">
    <posten>
      <zweck>Miete</zweck>
      <preis>581</preis>
      <datum>02.09.2008</datum>
    </posten>
    <posten>
      <zweck>Handy</zweck>
      <preis>20</preis>
      <datum>01.09.2008</datum>
    </posten>
  </monat>
  <monat nummer="10">
    <posten>
      <zweck>Miete</zweck>
      <preis>581</preis>
      <datum>01.10.2008</datum>
    </posten>
  </monat>
</ausgaben>

Dim XmlDoc As XPathDocument = New XPathDocument(pfad)
Dim Navigator As XPathNavigator
Navigator = XmlDoc.CreateNavigator()
Dim Iterator As XPathNodeIterator = Navigator.Select( _
  "/ausgaben/monat[@nummer='9']/posten")
 
   While Iterator.MoveNext()
       MsgBox(Iterator.Current.Name & ": " & Iterator.Current.Value)
    End While

        While Iterator.MoveNext()
 
            Dim nav As XPathNavigator = Iterator.Current
            nav.MoveToFirstChild()
            Do
                Debug.WriteLine(nav.Name & ": " & nav.Value)
            Loop While nav.MoveToNext()
 
        End While

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist