VB 2010使用XDocument根据后代节点文本删除XML节点报错解决

问题原因 #

1. 目标节点查询返回null后直接调用Remove：使用SingleOrDefault/FirstOrDefault查找节点时，若没有匹配项会返回null，直接调用Remove()实例方法会触发该异常（方法要求源节点非null）。
2. XML文档加载失败导致XDocument实例为null：如果文件不存在、格式错误等原因导致XDocument加载失败且未处理，后续调用Descendants()时会因为源（文档本身）为null抛出异常。
3. 未判断后代节点是否存在就访问Value：部分父节点没有<description>子节点时，直接访问x.Element("description").Value会先触发空引用异常，干扰后续代码执行（虽非ArgumentNullException直接原因，但会引发连锁问题）。

解决方法 #

方法1：处理单节点查询的null情况 #

先判断节点是否存在，再执行删除操作，同时提前检查后代节点是否存在：

Dim doc As XDocument = XDocument.Load("your_file.xml")
' 先判断description节点存在，再匹配文本值
Dim targetNode = doc.Descendants("item").FirstOrDefault(Function(x)
    Dim descElement = x.Element("description")
    Return descElement IsNot Nothing AndAlso descElement.Value = "要删除的文本"
End Function)

' 确认节点非null后删除
If targetNode IsNot Nothing Then
    targetNode.Remove()
    doc.Save("your_file.xml")
End If

方法2：确保XML文档加载有效 #

添加加载异常处理，避免基于null文档执行操作：

Dim doc As XDocument = Nothing
Try
    doc = XDocument.Load("your_file.xml")
Catch ex As Exception
    Console.WriteLine($"XML加载失败: {ex.Message}")
    Exit Sub
End If

If doc IsNot Nothing Then
    ' 批量过滤并删除匹配节点
    Dim nodesToRemove = doc.Descendants("item").Where(Function(x)
        Dim descNode = x.Element("description")
        Return descNode IsNot Nothing AndAlso descNode.Value.Trim() = "目标描述文本"
    End Function)
    nodesToRemove.Remove()
    doc.Save("your_file.xml")
End If

方法3：安全批量删除节点 #

直接过滤所有匹配节点后调用Remove扩展方法，空集合调用该方法不会报错：

Dim doc As XDocument = XDocument.Load("your_file.xml")
' 过滤出符合条件的节点（先确保description节点存在）
Dim nodesToRemove = doc.Descendants("item").Where(Function(x)
    Dim descElement = x.Element("description")
    Return descElement IsNot Nothing AndAlso descElement.Value = "要删除的文本"
End Function)

nodesToRemove.Remove()
doc.Save("your_file.xml")

关键注意事项 #

• 访问XElement.Value前必须先判断节点是否为null，避免空引用异常。
• 批量删除时直接操作IEnumerable(Of XElement)集合的Remove方法，无需单独判断每个节点，空集合无报错风险。
• XML加载环节必须处理异常，确保文档实例有效后再执行后续操作。

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