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)