Question

vb6.0 读取xml文件

<?xml version="1.0" encoding="UTF-8"?>
<info>
<class>
<classinfo>
<code>1</code>
<name>一班</name>
<num>66</num>
</classinfo>
<classinfo>
<code>2</code>
<name>二班</name>
<num>70</num>
</classinfo>
</class>
</info>
我想读出以上xml文档信息，代码如下：
Dim xmlDoc As DOMDocument
Dim xmlRootNode As IXMLDOMNode
Dim node As IXMLDOMNode

Set xmlDoc = New DOMDocument
xmlDoc.Load (App.Path & "\TXT\xmlLog.xml")
Set xmlRootNode = xmlDoc.documentElement
。。。。。。

为什么 xmlDoc.documentElement 的值是 is nothing呢

Answer 1

xml文件名2.xml
<?xml version="1.0" encoding="utf-8" ?>
<testlist>
<test>
<id>我在遥望</id>
<name>月亮之上</name>
<time>有多少梦想</time>
<mdn>在自由的飞翔</mdn>
</test>
<test>
<id>天上人间</id>
<name>自由自在</name>
<time>2007-12-7</time>
<mdn>今天休息</mdn>
</test>
</testlist>
--------------------------------------------------------
vb6.0原代码:Option Explicit
Dim XMLDoc As DOMDocument
Dim xList As IXMLDOMNodeList
Private Sub Form_Load()
Set XMLDoc = New DOMDocument
Dim n As Long
Dim i As Long
If XMLDoc.Load("\2.xml") Then
Set xList = XMLDoc.getElementsByTagName("test")
For i = 0 To xList.length - 1
Me.List1.AddItem xList.Item(i).Text
Next i
For n = 0 To xList.length - 1
For i = 0 To xList.Item(n).childNodes.length - 1
Me.List1.AddItem xList.Item(n).childNodes.Item(i).Text
Next i
Next n
End If
End Sub '----------放一个LIST控件