基于VB.NET Framework4.8实现XML文件参数节点存在性检测

下面提供两种实用的实现方案，适配不同的代码风格需求：

方法1：传统DOM操作（XmlDocument） #

通过XPath定位节点，适合熟悉传统XML操作的场景：

Imports System.Xml

Public Function IsParameterExists(xmlFilePath As String, targetParamName As String) As Boolean
    Dim doc As New XmlDocument()
    Try
        doc.Load(xmlFilePath)
        ' 转义参数名称中的单引号，避免XPath语法错误
        Dim safeParamName = targetParamName.Replace("'", "''")
        ' 用XPath匹配PARAMETER节点下的NAME元素文本
        Dim xpathQuery = $"//PARAMETER/NAME[text()='{safeParamName}']"
        Dim matchedNode As XmlNode = doc.SelectSingleNode(xpathQuery)
        Return matchedNode IsNot Nothing
    Catch ex As Exception
        ' 根据实际需求处理异常，比如日志记录
        Console.WriteLine($"检测出错：{ex.Message}")
        Return False
    End Try
End Function

调用示例：

Dim paramExists As Boolean = IsParameterExists("C:\YourXmlFile.xml", "Vitesse pendant la correction")
Console.WriteLine($"目标参数是否存在：{paramExists}")

方法2：LINQ to XML（简洁风格） #

用LINQ语法实现更直观的节点查询，代码更紧凑：

Imports System.Xml.Linq

Public Function IsParameterExistsLinq(xmlFilePath As String, targetParamName As String) As Boolean
    Try
        Dim xDoc As XDocument = XDocument.Load(xmlFilePath)
        ' 遍历所有PARAMETER节点，匹配NAME元素的文本（自动处理前后空格）
        Dim exists = xDoc.Descendants("PARAMETER").Any(
            Function(p) 
                Dim nameElement = p.Element("NAME")
                Return nameElement IsNot Nothing AndAlso 
                       nameElement.Value.Trim() = targetParamName.Trim()
            End Function
        )
        Return exists
    Catch ex As Exception
        Console.WriteLine($"检测出错：{ex.Message}")
        Return False
    End Try
End Function

注意事项 #

• 确保程序对目标XML文件有读取权限
• 如果XML中NAME节点的文本包含特殊格式（如换行、多余空格），可根据实际情况调整Trim()的使用
• 异常处理逻辑可根据项目需求扩展（如写入日志而非仅输出控制台）

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