vb.net读取多层xml文件代码

  Public Sub GetModuleDataFromXml()
        Dim reader As New XmlTextReader(DataFilename)
        'move to the strat of the document
        reader.MoveToContent()
        'start working through the document

        Dim addressData As Collection = Nothing
        Dim elementName As String = Nothing
        Try
            Do While reader.Read
                'what kind of node to we have?
                Select Case reader.NodeType
                    'is it the start of an element
                    Case XmlNodeType.Element
                        'if it's an element start,is it "Address"
                        If reader.Name = "Car" Then
                            'if so,create a new collection..
                            addressData = New Collection()
                        Else
                            'if not ,record the name of the collection
                            elementName = reader.Name

                        End If
                        'if we have some text,try storing it in the collection...
                    Case XmlNodeType.Text
                        'do we have an address?
                        If Not addressData Is Nothing Then
                            addressData.Add(reader.Value, elementName)
                        End If
                    Case XmlNodeType.EndElement
                        'if it is, we should have an entire address stored...
                        If reader.Name = "Car" Then

                            Try
                                With Me
                                    .Label1.Text = addressData("label1")
                                    .Label2.Text = addressData("label2")
                                    .Label3.Text = addressData("label3")
                                    .Label4.Text = addressData("label4")
                                    .Label5.Text = addressData("label5")

                                End With
                                'With carTest

                                '    .strCarStyle = addressData("firstname")
                                '    .strEngine = addressData("lastname")
                                '    .intCareer = addressData("address1")
                                '    .strRefrigerationStyle = addressData("address2")
                                '    .intCylinderNum = addressData("region")

                                'End With
                                'carTest()
                                'carTest()
                                'item = addressData("firstname") & " " & addressData("lastname")
                                'item &= "(" & addressData("email") & ")"
                            Catch ex As Exception
                            End Try

                            'reset...
                            addressData = Nothing
                        End If
                End Select
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If (reader IsNot Nothing) Then
                reader.Close()
            End If

        End Try

    End Sub