如何在VB.NET递归读取XML文档时规避无限循环并遍历未访问文件

这个问题的核心是避免重复访问已经处理过的文件——只要我们能追踪哪些文件已经被遍历过，就能轻松跳出循环，同时不会漏掉未访问的节点。这里有个简单高效的解决方案，用VB.NET实现：

核心思路 #

使用一个**哈希集合（HashSet）**来记录已经访问过的文件名：

• 每次进入递归方法时，先检查当前文件是否已经在集合中：如果是，直接返回，跳过处理；如果不是，将其加入集合后再继续处理。
• 哈希集合的查找操作是O(1)时间复杂度，即使面对大量XML文件也能保持高效，完美适配“循环可能出现在任意位置”的场景。

修改后的代码实现 #

' 对外暴露的入口方法，自动初始化已访问文件集合
Public Sub Get_Next_Link(startFilename As String)
    Dim visitedFiles As New HashSet(Of String)()
    Get_Next_Link(startFilename, visitedFiles)
End Sub

' 实际递归处理的私有方法，携带已访问集合参数
Private Sub Get_Next_Link(filename As String, visitedFiles As HashSet(Of String))
    ' 检查当前文件是否已被处理过，避免循环
    If visitedFiles.Contains(filename) Then
        Return
    End If

    ' 将当前文件标记为已访问
    visitedFiles.Add(filename)

    Dim xDoc As New XmlDocument()
    Try
        xDoc.Load(filename)
    Catch ex As Exception
        ' 处理文件加载异常（比如文件不存在、格式错误等）
        Console.WriteLine($"加载文件失败 {filename}: {ex.Message}")
        Return
    End If

    Dim xNodeList As XmlNodeList = xDoc.SelectNodes("//link")
    For Each xNode As XmlNode In xNodeList
        ' 安全获取xlink属性值，避免空引用
        Dim xlinkValue As String = xNode.Attributes("xlink")?.Value
        If Not String.IsNullOrEmpty(xlinkValue) Then
            Dim nextFilename As String = $"{xlinkValue}.xml"
            ' 递归调用时传递同一个已访问集合，确保全局追踪
            Get_Next_Link(nextFilename, visitedFiles)
        End If
    Next
End Sub

工作流程演示（针对你的示例） #

当从123.xml开始调用时：

1. 123.xml未被访问，加入集合，处理它的三个link：ABC.xml、DEF.xml、GHI.xml。
2. 处理ABC.xml：未被访问，加入集合，处理它的link JKL.xml。
3. 处理JKL.xml：未被访问，加入集合，处理它的link ABC.xml——此时ABC.xml已在集合中，直接返回，避免了无限循环。
4. 回到ABC.xml的循环，处理完JKL.xml后，回到123.xml的循环，继续处理DEF.xml（未被访问，加入集合，无link，返回），再处理GHI.xml（未被访问，加入集合，无link，返回）。
5. 所有文件处理完毕，没有循环，也未漏掉任何未访问的文件。

额外优化点 #

• 加入了Try-Catch块处理文件加载异常，避免因某个文件损坏或不存在导致整个遍历崩溃。
• 安全获取xlink属性值（使用?.空传播运算符），避免空引用错误。

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