VB.NET怎么读取XML文件-成都创新互联网站建设

成都创新互联网站制作

028-86922220

关于创新互联

多方位宣传企业产品与服务 突出企业形象

公司简介 公司的服务 荣誉资质 新闻动态 联系我们

VB.NET怎么读取XML文件

这篇文章主要介绍“VB.NET怎么读取XML文件”，在日常操作中，相信很多人在VB.NET怎么读取XML文件问题上存在疑惑，小编查阅了各式资料，整理出简单好用的操作方法，希望对大家解答”VB.NET怎么读取XML文件”的疑惑有所帮助！接下来，请跟着小编一起来学习吧！

在龙海等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都做网站、成都网站设计 网站设计制作按需策划,公司网站建设,企业网站建设,高端网站设计,网络营销推广,外贸网站制作,龙海网站建设费用合理。

VB.NET未开发人员带来了不一样的开发方式。其中特有的各种特点和语言特性为编程人员开发程序提供了很大的帮助。我们今天就来看一段实现VB.NET读取XML文件的VB代码。使用了递归方式。

  • VB.NET Socket编程实际操作方法介绍

  • 迅速掌握VB.NET读取INI文件操作方法

  • VB.NET Hashtable用法相关概念详解

  • VB.NET键盘事件相关内容概览

  • VB.NET正则表达式应用经验分享

VB.NET读取XML文件代码如下：

  1. Imports System.xml  

  2. Public Class Form1Class Form1  

  3. Inherits System.Windows.Forms.Form  

  4. #Region " Windows 窗体设计器生成的代码 "  

  5. Public Sub New()Sub New()  

  6. MyBase.New()  

  7. '该调用是 Windows 窗体设计器所必需的。  

  8. InitializeComponent()  

  9. '在 InitializeComponent() 
    调用之后添加任何初始化  

  10. End Sub 

  1. '窗体重写 dispose 以清理组件列表。  
  2. Protected Overloads Overrides 
    Sub Dispose()Sub Dispose(ByVal 
    disposing As Boolean)  
  3. If disposing Then  
  4. If Not (components Is Nothing) 
    Then  
  5. components.Dispose()  
  6. End If  
  7. End If  
  8. MyBase.Dispose(disposing)  
  9. End Sub 
  1. 'Windows 窗体设计器所必需的  
  2. Private components As System.
    ComponentModel.IContainer  
  3. '注意: 以下过程是 Windows 窗体设计
    器所必需的  
  4. '可以使用 Windows 窗体设计器修改此过程。  
  5. '不要使用代码编辑器修改它。  
  6. Friend WithEvents input As System.
    Windows.Forms.TextBox  
  7. Friend WithEvents outtext As System.
    Windows.Forms.TextBox  
  8. Friend WithEvents Button1 As System.
    Windows.Forms.Button  
  9.  
    Private Sub InitializeComponent()
    Sub InitializeComponent()  
  10. Me.input = New System.Windows.
    Forms.TextBox  
  11. Me.outtext = New System.Windows.
    Forms.TextBox  
  12. Me.Button1 = New System.Windows.
    Forms.Button  
  13. Me.SuspendLayout()  
  14. '  
  15. 'input  
  16. '  
  17. Me.input.Location = New System.
    Drawing.Point(16, 8)  
  18. Me.input.Name = "input" 
  19. Me.input.Size = New System.
    Drawing.Size(464, 21)  
  20. Me.input.TabIndex = 0 
  21. Me.input.Text = "http://127.0.0.1/
    fileup/people.xml" 
  22. '  
  23. 'outtext  
  24. '  
  25. Me.outtext.BackColor = System.
    Drawing.SystemColors.HighlightText  
  26. Me.outtext.BorderStyle = System.
    Windows.Forms.BorderStyle.FixedSingle  
  27. Me.outtext.Location = New 
    System.Drawing.Point(0, 40)  
  28. Me.outtext.Multiline = True 
  29. Me.outtext.Name = "outtext" 
  30. Me.outtext.ReadOnly = True 
  31. Me.outtext.ScrollBars = System.
    Windows.Forms.ScrollBars.Both  
  32. Me.outtext.Size = New System.
    Drawing.Size(624, 472)  
  33. Me.outtext.TabIndex = 1 
  34. Me.outtext.Text = "TextBox2" 
  35. '  
  36. 'Button1  
  37. '  
  38. Me.Button1.Location = New 
    System.Drawing.Point(504, 8)  
  39. Me.Button1.Name = "Button1" 
  40. Me.Button1.Size = New System.
    Drawing.Size(96, 24)  
  41. Me.Button1.TabIndex = 2 
  42. Me.Button1.Text = "读 取" 
  43. '  
  44. 'Form1  
  45. '  
  46. Me.AutoScaleBaseSize = New 
    System.Drawing.Size(6, 14)  
  47. Me.ClientSize = New System.
    Drawing.Size(632, 517)  
  48. Me.Controls.Add(Me.Button1)  
  49. Me.Controls.Add(Me.outtext)  
  50. Me.Controls.Add(Me.input)  
  51. Me.Name = "Form1" 
  52. Me.Text = "Form1" 
  53. Me.ResumeLayout(False)  
  54. End Sub 
  1. #End Region  
  2. Private Sub Button1_Click()
    Sub Button1_Click(ByVal sender 
    As System.Object, ByVal e As 
    System.EventArgs) Handles 
    Button1.Click  
  3. Dim doc As xmldocument = 
    New xmldocument  
  4. Dim y As String  
  5. doc.Load(input.Text)  
  6. Dim rootnode As XmlElement = 
    doc.DocumentElement  
  7. outtext.Text = "" 
  8. enumeratenode(rootnode, 0)  
  9. End Su 
  1. Private Sub enumeratenode()
    Sub enumeratenode(ByVal node 
    As XmlNode, ByVal indentval 
    As Integer)  
  2. Dim type As String  
  3. Select Case node.NodeType  
  4. Case XmlNodeType.Element  
  5. type = "元素" 
  6. Case XmlNodeType.Text  
  7. type = "文本" 
  8. Case XmlNodeType.Comment  
  9. type = "注释" 
  10. Case Else  
  11. outtext.AppendText(".")  
  12. End Select 
  1. outtext.AppendText(type & "节点找到")  
  2. Select Case node.NodeType  
  3. Case XmlNodeType.Element  
  4. outtext.AppendText(",name=" 
    & node.Name & vbCrLf)  
  5. Case XmlNodeType.Text  
  6. outtext.AppendText(",content=" 
    & node.Value & vbCrLf)  
  7. Case XmlNodeType.Comment  
  8. outtext.AppendText(",content=" 
    & node.Value & vbCrLf)  
  9. Case Else  
  10. outtext.AppendText(".")  
  11. End Select 
  1. If Not node.Attributes Is Nothing Then  
  2. If node.Attributes.Count <> 0 Then  
  3. outtext.AppendText("此节点有属性:")  
  4. Dim attr As XmlAttribute  
  5. For Each attr In node.Attributes  
  6. outtext.AppendText(attr.Name 
    & " ＝" & attr.Value & vbCrLf)  
  7. Next  
  8. End If  
  9. End If 
  1. If node.HasChildNodes Then  
  2. outtext.AppendText
    ("此节点有子节点:" & vbCrLf)  
  3. Dim child As XmlNode  
  4. For Each child In node.ChildNodes  
  5. enumeratenode(child, indentval + 1)  
  6. Next  
  7. End If  
  8. End Sub  
  9. End Class 

到此，关于“VB.NET怎么读取XML文件”的学习就结束了，希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习，快去试试吧！若想继续学习更多相关知识，请继续关注创新互联网站，小编会继续努力为大家带来更多实用的文章！


名称栏目：VB.NET怎么读取XML文件
新闻来源：http://kswsj.cn/article/ihdhcc.html

其他资讯