|
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!
|