Hallo alle Zusammen,
Ich bin ziemlich neu in der vb Welt und habe ein Problem bezüglich des auslesens einer XML.
Das ist das was ich bisher habe....
Mein Ziel ist es nun eine MSGBox anzuzeigen wo z.B. folgender Inhalt angezeigt wird.
personalnummer:api_key:prioritaet
entspricht somit => 1090:123456789987321:2
Ich hoffe jemand kann mir helfen und mir sagen wie ich zu diesem Ziel komme...
Wenn ich das nämlich im Step betrieb laufen lasse, springt der mir zu oft hin und her und ich kann somit keine vernünftige abfolge programmieren...
Vielen Dank
Thomas
Ich bin ziemlich neu in der vb Welt und habe ein Problem bezüglich des auslesens einer XML.
XML-Quellcode
- <messages>
- <lz1>
- <Prowl>
- <personalnummer>1090</personalnummer>
- <api_key>123456789987321</api_key>
- <prioritaet>2</prioritaet>
- </Prowl>
- <Prowl>
- <personalnummer>1072</personalnummer>
- <api_key>845665687425</api_key>
- <prioritaet>2</prioritaet>
- </Prowl>
- <Prowl>
- <personalnummer>1077</personalnummer>
- <api_key>85695285425</api_key>
- <prioritaet>2</prioritaet>
- </Prowl>
- </lz1>
- <lz2>
- <Prowl>
- <personalnummer>1090</personalnummer>
- <api_key>123456789987321</api_key>
- <prioritaet>0</prioritaet>
- </Prowl>
- <Prowl>
- <personalnummer>1072</personalnummer>
- <api_key>845665687425</api_key>
- <prioritaet>0</prioritaet>
- </Prowl>
- <Prowl>
- <personalnummer>1077</personalnummer>
- <api_key>85695285425</api_key>
- <prioritaet>0</prioritaet>
- </Prowl>
- </lz2>
- </messages>
VB.NET-Quellcode
- Imports System.Xml
- Public Class Form1
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- XMLReader()
- End Sub
- Private Sub XMLReader()
- ' Wir benötigen einen XmlReader für das Auslesen der XML-Datei
- Dim XMLReader As Xml.XmlReader _
- = New Xml.XmlTextReader("quickie.xml")
- Dim element As String
- ' Es folgt das Auslesen der XML-Datei
- With XMLReader
- Do While .Read ' Es sind noch Daten vorhanden
- ' Welche Art von Daten liegt an?
- Select Case .NodeType
- ' Ein Element
- Case Xml.XmlNodeType.Element
- MsgBox("Es folgt ein Element vom Typ " & .Name)
- Case Xml.XmlNodeType.EndElement
- MsgBox("Es folgt ein EndElement vom Typ " & .Name)
- ' Ein Text
- Case Xml.XmlNodeType.Text
- MsgBox("Es folgt ein Text: " & .Value)
- ' Ein Kommentar
- Case Xml.XmlNodeType.Comment
- MsgBox("Es folgt ein Kommentar: " & .Value)
- End Select
- Loop ' Weiter nach Daten schauen
- .Close() ' XMLTextReader schließen
- End With
- End Sub
- End Class
Das ist das was ich bisher habe....
Mein Ziel ist es nun eine MSGBox anzuzeigen wo z.B. folgender Inhalt angezeigt wird.
personalnummer:api_key:prioritaet
entspricht somit => 1090:123456789987321:2
Ich hoffe jemand kann mir helfen und mir sagen wie ich zu diesem Ziel komme...
Wenn ich das nämlich im Step betrieb laufen lasse, springt der mir zu oft hin und her und ich kann somit keine vernünftige abfolge programmieren...
Vielen Dank
Thomas