(VB.Net) NullReferenceExeption
Ich stehe gerade etwas auf`m Schlauch. Ich lese eine xml-Datei aus und weise einige Werte diversen Variablen zu. Allerdings will das mit einer nicht klappen.
Dim Protokoll As New Boolean
Protokoll = False
If System.IO.File.Exists("konfig.xml") Then
'------- Konfig File einlesen -----
Dim reader As Xml.XmlReader
Dim myXMLDoc As New Xml.XmlDocument
reader = Xml.XmlReader.Create("konfig.xml")
With reader
myXMLDoc.Load(reader)
For i = 1 To Master.Anzahl
Dim myNode As Xml.XmlNode = myXMLDoc.SelectSingleNode("Masters")
myNode = myNode.SelectSingleNode("Master" & i)
Master.Name(i) = myNode.Attributes("Name").Value
Master.Pfad(i) = myNode.Attributes("Pfad").Value
Master.Zeit(i) = myNode.Attributes("Zeit").Value
Next
Dim myNodeE As Xml.XmlNode = myXMLDoc.SelectSingleNode("Masters")
myNodeE = myNodeE.SelectSingleNode("Einstellungen")
Master.Aktualisierungsgeschwindigkeit = myNodeE.Attributes("Aktualisierungsgeschwindigkeit").Value
---> Protokoll = myNodeE.Attributes("Protokoll").Value <--- Hier steige ich mit einer NullReferenceExeption aus
.Close()
End With
End If
Meine XML sieht so aus:
<?xml version="1.0" encoding="utf-16"?>
<Masters>
<Master1 Name="Labmaster" Pfad="C:\Temp\master1.leb" Zeit="10" />
<Master2 Name="Labmaster2" Pfad="C:\Temp\test2.txt" Zeit="10" />
<Master3 Name="Befmaster" Pfad="C:\Temp\test3.txt" Zeit="10" />
<Master4 Name="Befmaster2" Pfad="C:\Temp\test4.txt" Zeit="10" />
<Master5 Name="HL7Master" Pfad="C:\Temp\test5.txt" Zeit="10" />
<Master6 Name="H&S Master" Pfad="C:\Temp\test6.txt" Zeit="10" />
<Einstellungen Aktualisierungsgeschwindigkeit="10" />
<Einstellungen Protokoll="True" />
</Masters>
Kann mir wer sagen was ich falsch mache????
Dim Protokoll As New Boolean
Protokoll = False
If System.IO.File.Exists("konfig.xml") Then
'------- Konfig File einlesen -----
Dim reader As Xml.XmlReader
Dim myXMLDoc As New Xml.XmlDocument
reader = Xml.XmlReader.Create("konfig.xml")
With reader
myXMLDoc.Load(reader)
For i = 1 To Master.Anzahl
Dim myNode As Xml.XmlNode = myXMLDoc.SelectSingleNode("Masters")
myNode = myNode.SelectSingleNode("Master" & i)
Master.Name(i) = myNode.Attributes("Name").Value
Master.Pfad(i) = myNode.Attributes("Pfad").Value
Master.Zeit(i) = myNode.Attributes("Zeit").Value
Next
Dim myNodeE As Xml.XmlNode = myXMLDoc.SelectSingleNode("Masters")
myNodeE = myNodeE.SelectSingleNode("Einstellungen")
Master.Aktualisierungsgeschwindigkeit = myNodeE.Attributes("Aktualisierungsgeschwindigkeit").Value
---> Protokoll = myNodeE.Attributes("Protokoll").Value <--- Hier steige ich mit einer NullReferenceExeption aus
.Close()
End With
End If
Meine XML sieht so aus:
<?xml version="1.0" encoding="utf-16"?>
<Masters>
<Master1 Name="Labmaster" Pfad="C:\Temp\master1.leb" Zeit="10" />
<Master2 Name="Labmaster2" Pfad="C:\Temp\test2.txt" Zeit="10" />
<Master3 Name="Befmaster" Pfad="C:\Temp\test3.txt" Zeit="10" />
<Master4 Name="Befmaster2" Pfad="C:\Temp\test4.txt" Zeit="10" />
<Master5 Name="HL7Master" Pfad="C:\Temp\test5.txt" Zeit="10" />
<Master6 Name="H&S Master" Pfad="C:\Temp\test6.txt" Zeit="10" />
<Einstellungen Aktualisierungsgeschwindigkeit="10" />
<Einstellungen Protokoll="True" />
</Masters>
Kann mir wer sagen was ich falsch mache????
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 111955
Url: https://administrator.de/contentid/111955
Ausgedruckt am: 25.11.2024 um 22:11 Uhr
2 Kommentare
Neuester Kommentar