vb.net LINQ TO XML读写XML

发布时间：2020-12-17 07:37:53 所属栏目：百科来源：网络整理

导读：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",.N

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",Arial; line-height:26px">15
16
17 Dim person =
18 <%= From p In lp Where p.ID _
19 Select
20<%= p.ID %>
21<%= p.Name %>
22%>
23
24
25 person.Save("C:persons.xml")
26 Process.Start("C:persons.xml")
27
28 Dim departMent =<%= From d In ld _
29 Select
30<%= d.id %>
31<%= d.name %>
32
33 <%= From p In lp Where p.did = d.id _
34 Select
35<%= p.id %>
36<%= p.name %>
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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!