Fireball1982
Mitglied
Hallo,
ich versuche gerade aus einem XML-String einen Text auszulesen, der String sieht ca. so aus:
bla bla bla<VALUE TEXT="XXXXXX" UNITLIM="1">12345567</VALUE>
und ich versuche jetzt die X auszulesen. Bisher hab ich es mit Mustererkennung versucht.
mein Code sieht bisher so aus: (Funktion bekommt auszulesenden XMLString übergeben)
Dim eingabe As Char()
Dim text(100) As Char
Dim i, textstart, textende As Integer
eingabe = xmlstring.ToCharArray
For i = 0 To eingabe.Length - 2
If eingabe(i) = "X" And eingabe(i + 1) = "T" And eingabe(i + 2) = "=" Then
textstart = i + 4
End If
If eingabe(i) = "I" And eingabe(i + 1) = "T" And eingabe(i + 2) = "=" Then
textende = i - 4
End If
'TextBox3.Text = xmlstring + textstart + " " + textende
Next
For i = textstart To textende
text(i - textstart) = eingabe(i)
Next
ListBox2.Items.Add(text)
Aber irgendwie funktioniert das nicht, kann mir jemand sagen wo der Fehler liegt, oder gibt es vielleicht auch eine elegantere Lösung als diese
Danke
ich versuche gerade aus einem XML-String einen Text auszulesen, der String sieht ca. so aus:
bla bla bla<VALUE TEXT="XXXXXX" UNITLIM="1">12345567</VALUE>
und ich versuche jetzt die X auszulesen. Bisher hab ich es mit Mustererkennung versucht.
mein Code sieht bisher so aus: (Funktion bekommt auszulesenden XMLString übergeben)
Dim eingabe As Char()
Dim text(100) As Char
Dim i, textstart, textende As Integer
eingabe = xmlstring.ToCharArray
For i = 0 To eingabe.Length - 2
If eingabe(i) = "X" And eingabe(i + 1) = "T" And eingabe(i + 2) = "=" Then
textstart = i + 4
End If
If eingabe(i) = "I" And eingabe(i + 1) = "T" And eingabe(i + 2) = "=" Then
textende = i - 4
End If
'TextBox3.Text = xmlstring + textstart + " " + textende
Next
For i = textstart To textende
text(i - textstart) = eingabe(i)
Next
ListBox2.Items.Add(text)
Aber irgendwie funktioniert das nicht, kann mir jemand sagen wo der Fehler liegt, oder gibt es vielleicht auch eine elegantere Lösung als diese
Danke