VB.NET讀取XML文件實現技巧分享
作者：佚名
VB.NET讀取XML文件是開發人員經常會使用到的一個編程操作。初學者們在學習的過程中需要對這樣的基礎方法進行詳細的解讀，才能方便以后的應用。
VB.NET未開發人員帶來了不一樣的開發方式。其中特有的各種特點和語言特性為編程人員開發程序提供了很大的幫助。我們今天就來看一段實現VB.NET讀取XML文件的VB代碼。使用了遞歸方式。#t#
VB.NET讀取XML文件代碼如下：
- Imports System.xml
- Public Class Form1Class Form1
- Inherits System.Windows.Forms.Form
- #Region " Windows 窗體設計器生成的代碼 "
- Public Sub New()Sub New()
- MyBase.New()
- '該調用是 Windows 窗體設計器所必需的。
- InitializeComponent()
- '在 InitializeComponent()
調用之后添加任何初始化 - End Sub
- '窗體重寫 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
- '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
- #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
- 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
- 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
- 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
- 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
VB.NET讀取XML文件實現代碼的編寫方法如上所示。
責任編輯：曹凱
來源：
博客園
