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
10
11        Dim lp As New List(Of Object)
12        lp.Add(New With {.ID = "1", .Name = "jim", .DID = "1"})
13        lp.Add(New With {.ID = "2", .Name = "tony", .DID = "2"})
14        lp.Add(New With {.ID = "3", .Name = "jesson", .DID = "2"})
15
16
17        Dim person =
18                         19                             Select
20                                       
21                                       
22                                    %>
23
24                    
25        person.Save("C:\persons.xml")
26        Process.Start("C:\persons.xml")
27
28        Dim departMent = 29                                         Select
30                                                   
31                                                   
32                                                   
33                                                        34                                                            Select
35                                                                      
36                                                                      
37                                                                   %>
38                                                   
39                                                %>
40                        
41        departMent.Save("c:\departMent.xml")
42        Process.Start("c:\departMent.xml")
43
44      
45    End Sub
46    Public Shared Sub readXML()Sub readXML()
47      
48        Dim xdoc = XDocument.Load("C:\persons.xml")
49        Dim ps = From p In xdoc.Descendants("person") _
50                Select New With {.ID = p.Element("ID").Value, .Name = p.Element("Name").Value}
51        For Each p In ps
52            MsgBox(p.ID & Space(3) & p.Name)
53        Next
54    End Sub
55End Class
56
57

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/12639172/viewspace-548714/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/12639172/viewspace-548714/