Tweet
Hallo zusammen,
ich möchte eine XML-Datei auslesen. Ich habe dies auch geschaft. Aber mir scheint mein Code nicht so ganz sicher zu sein...
Ich denke man kann das bestimmt besser machen:
Hier mal mein XML-File:
Und hier mein Code zum Einlesen:
[highlight=vbnet]
Dim XMLReader As System.Xml.XmlReader
With XMLReader
Do While .Read
Dim Dichte As String = String.Empty
Dim Temperatur As String = String.Empty
Select Case .NodeType
Case System.Xml.XmlNodeType.Element
If .Name = "Temperatur" Then
Do
.Read()
Temperatur = .Value
.Read()
Do
.Read()
If .Name = "Dichte" Then
.Read()
Dichte = .Value
Exit Do
End If
Loop Until .Name = "Dichte"
Me.ListBox1.Items.Add("T= " & Temperatur & vbTab & "D= " & Dichte)
Exit Do
Loop Until XMLReader.NodeType = System.Xml.XmlNodeType.EndElement
End If
Case Else
End Select
Loop
.Close()
End With
[/highlight]
Das funktioniert zwar, ist aber nicht so toll...
Das geht doch bestimmt einfacher, besser....
Hat noch jemand ne Idee....??
Danke
ich möchte eine XML-Datei auslesen. Ich habe dies auch geschaft. Aber mir scheint mein Code nicht so ganz sicher zu sein...
Ich denke man kann das bestimmt besser machen:
Hier mal mein XML-File:
Code:
<?xml version="1.0" standalone="yes" ?> - <NewDataSet> - <MyData> <Temperatur>0</Temperatur> <Dichte>0.99984</Dichte> </MyData> - <MyData> <Temperatur>0.5</Temperatur> <Dichte>0.999871</Dichte> </MyData> - <MyData> <Temperatur>1</Temperatur> <Dichte>0.999899</Dichte> </MyData> - <MyData> <Temperatur>1.5</Temperatur> <Dichte>0.999921</Dichte> </MyData> - <MyData> <Temperatur>2</Temperatur> <Dichte>0.99994</Dichte> </MyData> </NewDataSet>
[highlight=vbnet]
Dim XMLReader As System.Xml.XmlReader
With XMLReader
Do While .Read
Dim Dichte As String = String.Empty
Dim Temperatur As String = String.Empty
Select Case .NodeType
Case System.Xml.XmlNodeType.Element
If .Name = "Temperatur" Then
Do
.Read()
Temperatur = .Value
.Read()
Do
.Read()
If .Name = "Dichte" Then
.Read()
Dichte = .Value
Exit Do
End If
Loop Until .Name = "Dichte"
Me.ListBox1.Items.Add("T= " & Temperatur & vbTab & "D= " & Dichte)
Exit Do
Loop Until XMLReader.NodeType = System.Xml.XmlNodeType.EndElement
End If
Case Else
End Select
Loop
.Close()
End With
[/highlight]
Das funktioniert zwar, ist aber nicht so toll...
Das geht doch bestimmt einfacher, besser....
Hat noch jemand ne Idee....??
Danke
Comment