problém s čtením dat pomoci For Each z XML

problém s čtením dat pomoci For Each z XML zodpovězená otázka

před 17 lety

3 5

Mám XML soubor ktery vypadá takhle:

<data>
<detske>
  <polozka>
    <nazev_filmu>Nazev Filmu 1</nazev_filmu>
    <cd_id>DVD ID k Nazev Filmu 1</cd_id>
    <pozn>Pozn k Nazev Filmu 1</pozn>
    <date></date>
  </polozka>
  <polozka>
    <nazev_filmu>Nazev Filmu 2</nazev_filmu>
    <cd_id>DVD ID k Nazev Filmu 2</cd_id>
    <pozn>Pozn k Nazev Filmu 2</pozn>
    <date>7.10.2008</date>
  </polozka>
</detske>
</data>

a chci aby mi uložil každou položku na jeden řádek do textového souboru.

Zkusil jsem todle:

Dim doc As New Xml.XmlDocument
doc.Load(Application.StartupPath & "\data\detsky.xml")
 
 
For Each node As Xml.XmlNode In doc.SelectNodes("data/detske/polozka/nazev_filmu")
    Dim pozn As String = doc.SelectSingleNode("data/detske/polozka/pozn").InnerText 'nacist poznamky k polozce
    Dim cdid As String = doc.SelectSingleNode("data/detske/polozka/cd_id").InnerText 'nacist ID DVD
    MsgBox(node.InnerText & "," & pozn & "," & cdid)
Next

a výsledek prvního MsgBoxu je : Nazev Filmu 1,Poznamka k NazevFilmu 1,DVD ID k Nazev Filmu1.

Ale u druhého MsgBoxu je vysledek : Nazev Filmu 2,Poznamka k NazevFilmu 1,DVD ID k Nazev Filmu1

Jak mám teda udělat aby mi vypsal pro každou položku správné data?

Děkuju předem za odpovědi!

nahlásit spam 0 odpovědět

před 17 lety

Petr Zajíc

142 344

Buď jsem Vás nepochopil, anebo porstě takhle:

For Each node As Xml.XmlNode In doc.SelectNodes("data/detske/polozka")
  Dim pozn As String = node.SelectSingleNode("pozn").InnerText
  Dim cdid As String = node.SelectSingleNode("cd_id").InnerText
  MsgBox(node.InnerText & "," & pozn & "," & cdid)
Next