VB.NET讀取XML文件實(shí)現(xiàn)技巧分享

作者：佚名 2010-01-07 13:40:50

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)和語(yǔ)言特性為編程人員開發(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é)任編輯：曹凱來源：博客園

VB.NET讀取XML文件