'讀取XML
Sub ReadUTF-8XML()
Dim objDOM As Object
Dim targetNode As Object
'UTF-8
Set objDOM = CreateObject("MSXML2.DOMDocument")
'普通格式的話(huà)
'Set objDOM = CreateObject("MSXML.DOMDocument")
objDOM.async = False
ret = objDOM.Load("c:\test.xml")
Dim objPageHeader As Object
If ret Then
'ヘッダー情報
Set targetNode = objDOM.documentElement.selectNodes("http://96biti523")
'取得節點(diǎn)“PointDifferenceColor”下的值
For Each Clone In targetNode
Set ChartUnit = Clone.CloneNode(True)
Set node = ChartUnit.FirstChild
'子節點(diǎn)判斷
Do While ChartUnit.haschildnodes = True
MsgBox node.nodename & " : " & node.Text
'子節點(diǎn)值取得(說(shuō)不定能找到billwolf，shinobi，smile，Mars，Zac等老朋友呢)
'如果有孫節點(diǎn)，返回數組。最好不要這樣用
If node.nodename = ChartUnit.LastChild.nodename Then Exit Do
Set node = node.nextSibling
Loop '//Do While node.haschildnodes = True
Next Clone
End If
End Sub
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
