神武八荒一颗小说,懒人听书

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

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

VB.NET未開發(fā)人員帶來了不一樣的開發(fā)方式。其中特有的各種特點(diǎn)和語言特性為編程人員開發(fā)程序提供了很大的幫助。我們今天就來看一段實(shí)現(xiàn)VB.NET讀取XML文件的VB代碼。使用了遞歸方式。#t#

發(fā)展壯大離不開廣大客戶長期以來的信賴與支持，我們將始終秉承“誠信為本、服務(wù)至上”的服務(wù)理念，堅持“二合一”的優(yōu)良服務(wù)模式，真誠服務(wù)每家企業(yè)，認(rèn)真做好每個細(xì)節(jié)，不斷完善自我，成就企業(yè)，實(shí)現(xiàn)共贏。行業(yè)涉及成都衛(wèi)生間隔斷等，在重慶網(wǎng)站建設(shè)、全網(wǎng)整合營銷推廣、WAP手機(jī)網(wǎng)站、VI設(shè)計、軟件開發(fā)等項(xiàng)目上具有豐富的設(shè)計經(jīng)驗(yàn)。

VB.NET讀取XML文件代碼如下：

Imports System.xml
Public Class Form1Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗體設(shè)計器生成的代碼 "
Public Sub New()Sub New()
MyBase.New()
'該調(diào)用是 Windows 窗體設(shè)計器所必需的。
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è)計器所必需的    
  
  Private components As System.
ComponentModel.IContainer    
  
  '注意: 以下過程是 Windows 窗體設(shè)計
器所必需的    
  
  '可以使用 Windows 窗體設(shè)計器修改此過程。    
  
  '不要使用代碼編輯器修改它。    
  
  Friend WithEvents input As System.
Windows.Forms.TextBox    
  
  Friend WithEvents outtext As System.
Windows.Forms.TextBox    
  
  Friend WithEvents Button1 As System.
Windows.Forms.Button    
  
   
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)代碼的編寫方法如上所示。

網(wǎng)頁標(biāo)題：VB.NET讀取XML文件實(shí)現(xiàn)技巧分享
網(wǎng)站URL：http://fisionsoft.com.cn/article/dphccjg.html

新聞中心

其他資訊