xmldom 使用问题

[jett]

Dim XmlEle As IXMLDOMElement
Dim XmlEleList As IXMLDOMNodeList
如果这样写
strxml="<employee><name>aaa</name></employee>"

XmlDoc.loadXML strXml
Set XmlEleList = XmlDoc.getElementsByTagName("name")
For Each XmlEle In XmlEleList
next

运行正常

但如果这样写
strxml="<employee>" +vbcrlf+ "<name>aaa</name>" +vbcrlf+ "</employee>"
XmlDoc.loadXML strXml
Set XmlEleList = XmlDoc.getElementsByTagName("name")
For Each XmlEle In XmlEleList '在这里报错，类型不匹配.xmlele必须是ixmldomnode才行
next

这是为什么，我用的是msxml4.0

[Earthdog]

我试了你的程序代码，没有任何错误啊！

[mirrorsite]

第二种增加了换行回车标记后，XmlDoc.getElementsByTagName("name")
并不能处理这些非XML标记

因此，通常我们交给解析器的XML文档最好是没有加这些多余的标记。
只是为了在编辑器中，或者清晰的描述结构，才加入了换行回车符

[jett]

那为什么第二句如果XmlEle 换成是ixmldomnode对象则可以呢？

[jett]

不好意思，忘了说了，我还加了个属性xml:space='preserve'
Dim XmlDoc As New DOMDocument40
Dim xmlele As IXMLDOMElement
Dim xmlnode As IXMLDOMNode
Dim xmlstr As String
xmlstr = "<try xml:space='preserve'>" + vbCrLf + "<tryele/>" + vbCrLf + "</try>"
XmlDoc.loadXML xmlstr
For Each xmlele In XmlDoc.documentElement.childNodes
Debug.Print xmlele.xml
Next
' For Each xmlnode In XmlDoc.documentElement.childNodes
' Debug.Print xmlnode.xml
' Next

[jett]

去掉vbCrLf或是xmlele声明成IXMLDOMNode则不会报错

[Tony__Hu]

1. 建议使用这样的循环，这样的效率比较高。
Set XmlEleList = xmlDoc.getElementsByTagName("name")
Dim Counts
Counts = XmlEleList .length - 1
For i = 0 To Counts
MsgBox (XmlEleList .Item(i).xml)
Next

2. 用getElementsByTagName得到是节点的数组，不是元素的数组。
IXMLDOMElement 是元素 和 ixmldomnode 是节点，两者有区别。

[Tony__Hu]

对于第二点，我还要再查查资料看。你有什么发现请告诉我。

[Tony__Hu]

对于第二点不敢肯定，我再去查查资料，你有什么发现请也告诉我

[karma]

weird, this works for me in VB6:

Dim XmlDoc As New MSXML2.DOMDocument40
Dim XmlEle As IXMLDOMElement
Dim XmlEleList As IXMLDOMNodeList
strXml = "<employee><name>aaa</name></employee>"

XmlDoc.loadXML strXml
Set XmlEleList = XmlDoc.getElementsByTagName("name")
For Each XmlEle In XmlEleList
MsgBox XmlEle.Text
Next

strXml = "<employee>" + vbCrLf + "<name>aaa</name>" + vbCrLf + "</employee>"
XmlDoc.loadXML strXml
Set XmlEleList = XmlDoc.getElementsByTagName("name")
For Each XmlEle In XmlEleList
MsgBox XmlEle.Text
Next