VB代码无法获取XML中<ValueString>节点文本的问题求助

问题分析 #

你的代码存在两个核心问题：

1. 遍历节点集合时错误使用了.Elements属性：selectNodes返回的IXMLDOMNodeList可直接遍历，无需额外调用.Elements。
2. 未准确定位到<ValueString>节点：当前获取的是<Value>节点，直接取它的.Text会包含节点内的空白字符（换行、缩进），而非目标文本。

另外还有两个细节需要修正：

• ID_VALUE = speed_1若为字符串常量，必须加双引号（ID_VALUE = "Speed_1"），否则会被当作未定义变量处理。
• 建议使用更现代的Msxml2.DOMDocument.6.0替代旧的Microsoft.XMLDOM，兼容性和稳定性更好。

修正方案 #

方案一：直接用XPath定位到ValueString节点 #

通过修改XPath表达式，直接获取目标<ValueString>节点，简化代码逻辑：

Dim colNodesValParam
Dim objNodeValParam
Dim xmlDoc
Dim ID_VALUE

' 使用更推荐的Msxml2组件
Set xmlDoc = CreateObject("Msxml2.DOMDocument.6.0")
xmlDoc.Async = False
' 禁用空白节点保留，避免干扰文本获取
xmlDoc.preserveWhiteSpace = False
xmlDoc.Load(MyFile)
 
ID_VALUE = "Speed_1" ' 字符串常量需加双引号

' 直接定位到ValueString节点
Set colNodesValParam = xmlDoc.selectNodes("OperationsSegment/Parameter[ID='" & ID_VALUE & "']/Value/ValueString")

For Each objNodeValParam In colNodesValParam
    Texte = objNodeValParam.Text
    ' 可添加处理逻辑，比如输出结果
    ' MsgBox "获取到的值：" & Texte
Next

方案二：先定位Value节点，再查找子节点ValueString #

如果需要保留对<Value>节点的操作，可先获取该节点，再通过selectSingleNode定位子节点：

Dim colNodesValParam
Dim objNodeValParam
Dim valueStringNode
Dim xmlDoc
Dim ID_VALUE

Set xmlDoc = CreateObject("Msxml2.DOMDocument.6.0")
xmlDoc.Async = False
xmlDoc.preserveWhiteSpace = False
xmlDoc.Load(MyFile)
 
ID_VALUE = "Speed_1"

Set colNodesValParam = xmlDoc.selectNodes("OperationsSegment/Parameter[ID='" & ID_VALUE & "']/Value")

For Each objNodeValParam In colNodesValParam
    ' 查找当前Value节点下的ValueString子节点
    Set valueStringNode = objNodeValParam.selectSingleNode("ValueString")
    ' 避免节点不存在导致错误
    If Not valueStringNode Is Nothing Then
        Texte = valueStringNode.Text
        ' 处理文本
    End If
Next

关键说明 #

• preserveWhiteSpace = False：禁用空白节点保留，确保获取的.Text不包含XML中的换行、缩进等无效空白字符。
• XML标签大小写敏感：XPath中的节点名称必须和XML中的标签完全一致（比如XML中是<ValueString>，XPath不能写成小写的valuestring）。

内容的提问来源于stack exchange，提问作者Gaëtan Mauger