VB.NET读取XML文件实现技巧分享

'窗体重写 dispose 以清理组件列表。  
Protected Overloads Overrides 
Sub Dispose()Sub Dispose(ByVal 
disposing As Boolean)  
If disposing Then  
If Not (components Is Nothing) 
Then  
components.Dispose()  
End If  
End If  
MyBase.Dispose(disposing)  
End Sub 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

'Windows 窗体设计器所必需的  
Private components As System.
ComponentModel.IContainer  
'注意: 以下过程是 Windows 窗体设计
器所必需的  
'可以使用 Windows 窗体设计器修改此过程。  
'不要使用代码编辑器修改它。  
Friend WithEvents input As System.
Windows.Forms.TextBox  
Friend WithEvents outtext As System.
Windows.Forms.TextBox  
Friend WithEvents Button1 As System.
Windows.Forms.Button  
<System.Diagnostics.DebuggerStepThrough()> 
Private Sub InitializeComponent()
Sub InitializeComponent()  
Me.input = New System.Windows.
Forms.TextBox  
Me.outtext = New System.Windows.
Forms.TextBox  
Me.Button1 = New System.Windows.
Forms.Button  
Me.SuspendLayout()  
'  
'input  
'  
Me.input.Location = New System.
Drawing.Point(16, 8)  
Me.input.Name = "input" 
Me.input.Size = New System.
Drawing.Size(464, 21)  
Me.input.TabIndex = 0 
Me.input.Text = "http://127.0.0.1/
fileup/people.xml" 
'  
'outtext  
'  
Me.outtext.BackColor = System.
Drawing.SystemColors.HighlightText  
Me.outtext.BorderStyle = System.
Windows.Forms.BorderStyle.FixedSingle  
Me.outtext.Location = New 
System.Drawing.Point(0, 40)  
Me.outtext.Multiline = True 
Me.outtext.Name = "outtext" 
Me.outtext.ReadOnly = True 
Me.outtext.ScrollBars = System.
Windows.Forms.ScrollBars.Both  
Me.outtext.Size = New System.
Drawing.Size(624, 472)  
Me.outtext.TabIndex = 1 
Me.outtext.Text = "TextBox2" 
'  
'Button1  
'  
Me.Button1.Location = New 
System.Drawing.Point(504, 8)  
Me.Button1.Name = "Button1" 
Me.Button1.Size = New System.
Drawing.Size(96, 24)  
Me.Button1.TabIndex = 2 
Me.Button1.Text = "读 取" 
'  
'Form1  
'  
Me.AutoScaleBaseSize = New 
System.Drawing.Size(6, 14)  
Me.ClientSize = New System.
Drawing.Size(632, 517)  
Me.Controls.Add(Me.Button1)  
Me.Controls.Add(Me.outtext)  
Me.Controls.Add(Me.input)  
Me.Name = "Form1" 
Me.Text = "Form1" 
Me.ResumeLayout(False)  
End Sub 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.

#End Region  
Private Sub Button1_Click()
Sub Button1_Click(ByVal sender 
As System.Object, ByVal e As 
System.EventArgs) Handles 
Button1.Click  
Dim doc As xmldocument = 
New xmldocument  
Dim y As String  
doc.Load(input.Text)  
Dim rootnode As XmlElement = 
doc.DocumentElement  
outtext.Text = "" 
enumeratenode(rootnode, 0)  
End Su 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub enumeratenode()
Sub enumeratenode(ByVal node 
As XmlNode, ByVal indentval 
As Integer)  
Dim type As String  
Select Case node.NodeType  
Case XmlNodeType.Element  
type = "元素" 
Case XmlNodeType.Text  
type = "文本" 
Case XmlNodeType.Comment  
type = "注释" 
Case Else  
outtext.AppendText(".")  
End Select 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

outtext.AppendText(type & "节点找到")  
Select Case node.NodeType  
Case XmlNodeType.Element  
outtext.AppendText(",name=" 
& node.Name & vbCrLf)  
Case XmlNodeType.Text  
outtext.AppendText(",content=" 
& node.Value & vbCrLf)  
Case XmlNodeType.Comment  
outtext.AppendText(",content=" 
& node.Value & vbCrLf)  
Case Else  
outtext.AppendText(".")  
End Select 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

If Not node.Attributes Is Nothing Then  
If node.Attributes.Count <> 0 Then  
outtext.AppendText("此节点有属性:")  
Dim attr As XmlAttribute  
For Each attr In node.Attributes  
outtext.AppendText(attr.Name 
& " ＝" & attr.Value & vbCrLf)  
Next  
End If  
End If 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

If node.HasChildNodes Then  
outtext.AppendText
("此节点有子节点:" & vbCrLf)  
Dim child As XmlNode  
For Each child In node.ChildNodes  
enumeratenode(child, indentval + 1)  
Next  
End If  
End Sub  
End Class 
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.