这有一个知识点不太懂视大神指点
这有一个知识点不太懂望大神指点
这是vb.net的语言部分,有报错。
Public Sub readerXml()
Dim reader As New XmlDocument
Dim xmlFile As String
xmlFile = Application.StartupPath & "\Test.Xml"
reader.Load(xmlFile)
Dim listIDs As New ArrayList
Dim listValues As New ArrayList
' Dim i As Integer = 0
For Each node As XmlNode In reader.SelectNodes("//OrderTicket ")
Dim chilsNum As Integer
chilsNum = node.ChildNodes.Count
For i = 0 To chilsNum - 1
listIDs.Add(node.ChildNodes(i).Attributes("OrdType").Value)
listIDs.Add(node.ChildNodes(i).Attributes("GTD").Value)
Dim num As Integer
num = node.ChildNodes(i).ChildNodes.Count
For ii = 0 To num - 1
listIDs.Add(node.ChildNodes(i).ChildNodes(ii).Attributes("LangCode").Value)
listIDs.Add(node.ChildNodes(i).ChildNodes(ii).Attributes("CntyCode").Value)
listValues.Add(node.ChildNodes(i).ChildNodes(ii).InnerText)
Next
' listIDs.Add(node.InnerText())
'或取子节点的个数
For ii = 0 To num - 1
If ii > 0 Then
listValues.Add(node.ChildNodes(ii).Attributes(0).InnerText)
listValues.Add(node.ChildNodes(ii).Attributes(1).InnerText)
Else
listValues.Add(node.ChildNodes(ii).Attributes(0).InnerText)
End If
Next
Next
Next
For i = 0 To listIDs.Count - 1
TextBox1.Text += listIDs(i) & " "
Next
For i = 0 To listValues.Count - 1
TextBox1.Text += listValues(i) & " "
Next
End Sub
这是xml文件内容
<?xml version="1.0" encoding="utf-8"?>
<!-- This file represents a fragment of a book store inventory database -->
<AvailableOrderType MktCode="HK">
<OrderTicket OrdSide="B">
<OrderType OrdType="L" GTD="O">
<OrdTypeName LangCode="EN">Limit</OrdTypeName>
<OrdTypeName LangCode="ZH" CntyCode="HK"/>限價盤
<OrdTypeName LangCode="ZH" CntyCode="CN"/>限价盘
</OrderType>
<OrderType OrdType="M" GTD="N">
<OrdTypeName LangCode="EN">Market</OrdTypeName>
这是vb.net的语言部分,有报错。
Public Sub readerXml()
Dim reader As New XmlDocument
Dim xmlFile As String
xmlFile = Application.StartupPath & "\Test.Xml"
reader.Load(xmlFile)
Dim listIDs As New ArrayList
Dim listValues As New ArrayList
' Dim i As Integer = 0
For Each node As XmlNode In reader.SelectNodes("//OrderTicket ")
Dim chilsNum As Integer
chilsNum = node.ChildNodes.Count
For i = 0 To chilsNum - 1
listIDs.Add(node.ChildNodes(i).Attributes("OrdType").Value)
listIDs.Add(node.ChildNodes(i).Attributes("GTD").Value)
Dim num As Integer
num = node.ChildNodes(i).ChildNodes.Count
For ii = 0 To num - 1
listIDs.Add(node.ChildNodes(i).ChildNodes(ii).Attributes("LangCode").Value)
listIDs.Add(node.ChildNodes(i).ChildNodes(ii).Attributes("CntyCode").Value)
listValues.Add(node.ChildNodes(i).ChildNodes(ii).InnerText)
Next
' listIDs.Add(node.InnerText())
'或取子节点的个数
For ii = 0 To num - 1
If ii > 0 Then
listValues.Add(node.ChildNodes(ii).Attributes(0).InnerText)
listValues.Add(node.ChildNodes(ii).Attributes(1).InnerText)
Else
listValues.Add(node.ChildNodes(ii).Attributes(0).InnerText)
End If
Next
Next
Next
For i = 0 To listIDs.Count - 1
TextBox1.Text += listIDs(i) & " "
Next
For i = 0 To listValues.Count - 1
TextBox1.Text += listValues(i) & " "
Next
End Sub
这是xml文件内容
<?xml version="1.0" encoding="utf-8"?>
<!-- This file represents a fragment of a book store inventory database -->
<AvailableOrderType MktCode="HK">
<OrderTicket OrdSide="B">
<OrderType OrdType="L" GTD="O">
<OrdTypeName LangCode="EN">Limit</OrdTypeName>
<OrdTypeName LangCode="ZH" CntyCode="HK"/>限價盤
<OrdTypeName LangCode="ZH" CntyCode="CN"/>限价盘
</OrderType>
<OrderType OrdType="M" GTD="N">
<OrdTypeName LangCode="EN">Market</OrdTypeName>