如何从VB.NET中的XML文件构建唯一的树结构

Imports System.Xml

Public Class TreeNode
    Public Name As String
    Public Attributes As Dictionary(Of String, String)
    Public Children As List(Of TreeNode)

    Public Sub New()
        Attributes = New Dictionary(Of String, String)()
        Children = New List(Of TreeNode)()
    End Sub
End Class

Public Class TreeBuilder
    Private Shared Function BuildTree(xmlNode As XmlNode, nodeDict As Dictionary(Of String, TreeNode)) As TreeNode
        Dim treeNode As New TreeNode()
        treeNode.Name = xmlNode.Name

        ' 处理节点属性
        If xmlNode.Attributes IsNot Nothing Then
            For Each attr As XmlAttribute In xmlNode.Attributes
                treeNode.Attributes.Add(attr.Name, attr.Value)
            Next
        End If

        ' 处理子节点
        For Each childNode As XmlNode In xmlNode.ChildNodes
            Dim childTreeNode As TreeNode = Nothing

            ' 检查子节点是否已经存在
            Dim childNodeKey As String = GetNodeKey(childNode)
            If nodeDict.ContainsKey(childNodeKey) Then
                childTreeNode = nodeDict(childNodeKey)
            Else
                childTreeNode = BuildTree(childNode, nodeDict)
                nodeDict.Add(childNodeKey, childTreeNode)
            End If

            treeNode.Children.Add(childTreeNode)
        Next

        Return treeNode
    End Function

    Private Shared Function GetNodeKey(xmlNode As XmlNode) As String
        ' 使用节点路径作为唯一标识符
        Dim nodeKey As String = xmlNode.Name
        Dim parentNode As XmlNode = xmlNode.ParentNode

        While parentNode IsNot Nothing
            nodeKey = parentNode.Name & "/" & nodeKey
            parentNode = parentNode.ParentNode
        End While

        Return nodeKey
    End Function

    Public Shared Function BuildUniqueTree(xmlFilePath As String) As TreeNode
        Dim xmlDoc As New XmlDocument()
        xmlDoc.Load(xmlFilePath)

        Dim rootNode As XmlNode = xmlDoc.DocumentElement
        Dim nodeDict As New Dictionary(Of String, TreeNode)()

        Return BuildTree(rootNode, nodeDict)
    End Function
End Class

' 使用示例
Dim xmlFilePath As String = "path/to/xml/file.xml"
Dim rootTreeNode As TreeNode = TreeBuilder.BuildUniqueTree(xmlFilePath)

' 遍历树结构
Sub TraverseTree(treeNode As TreeNode, level As Integer)
    Console.WriteLine(New String(" "c, level * 2) & treeNode.Name)

    For Each childNode As TreeNode In treeNode.Children
        TraverseTree(childNode, level + 1)
    Next
End Sub

TraverseTree(rootTreeNode, 0)