VB.NET讀取XML文件實(shí)現(xiàn)技巧分享
作者：佚名
VB.NET讀取XML文件是開發(fā)人員經(jīng)常會(huì)使用到的一個(gè)編程操作。初學(xué)者們?cè)趯W(xué)習(xí)的過程中需要對(duì)這樣的基礎(chǔ)方法進(jìn)行詳細(xì)的解讀，才能方便以后的應(yīng)用。
VB.NET未開發(fā)人員帶來了不一樣的開發(fā)方式。其中特有的各種特點(diǎn)和語言特性為編程人員開發(fā)程序提供了很大的幫助。我們今天就來看一段實(shí)現(xiàn)VB.NET讀取XML文件的VB代碼。使用了遞歸方式。#t#
VB.NET讀取XML文件代碼如下：
- Imports System.xml
- Public Class Form1Class Form1
- Inherits System.Windows.Forms.Form
- #Region " Windows 窗體設(shè)計(jì)器生成的代碼 "
- Public Sub New()Sub New()
- MyBase.New()
- '該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。
- InitializeComponent()
- '在 InitializeComponent()
調(diào)用之后添加任何初始化 - 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 窗體設(shè)計(jì)器所必需的
- Private components As System.
ComponentModel.IContainer- '注意: 以下過程是 Windows 窗體設(shè)計(jì)
器所必需的- '可以使用 Windows 窗體設(shè)計(jì)器修改此過程。
- '不要使用代碼編輯器修改它。
- 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 & "節(jié)點(diǎn)找到")
- 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("此節(jié)點(diǎn)有屬性:")
- 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
("此節(jié)點(diǎn)有子節(jié)點(diǎn):" & 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文件實(shí)現(xiàn)代碼的編寫方法如上所示。
責(zé)任編輯：曹凱
來源：
博客園
