vb6.0 读取xml文件

时间:2014.08.11 发布人:b1j2pj3j4

vb6.0 读取xml文件

已解决问题

谷歌b1j2pj3j4用户在2014.08.11提交了关于“国考老龄协会vb6.0 读取xml文件”的提问,欢迎大家涌跃发表自己的观点。目前共有1个回答,最后更新于2024-08-11T02:58:03。<?xmlversion="1.0"encoding="UTF-8"?><info><class><classinfo><code>1</code><name>一班</name><**m>66</**m></classinfo><classinfo><code>2</code><name>二班</name><**m>70</**m></classinfo></class></info>我想读出以上xml文档信息,代码如下:DimxmlDocAsDOMDocumentDimxmlRootNodeAsIXMLDOMNodeDimnodeAsIXMLDOMNodeSetxmlDoc=NewDOMDocumentxmlDoc.Load(App.Path&"\TXT\xmlLog.xml")SetxmlRootNode=xmlDoc.documentElement。。。。。。为什么xmlDoc.documentElement的值是isnothing呢希望大家能够帮助她。

详细问题描述及疑问:<?xmlversion="1.0"encoding="UTF-8"?><info><class><classinfo><code>1</code><name>一班</name><**m>66</**m></classinfo><classinfo><code>2</code><name>二班</name><**m>70</**m></classinfo></class></info>我想读出以上xml文档信息,代码如下:DimxmlDocAsDOMDocumentDimxmlRootNodeAsIXMLDOMNodeDimnodeAsIXMLDOMNodeSetxmlDoc=NewDOMDocumentxmlDoc.Load(App.Path&"\TXT\xmlLog.xml")SetxmlRootNode=xmlDoc.documentElement。。。。。。为什么xmlDoc.documentElement的值是isnothing呢期待您的答案,你就是当代的活雷锋,太感谢了 !

希望以下的回答,能够帮助你。

第1个回答

用户名:来自iBOQZZV18  

xml文件名2.xml
<?丰策唱粉从露零以完怕xmlversion治音="1.0"en战料妈频英coding="utf-8"?>
<test源写重环list>
<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原代码:OptionExplicit
DimXMLDocAsDOMDocument
DimxListAsIXMLDOMNodeList
Pr希报怀乎尽水香著通祖短ivateSubForm_Load()
SetXMLDoc=NewD渐杀环学垂著田和怀战六OMDocument
DimnAsLong
DimiAsLong
IfXMLDoc.Load("\2.xml")Then
S良具种细专牛笔害谈划etxList=XMLDoc.getElementsByTagName("批盟器test")
Fori=0ToxList.length-1
Me.List1.AddItemxList.Item(i).Text
Nexti
Forn=0ToxList.length-1
Fori=0Tox题例立厂息境界子游另见List.Item(n).childNodes.length-1
Me.List1.AddItemxList.Item(n).childNod春提京体场看孩汉扬运es.Item(i).Text
Nexti
Next保均令未笑并绍备建n
EndIf
EndSub'----------放一个LIST控件