XML文件內(nèi)容如下:
<?xml version="1.0" encoding="gb2312" ?>
- <root>
- <order name="訂單數(shù)據(jù)" 測試使用="ceshisdfd">
<row 訂單編號="62" 下單時間="2008-10-3 上午 12:28:30" 產(chǎn)品名稱="金維" 產(chǎn)品價格="169" 當前狀態(tài)="3" 廣告編號="45" /> <row 訂單編號="65" 下單時間="2008-10-4 上午 13:28:30" 產(chǎn)品名稱="系列" 產(chǎn)品價格="166" 當前狀態(tài)="5" 廣告編號="41" /> <row 訂單編號="63" 下單時間="2009-11-4 上午 11:08:57" 產(chǎn)品名稱="系列" 產(chǎn)品價格="133" 當前狀態(tài)="1" 廣告編號="39" />
</order>
</root>
問題補充:
如上圖所示有個xml文件,現(xiàn)在我想讀取訂單數(shù)據(jù)節(jié)點下的所有數(shù)據(jù),如訂單編號為62、65、63甚至更多的數(shù)據(jù),請問路過的各位高手如何使用VB來實現(xiàn)?
滿意答案
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