如何将完整XML节点作为文本传入函数？节点集报错排查

问题背景 #

现有一段提取XML节点的函数调用代码：

mvarXmlSalida = Util.Salida("0", "", xmldoc.SelectSingleNode("//file/"))

对应的Salida函数实现如下：

Public Function Salida(ByVal est As String, ByVal err As String, Optional node As XmlNode = Nothing) As String

    Dim m_xmld = New XmlDocument
    Try
        m_xmld.LoadXml("<tx><estado></estado><info></info></tx>")
        m_xmld.SelectSingleNode("tx/estado").InnerText = est
        m_xmld.SelectSingleNode("tx/info").InnerText = err

        If Not node Is Nothing Then
            m_xmld.SelectSingleNode("//").AppendChild(node)
        End If

    Catch ex As Exception
        m_xmld.InnerText = "Error al cargar nodos de error"
    End Try
    Return m_xmld.InnerXml

End Function

运行时抛出错误：

The expression must be evaluated as a set of nodes.

需求是让函数支持接收单个或多个XML节点，并将完整节点内容整合到返回的XML中，目标XML节点示例如下：

<Transport>
 <file>
    <name>test.txt</name>
    <size>1,52 Kb</size>
    <type>.txt</type>
    <data>test data</data>
    <option>ExactName</option>
  </file>
</Transport>

错误原因 #

报错核心是m_xmld.SelectSingleNode("//")的XPath表达式错误：//会匹配文档中所有节点的集合，而SelectSingleNode要求返回单个节点，导致类型不匹配。另外原函数仅支持单个XmlNode参数，无法处理多节点场景。

修改后的函数实现 #

Public Function Salida(ByVal est As String, ByVal err As String, Optional singleNode As XmlNode = Nothing, Optional nodeList As XmlNodeList = Nothing) As String
    Dim m_xmld = New XmlDocument
    Try
        m_xmld.LoadXml("<tx><estado></estado><info></info></tx>")
        ' 明确选择tx容器节点
        Dim txNode As XmlNode = m_xmld.SelectSingleNode("tx")
        txNode.SelectSingleNode("estado").InnerText = est
        txNode.SelectSingleNode("info").InnerText = err

        ' 处理单个传入节点
        If singleNode IsNot Nothing Then
            ' 导入节点到当前文档，避免跨文档操作异常
            Dim importedNode As XmlNode = m_xmld.ImportNode(singleNode, True)
            txNode.AppendChild(importedNode)
        End If

        ' 处理多个传入节点
        If nodeList IsNot Nothing AndAlso nodeList.Count > 0 Then
            For Each node As XmlNode In nodeList
                Dim importedNode As XmlNode = m_xmld.ImportNode(node, True)
                txNode.AppendChild(importedNode)
            Next
        End If

    Catch ex As Exception
        ' 追加具体错误信息，方便调试
        m_xmld.InnerText = $"Error al cargar nodos de error: {ex.Message}"
    End Try
    Return m_xmld.InnerXml
End Function

调用示例 #

• 单个节点调用：

Dim singleFileNode As XmlNode = xmldoc.SelectSingleNode("//file")
mvarXmlSalida = Util.Salida("0", "", singleNode:=singleFileNode)

• 多个节点调用：

Dim fileNodes As XmlNodeList = xmldoc.SelectNodes("//file")
mvarXmlSalida = Util.Salida("0", "", nodeList:=fileNodes)

关键优化点 #

• 替换错误的//XPath表达式，明确选择tx节点作为容器，避免节点集合匹配问题。
• 新增XmlNodeList参数，同时保留单个节点参数，兼容原有调用逻辑的同时支持多节点场景。
• 使用ImportNode方法导入外部节点，解决跨XML文档节点操作的潜在异常。
• 异常信息中追加具体错误详情，提升调试效率。

内容的提问来源于stack exchange，提问作者chocano14