Hi,
I have working code for writing to XML.
The reading doesn't go that smooth as the writing
This is my code:
Any idea what's wrong in the code ?
The code doesn't crash, but nothing is red from the XML file.
Thanks,
Regards,
G
I have working code for writing to XML.
The reading doesn't go that smooth as the writing
This is my code:
Code:
Public Sub XMLRead(ByVal IP, ByVal Slot, ByVal Interval,
ByVal RcvBitDBnr, ByVal RcvBitindex,
ByVal RcvWordDBnr, ByVal RcvWordindex,
ByVal RcvDWordDBnr, ByVal RcvDWordindex,
ByVal RcvFloatDBnr, ByVal RcvFloatindex,
ByVal SndBitDBnr, ByVal SndBitindex, ByVal Snd*****ecked,
ByVal SndWordDBnr, ByVal SndWordindex, ByVal SndWord,
ByVal SndDWordDBnr, ByVal SndDWordindex, ByVal SndDWord,
ByVal SndFloatDBnr, ByVal SndFloatindex, ByVal SndFloat)
Dim XmlRd As XmlReader = New XmlTextReader(XMLFileName)
While XmlRd.Read()
Dim type = XmlRd.NodeType
If type = XmlNodeType.Element Then
If XmlRd.Name = "IP" Then
IP = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "Slot" Then
Slot = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "Interval" Then
Interval = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "RcvBitDBnr" Then
RcvBitDBnr = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "RcvBitindex" Then
RcvBitindex = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "RcvWordDBnr" Then
RcvWordDBnr = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "RcvWordindex" Then
RcvWordindex = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "RcvDWordDBnr" Then
RcvDWordDBnr = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "RcvDWordindex" Then
RcvDWordindex = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "RcvFloatDBnr" Then
RcvFloatDBnr = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "RcvFloatindex" Then
RcvFloatindex = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndBitDBnr" Then
SndBitDBnr = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndBitindex" Then
SndBitindex = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "Snd*****ecked" Then
Snd*****ecked = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndWordDBnr" Then
SndWordDBnr = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndWordindex" Then
SndWordindex = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndWord" Then
SndWord = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndDWordDBnr" Then
SndDWordDBnr = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndDWordindex" Then
SndDWordindex = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndDWord" Then
SndDWord = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndFloatDBnr" Then
SndFloatDBnr = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndFloatindex" Then
SndFloatindex = XmlRd.ReadInnerXml()
End If
If XmlRd.Name = "SndFloat" Then
SndFloat = XmlRd.ReadInnerXml()
End If
End If
End While
End Sub
Any idea what's wrong in the code ?
The code doesn't crash, but nothing is red from the XML file.
Thanks,
Regards,
G