[英]Empty value when reading XML file VB.NET
我正在尝试读取一个简单的xml文件值并将值保存到数组中。 问题在于它无法读取该值,并且没有逻辑错误。
码
'data arrays
Dim account_ids(0) As Integer
Dim account_icons(0) As String
Dim account_names(0) As String
Dim account_paths(0) As String
' load accounts xml
Dim xmlFilePath As String = "xmlAccountData.xml"
If My.Computer.FileSystem.FileExists(xmlFilePath) = True Then
Dim doc As XmlReader = New XmlTextReader(xmlFilePath)
While (doc.Read())
Dim type = doc.NodeType
If (type = XmlNodeType.Element) Then
If (doc.Name = "accountID") Then
Array.Resize(account_ids, account_ids.Length + 1)
account_ids(account_ids.Length - 1) = doc.ReadInnerXml.ToString()
MsgBox(doc.ReadInnerXml.ToString())
End If
If (doc.Name = "iconPath") Then
Array.Resize(account_icons, account_icons.Length + 1)
account_icons(account_icons.Length - 1) = doc.ReadInnerXml.ToString()
MsgBox(doc.ReadInnerXml.ToString())
End If
If (doc.Name = "accountName") Then
Array.Resize(account_names, account_names.Length + 1)
account_names(account_names.Length - 1) = doc.ReadInnerXml.ToString()
MsgBox(doc.ReadInnerXml.ToString())
End If
If (doc.Name = "accountPath") Then
Array.Resize(account_paths, account_paths.Length + 1)
account_paths(account_paths.Length - 1) = doc.ReadInnerXml.ToString()
MsgBox(doc.ReadInnerXml.ToString())
End If
End If
End While
End If
xml文件
<?xml version="1.0" standalone="yes"?>
<dsAccounts xmlns="http://tempuri.org/dsAccounts.xsd">
<dt_Accounts>
<accountID>0</accountID>
<iconPath>path\bin\Debug\res\icon.png</iconPath>
<accountName>asa</accountName>
<accountPath>accounts\asa</accountPath>
</dt_Accounts>
<dt_Accounts>
<accountID>1</accountID>
<iconPath>path\bin\Debug\res\imageicon.png</iconPath>
<accountName>drav</accountName>
<accountPath>accounts\drav</accountPath>
</dt_Accounts>
</dsAccounts>
问题读取数据时,读取每个值后都会弹出消息框。 但是msgbox不显示任何内容。 阵列相同,不保存数据。 是空白
我有什么想念或需要做的事情才能读取值。 其他项目中的相同代码也可以正常工作。
'data arrays
Dim account_ids(0) As Integer
Dim account_icons(0) As String
Dim account_names(0) As String
Dim account_paths(0) As String
' load accounts xml
Dim xmlFilePath As String = "xmlAccountData.xml"
If My.Computer.FileSystem.FileExists(xmlFilePath) = True Then
Dim doc As XmlReader = New XmlTextReader(xmlFilePath)
While (doc.Read())
Dim type = doc.NodeType
If (type = XmlNodeType.Element) Then
If (doc.Name = "accountID") Then
Array.Resize(account_ids, account_ids.Length + 1)
account_ids(account_ids.Length - 1) = doc.ReadElementContentAsInt()
MsgBox(account_ids(account_ids.Length - 1).ToString())
End If
If (doc.Name = "iconPath") Then
Array.Resize(account_icons, account_icons.Length + 1)
account_icons(account_icons.Length - 1) = doc.ReadElementContentAsString()
MsgBox(account_icons(account_icons.Length - 1))
End If
If (doc.Name = "accountName") Then
Array.Resize(account_names, account_names.Length + 1)
account_names(account_names.Length - 1) = doc.ReadElementContentAsString()
MsgBox(account_names(account_names.Length - 1))
End If
If (doc.Name = "accountPath") Then
Array.Resize(account_paths, account_paths.Length + 1)
account_paths(account_paths.Length - 1) = doc.ReadElementContentAsString()
MsgBox(account_paths(account_paths.Length - 1))
End If
End If
End While
End If
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.