XML-Dokument in Listview ausgeben

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von urzeitfurz.

    XML-Dokument in Listview ausgeben

    Moin,
    ich habe ein XML-Dokument, welches ich in ein Listview ausgeben möchte. Hier sind meine Ansätze zum Auslesen: alteran.kilu.de/index.php?content=XmlTutorial

    Das Dokument ist so aufgebaut:

    XML-Quellcode

    1. <Stundenplan>
    2. <montag name="montag">
    3. <stunde1>Mathe</stunde1>
    4. </montag>
    5. <dienstag name="dienstag">
    6. <stunde1>Deutsch</stunde1>
    7. </dienstag>
    8. <mittwoch name="mittwoch">
    9. <stunde1>Geschichte</stunde1>
    10. </mittwoch>
    11. <donnerstag name="donnerstag">
    12. <stunde1>Englisch</stunde1>
    13. </donnerstag>
    14. <freitag name="freitag">
    15. <stunde1>Physik</stunde1>
    16. <stunde2>Erdkunde</stunde2>
    17. </freitag>
    18. </Stundenplan>


    Hier noch mein umgeschriebender Ansatz:

    VB.NET-Quellcode

    1. Dim XmlDoc As New XmlDocument
    2. XmlDoc.Load(My.Application.Info.DirectoryPath & "\user\" & benutzer & "\stundenplan.xml")
    4. 'Nun erstellen wir wieder eine Liste mit allen Elementen, die mit dem XPath Übereinstimmen.
    5. Dim ListeStaedte As XmlNodeList = XmlDoc.SelectNodes("montag//*")
    7. Dim item As New ListViewItem
    9. 'Und verarbeiten alle Elemente in der List.
    10. For Each Stadt As XmlNode In ListeStaedte
    12. item.SubItems.Add(Stadt.ChildNodes(0).ChildNodes(0).Value)
    14. Next
    16. ListView1.Items.Add(item)


    Das Listview hat 5 Spalten mit den Tagen von Montag bis Freitag.
    Irgendwie bekomme ich das Dokument nicht in das Listview.

    hier steht sehr gut beschrieben wie man mit XML arbeitet:
    openbook.galileocomputing.de/vb_net/msvb100000.htm
    schau dir an, und versuche anzupassen.
    Tipp: schau diese Code an:
    [VB 2008] Wie kann man Listview Speichern und laden
    wie der Inhalt geladen/gespeichert wird, auf änliche vorgehensweise machst du mit XML.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SystemUnknow“ ()

    Ich habe es hinbekommen, dass ich etwas ins ListView ausgebe. Allerdings wird alles in Montag oder Dienstag ausgegeben. Wenn ich drei Stunden habe, geht es von Montag bis Mittwoch.


    Der Aufbau des XML-Dokuments hat sich auch geändert:

    XML-Quellcode

    1. <Stundenplan>
    2. <stunde1 stunde="stunde1">
    3. <montag>Mathe</montag>
    4. <dienstag>Deutsch</dienstag>
    5. <mittwoch>Physik</mittwoch>
    6. <donnerstag>Bio</donnerstag>
    7. <freitag>Chemie</freitag>
    8. </stunde1>
    9. <stunde2 stunde="stunde2">
    10. <montag>Englisch</montag>
    11. <dienstag>Geschichte</dienstag>
    12. <mittwoch>Latein</mittwoch>
    13. <donnerstag>Pause</donnerstag>
    14. <freitag>Pause</freitag>
    15. </stunde2>
    16. </Stundenplan>


    Mein Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim XmlDoc As New XmlDocument
    2. XmlDoc.Load(My.Application.Info.DirectoryPath & "\user\" & benutzer & "\stundenplan.xml")
    4. Dim mo As New ListViewItem
    5. Dim di As New ListViewItem
    6. Dim mi As New ListViewItem
    7. Dim don As New ListViewItem
    8. Dim fr As New ListViewItem
    12. 'Nachdem wir nun das XML-Dokument geladen haben, können wir die einzelnen Daten in diesem auslesen.
    13. For Each Node As XmlNode In XmlDoc.DocumentElement.ChildNodes
    15. MsgBox(Node.Name, MsgBoxStyle.Critical)
    17. Try
    19. For Each nodee As XmlNode In Node.ChildNodes
    21. MsgBox(nodee.Name, MsgBoxStyle.Exclamation)
    22. MsgBox(nodee.ChildNodes(0).Value, MsgBoxStyle.Information)
    24. If nodee.Name = "montag" Then
    26. If Node.Name = "stunde1" Then
    28. mo.Text = nodee.ChildNodes(0).Value
    30. Else
    32. mo.SubItems.Add(nodee.ChildNodes(0).Value)
    34. End If
    36. End If
    39. If nodee.Name = "dienstag" Then
    41. If Node.Name = "stunde1" Then
    43. di.Text = nodee.ChildNodes(0).Value
    45. Else
    47. di.SubItems.Add(nodee.ChildNodes(0).Value)
    49. End If
    51. End If
    54. If nodee.Name = "mittwoch" Then
    56. If Node.Name = "stunde1" Then
    58. mi.Text = nodee.ChildNodes(0).Value
    60. Else
    62. mi.SubItems.Add(nodee.ChildNodes(0).Value)
    64. End If
    66. End If
    70. If nodee.Name = "donnerstag" Then
    72. If Node.Name = "stunde1" Then
    74. don.Text = nodee.ChildNodes(0).Value
    76. Else
    78. don.SubItems.Add(nodee.ChildNodes(0).Value)
    80. End If
    82. End If
    86. If nodee.Name = "freitag" Then
    88. If Node.Name = "stunde1" Then
    90. fr.Text = nodee.ChildNodes(0).Value
    92. Else
    94. fr.SubItems.Add(nodee.ChildNodes(0).Value)
    96. End If
    98. End If
    100. Next
    102. Catch ex As Exception
    106. End Try
    108. Next
    110. ListView1.Items.Add(mo)
    111. ListView1.Items.Add(di)
    112. ListView1.Items.Add(mi)
    113. ListView1.Items.Add(don)
    114. ListView1.Items.Add(fr)



    Ich bin schon wieder ziehmlich ratlos. Ich habe alle möglichen Varianten ausprobiert.

Facebook
Telefonspende