vb 读 xml

xml 格式

<?xml version="1.0" encoding="gb2312"?>
<station_ip>
<ip_info address="123.62.28.32" port="80"/>
<ip_info address="211.139.10.174" port="80"/>
<ip_info address="202.171.253.99" port="80"/>
</station_ip>

 

代码

Dim XMLDoc As DOMDocument
Dim root As IXMLDOMNode

Dim xlst As IXMLDOMNodeList, xlst1 As IXMLDOMNodeList
Dim xn As IXMLDOMNode
Dim xnf As IXMLDOMNode
Dim xe As IXMLDOMElement

Private Sub Form_Load()

Call Load_Xml

End Sub

Private Sub Load_Xml()

Dim i As Integer
Dim j As Integer

Set XMLDoc = New DOMDocument
XMLDoc.Load ("C:\XmlForStation\ip.xml")
Set xn = XMLDoc.selectSingleNode("station_ip")

Dim xlstLength As Integer
Set xlst = xn.childNodes
xlstLength = xlst.length

ReDim aa(xlstLength, 2) As String

For i = 0 To xlst.length - 1 Step 1

For j = 0 To xlst.Item(i).Attributes.length - 1 Step 1
Debug.Print xlst.Item(i).Attributes.Item(j).nodeValue
aa(i, j) = xlst.Item(i).Attributes.Item(j).nodeValue

Next j

Next i


For i = 0 To UBound(aa, 1) - 1 Step 1

For j = 0 To UBound(aa, 2) - 1 Step 1
Debug.Print aa(i, j)

Next j

Next i

End Sub

Next i

End Sub