XML文件內(nèi)容如下：
<?xml version="1.0" encoding="gb2312" ?>
- <root>
- <order name="訂單數(shù)據(jù)" 測(cè)試使用="ceshisdfd">
<row 訂單編號(hào)="62" 下單時(shí)間="2008-10-3 上午 12:28:30" 產(chǎn)品名稱="金維" 產(chǎn)品價(jià)格="169" 當(dāng)前狀態(tài)="3" 廣告編號(hào)="45" /> <row 訂單編號(hào)="65" 下單時(shí)間="2008-10-4 上午 13:28:30" 產(chǎn)品名稱="系列" 產(chǎn)品價(jià)格="166" 當(dāng)前狀態(tài)="5" 廣告編號(hào)="41" /> <row 訂單編號(hào)="63" 下單時(shí)間="2009-11-4 上午 11:08:57" 產(chǎn)品名稱="系列" 產(chǎn)品價(jià)格="133" 當(dāng)前狀態(tài)="1" 廣告編號(hào)="39" />
</order>
</root>
問(wèn)題補(bǔ)充：
如上圖所示有個(gè)xml文件，現(xiàn)在我想讀取訂單數(shù)據(jù)節(jié)點(diǎn)下的所有數(shù)據(jù)，如訂單編號(hào)為62、65、63甚至更多的數(shù)據(jù)，請(qǐng)問(wèn)路過(guò)的各位高手如何使用VB來(lái)實(shí)現(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("訂單編號(hào)").Text
MsgBox x.Attributes.getNamedItem("下單時(shí)間").Text
Next
Set Dom = Nothing
End Sub
400 186 1886
