VB读取XML节点属性值

Question

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>

Answer 1

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