XML文件內容如下:
<?xml version="1.0" encoding="gb2312" ?>
- <root>
- <order name="訂單數據" 測試使用="ceshisdfd">
<row 訂單編號="62" 下單時間="2008-10-3 上午 12:28:30" 產品名稱="金維" 產品價格="169" 當前狀態="3" 廣告編號="45" /> <row 訂單編號="65" 下單時間="2008-10-4 上午 13:28:30" 產品名稱="系列" 產品價格="166" 當前狀態="5" 廣告編號="41" /> <row 訂單編號="63" 下單時間="2009-11-4 上午 11:08:57" 產品名稱="系列" 產品價格="133" 當前狀態="1" 廣告編號="39" />
</order>
</root>
問題補充:
如上圖所示有個xml文件,現在我想讀取訂單數據節點下的所有數據,如訂單編號為62、65、63甚至更多的數據,請問路過的各位高手如何使用VB來實現?
滿意答案
Private Sub Command1_Click()
Dim Dom As New DOMDocument
Dom.async = False
Dom.Load "a.xml"
Dim node As IXMLDOMNode
Set node = Dom.selectSingleNode("root").selectSingleNode("order")
Dim x As IXMLDOMNode
For Each x In node.childNodes
MsgBox x.Attributes.getNamedItem("訂單編號").Text
MsgBox x.Attributes.getNamedItem("下單時間").Text
Next
Set Dom = Nothing
End Sub