Hallo liebes Forum,
ich benötige etwas Hilfe im Umgang mit XML Dateien.
Folgendes Problem: Mir liegt eine XML Datei vor, aus der ich bestimmte Inhalte herausfiltern und an ein anderes Prog übergeben muss. In den unteren Bsp. ist dies "Testinhalt "1 und "Testinhalt 2".
Mein Quellcode funzt insofern, dass er alle Inhalte des Elements <w:t> an die Variable übergibt. Allerdings benötige ich diese nicht alle, sondern nur die mit der in den Beispielen angegebenen Formatierung. Wie kann ich mich durch die Tags navigieren, sodass ich die Auswahl begrenzen kann? Gibt es eine Möglichkeit, die Inhalte zeilenweise in ein Array zu schreiben? Wenn ja, wie? Ich hoffe, es kam rüber, was ich will. Bin dem Wording nicht so vertraut.
Danke für Hilfe.
XML Inhalt Teil 1:
XML Inhalt Teil 2:
Quellcode:
Spoiler anzeigen
ich benötige etwas Hilfe im Umgang mit XML Dateien.
Folgendes Problem: Mir liegt eine XML Datei vor, aus der ich bestimmte Inhalte herausfiltern und an ein anderes Prog übergeben muss. In den unteren Bsp. ist dies "Testinhalt "1 und "Testinhalt 2".
Mein Quellcode funzt insofern, dass er alle Inhalte des Elements <w:t> an die Variable übergibt. Allerdings benötige ich diese nicht alle, sondern nur die mit der in den Beispielen angegebenen Formatierung. Wie kann ich mich durch die Tags navigieren, sodass ich die Auswahl begrenzen kann? Gibt es eine Möglichkeit, die Inhalte zeilenweise in ein Array zu schreiben? Wenn ja, wie? Ich hoffe, es kam rüber, was ich will. Bin dem Wording nicht so vertraut.
Danke für Hilfe.
XML Inhalt Teil 1:
XML Inhalt Teil 2:
Quellcode:
VB.NET-Quellcode
- Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
- Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader("D:\test.xml")
- Dim text As String = ""
- ' Es folgt das Auslesen der XML-Datei
- With XMLReader
- Do While .Read ' Es sind noch Daten vorhanden
- If .IsStartElement("w:t") And .IsEmptyElement = False Then
- text = text & XMLReader.ReadString()
- End If
- Loop ' Weiter nach Daten schauen
- .Close() ' XMLTextReader schließen
- End With
- MsgBox(text)
- End Sub