为什么Object.SelectNodes(XPath)
如果前一个节点(真正的第一个节点值)为空,则作为第一个节点值获取第二个节点值。
下面的例子:
XML:
<?xml version="1.0" encoding="UTF-8"?>
<Document>
<person>
</person>
<person>
<name>Peter</name>
</person>
</Document>
VBA代码:
Dim j as Integer
Dim FileToOpen as Variant
FileToOpen = Application.GetOpenFilename(Filefilter:="XML Files (*.xml), *.xml", _
Title:="Choose XML document ", MultiSelect:=False)
Set XDoc = CreateObject("MSXML2.DOMDocument")
XDoc.async = False: XDoc.validateOnParse = False
XDoc.Load FileToOpen
For j = 1 To 2
Set tofields = XDoc.SelectNodes("//Document/person/name")
If Not (tofields.Item(j)) Is Nothing Then
Debug.Print tofields.Item(j).Text
Else
Debug.Print "Nothing"
End If
Next j
结果:
Peter
Nothing
为什么结果中没有“Nothing”?如何达到?如果父节点不包括第一个子节点,则省略第一次迭代。
谢谢你。
最佳答案
XMLDOM 中的枚举不同于 XPath
XMLDOM 语法枚举 nodes
作为 基于零的 NodeList
中的项目,即从 0
开始,而标识子节点的 XPath 表达式从 1
开始(例如,调用名字项目 "//name[1]"
)。考虑 2
时的错误作为最后一项索引,而不是从 .Item(0)
循环至.Item(1)
在您的示例代码中。您可以通过节点列表的 .Length
获得找到的项目数结果。方法(2 减 1 导致 1 作为最后一个索引号,因此给出 0 到 1 的名称节点系列)。
此外,建议引用 MSXML2 版本 6.0 (MSXML2.DOMDocument
指的是仅出于兼容性原因使用的最后一个稳定版本 3.0)。
进一步的提示,假设您想要遍历所有 人 在您的 XML 文档中(OP 中的节点列表仅提供一项,因为 name
节点仅存在一次):
xDoc.SelectNodes("//Document/person")
或 //person
将在给定节点结构内的任何层次结构级别搜索定义的节点集。因此,明确使用 Set toFields = xDoc.DocumentElement.SelectNodes("person")
更省时在你的情况下。 Nothing
例,因为节点列表显示两个 name
仅节点(For i = 0 To toFields.Length - 1
)。只是为了检查您的原始尝试,您可以通过专心更改为 For i = 0 To toFields.Length
来枚举最多三个项目。 (即 0 to 2
)。 附加链接
通过递归调用分析您的 XML 结构;一个工作函数可以在 Parse XML using XMLDOM 找到.
代码示例
Dim xDoc As Object, toFields As Object
Dim myName As String, i As Long
Set xDoc = CreateObject("MSXML2.DOMDocument.6.0") ' recommended version 6.0 (if late bound MSXML2)
xDoc.async = False: xDoc.validateOnParse = False
' ...
Set toFields = xDoc.DocumentElement.SelectNodes("person")
For i = 0 To toFields.Length - 1
If Not toFields.Item(i) Is Nothing Then
If toFields.Item(i).HasChildNodes Then
myName = toFields.Item(i).SelectSingleNode("name").Text
Debug.Print i, IIf(Len(Trim(myName)) = 0, "**Empty name", myName)
Else
Debug.Print i, "**No name node**"
End If
Else
Debug.Print i, "**Nothing**" ' shouldn't be needed from 0 to .Length-1 items :-)
End If
Next i
关于excel - 如果前一个节点为空,为什么 Object.Selectnodes(XPath) 会获得第一个节点值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55960631/