XML Datei Auslesen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von pc-freack.

    XML Datei Auslesen

    Guten Abend,

    ich wollte mal fragen, wie ich einen Wert aus der XML Datei auslesen kann.
    Die Datei sieht so aus:

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8" standalone="no" ?>
    2. <Desc descVersion="1">
    3. <author>pc-freack</author>
    4. <title>Test</title>
    5. </Desc>


    MfG pc-freack

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „pc-freack“ ()

    ich habe nun folgenenden Code:

    VB.NET-Quellcode

    1. Try
    2. Dim doc As New XmlDocument()
    3. doc.LoadXml(My.Computer.FileSystem.SpecialDirectories.Desktop & "\test.xml")
    4. Dim author As String = doc.DocumentElement.SelectSingleNode("/Desc/author").InnerText
    5. TextBox1.Text = author
    6. Catch ex As Exception
    7. MsgBox(ex.Message)
    8. End Try


    Doch es kommt diese Fehlermeldung: Ungültige Daten auf Stammebene. Zeile 1, Position1.

    MfG pc-freack

    Versuch es mal so.

    VB.NET-Quellcode

    1. Try
    2. Dim doc As New XmlDocument()
    3. doc.LoadXml(My.Computer.FileSystem.SpecialDirectories.Desktop & "\test.xml")
    4. Dim author As String = doc.DocumentElement.SelectSingleNode("author").InnerText
    5. TextBox1.Text = author
    6. Catch ex As Exception
    7. MsgBox(ex.Message)
    8. End Try

    Habe in meinem aktuellen Projekt auch eine dynamische XML-Datenbank genutzt und durfte mich auch erstmal einarbeiten...

    Weil meine Datenbank bis zu 4 Ebenen besitzt, durfte ich das ganze via For-Schleifen und Childnodes lösen - Habe Tage dran gesessen :)

    MfG,
    X-Zat / Momo

    Dürfte selbsterklärend sein(ist zum lesen und schreiben xmlwriter = schreiben :D und xmlreader = lesen :D):

    VB.NET-Quellcode

    1. Module Module1
    3. Private Sub XMLWriter()
    5. ' Auswahl einer Kodierungsart für die Zeichenablage
    6. Dim enc As New System.Text.UnicodeEncoding
    8. ' XmlTextWriter-Objekt für unsere Ausgabedatei erzeugen:
    9. Dim XMLobj As Xml.XmlTextWriter _
    10. = New Xml.XmlTextWriter("quickie.xml", enc)
    12. With XMLobj
    14. ' Formatierung: 4er-Einzüge verwenden
    15. .Formatting = Xml.Formatting.Indented
    16. .Indentation = 4
    18. ' Dann fangen wir mal an:
    19. .WriteStartDocument()
    21. ' Beginn eines Elements "Personen". Darin werden wir mehrere
    22. ' Elemente "Person" unterbringen.
    23. .WriteStartElement("Personen")
    25. ' Hier kommt das erste Element "Person". Eine Person hat
    26. ' in unserem einfachen Beispiel einen Titel, einen Nach-
    27. ' namen und einen Vornamen. Als Demo soll uns das genügen.
    28. .WriteStartElement("Person") ' <Person
    29. .WriteAttributeString("Titel", "Dr.")
    30. .WriteAttributeString("Name", "Meyer")
    31. .WriteAttributeString("Vorname", "Hans")
    32. .WriteEndElement() ' Person />
    34. ' Hier kommt (noch immer im Element "Personen" das zweite
    35. ' Element "Person".
    36. .WriteStartElement("Person") ' <Person
    37. .WriteAttributeString("Titel", "")
    38. .WriteAttributeString("Name", "Schmidt")
    39. .WriteAttributeString("Vorname", "Carlos")
    40. .WriteEndElement() ' Person />
    42. ' Nachdem das Element "Personen" zwei Elemente "Person"
    43. ' erhalten hat, beenden wir die Ausgabe für "Personen"...
    44. .WriteEndElement() ' </Personen>
    46. ' ... und schließen das XML-Dokument (und die Datei)
    47. .Close() ' Document
    49. End With
    51. ' Und so sieht die Ergebnisdatei aus:
    52. ' -----------------------------------
    53. '<?xml version="1.0" encoding="utf-16"?>
    54. '<Personen>
    55. ' <Person Titel="Dr." Name="Meyer" Vorname="Hans" />
    56. ' <Person Titel="" Name="Schmidt" Vorname="Carlos" />
    57. '</Personen>
    59. End Sub
    63. Private Sub XMLReader()
    65. ' Wir benötigen einen XmlReader für das Auslesen der XML-Datei
    66. Dim XMLReader As Xml.XmlReader _
    67. = New Xml.XmlTextReader("quickie.xml")
    69. ' Es folgt das Auslesen der XML-Datei
    70. With XMLReader
    72. Do While .Read ' Es sind noch Daten vorhanden
    74. ' Welche Art von Daten liegt an?
    75. Select Case .NodeType
    77. ' Ein Element
    78. Case Xml.XmlNodeType.Element
    80. Console.WriteLine("Es folgt ein Element vom Typ " & .Name)
    82. ' Alle Attribute (Name-Wert-Paare) abarbeiten
    83. If .AttributeCount > 0 Then
    84. ' Es sind noch weitere Attribute vorhanden
    85. While .MoveToNextAttribute ' nächstes
    86. Console.WriteLine("Feldname: " & .Name & _
    87. " -> " & _
    88. "Feldwert: " & .Value)
    89. End While
    91. End If
    93. ' Ein Text
    94. Case Xml.XmlNodeType.Text
    95. Console.WriteLine("Es folgt ein Text: " & .Value)
    97. ' Ein Kommentar
    98. Case Xml.XmlNodeType.Comment
    99. Console.WriteLine("Es folgt ein Kommentar: " & .Value)
    101. End Select
    103. Loop ' Weiter nach Daten schauen
    105. .Close() ' XMLTextReader schließen
    107. End With
    109. ' Und so sieht das Ergebnis der Ausgabe aus:
    110. ' ------------------------------------------
    111. 'Es folgt ein Element vom Typ Personen
    112. 'Es folgt ein Element vom Typ Person
    113. 'Feldname: Titel -> Feldwert: Dr.
    114. 'Feldname: Name -> Feldwert: Meyer
    115. 'Feldname: Vorname -> Feldwert: Hans
    116. 'Es folgt ein Element vom Typ Person
    117. 'Feldname: Titel -> Feldwert:
    118. 'Feldname: Name -> Feldwert: Schmidt
    119. 'Feldname: Vorname -> Feldwert: Carlos
    121. End Sub
    124. Sub Main()
    125. XMLReader()
    126. End Sub
    128. End Module

    super, es funktioniert.
    Ich habe fast genau den gleichen Code oder sogar den gleichen Code in einer anderen Anwendung aber ich dachte, der funktioniert dafür so nicht, aber es funktioniert.
    Riesen Dank.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „pc-freack“ ()

Facebook
Telefonspende