vb.net LINQ TO XML读写XML

 

 1Imports System.Linq
 2Imports System.Xml.Linq
 3
 4Public Class xmlDemoClass xmlDemo
 5    Public Shared Sub CreateXml()Sub CreateXml()
 6        Dim ld As New List(Of Object)
 7        ld.Add(New With {.ID = "1", .Name = "人事"})
 8        ld.Add(New With {.ID = "2", .Name = "业务"})
 9

        Dim lp As New List(Of Object)
        lp.Add(New With {.ID = "1", .Name = "jim", .DID = "1"})
        lp.Add(New With {.ID = "2", .Name = "tony", .DID = "2"})
        lp.Add(New With {.ID = "3", .Name = "jesson", .DID = "2"})


        Dim person = <persons>
                         <%= From p In lp Where p.ID _
                             Select <person>
                                        <ID><%= p.ID %></ID>
                                        <Name><%= p.Name %></Name>
                                    </person> %>

                     </persons>
        person.Save("C:\persons.xml")
        Process.Start("C:\persons.xml")

        Dim departMent = <department><%= From d In ld _
                                         Select <depinfo>
                                                    <id><%= d.id %></id>
                                                    <name><%= d.name %></name>
                                                    <persons>
                                                        <%= From p In lp Where p.did = d.id _
                                                            Select <person>
                                                                       <id><%= p.id %></id>
                                                                       <name><%= p.name %></name>
                                                                   </person> %>
                                                    </persons>
                                                </depinfo> %>
                         </department>
        departMent.Save("c:\departMent.xml")
        Process.Start("c:\departMent.xml")

       
    End Sub
    Public Shared Sub readXML()Sub readXML()
       
        Dim xdoc = XDocument.Load("C:\persons.xml")
        Dim ps = From p In xdoc.Descendants("person") _
                Select New With {.ID = p.Element("ID").Value, .Name = p.Element("Name").Value}
        For Each p In ps
            MsgBox(p.ID & Space(3) & p.Name)
        Next
    End Sub
End Class