Visual Basic 处理 XML

Extensible Markup Language (XML) 扩展标记语言是一种很像 HTML 或 SGML 的标记语言。它是万维网联盟推荐的，并作为开放标准提供的。

.Net Framework 中的 System.Xml 包含用于处理 XML 文档的类。

以下是 System.Xml 中常用的一些类:

XML Parser API

XML 数据的两个最基本和最广泛使用的 API 是 SAX 和 DOM 接口。

• XML 的简单 API（SAX）− 在这里，您为事件注册回调，然后让解析器遍历文档。当您的文档很大或内存有限时很有用，它会在从磁盘读取文件时解析文件，并且整个文件从不存储在内存中。
• 文档对象模型（DOM）API— 它是万维网联盟的推荐的，其中整个文件被读入内存，并以分层（基于树）形式存储，以表示 XML 文档的所有功能。

对于所有 XML 代码示例，让我们使用一个简单的 XML 文件 movies.xml 作为输入:

<?xml version = "1.0"?>
<collection shelf = "New Arrivals">
  <movie title = "Enemy Behind">
   <type>War, Thriller</type>
   <format>DVD</format>
   <year>2003</year>
   <rating>PG</rating>
   <stars>10</stars>
   <description>Talk about a US-Japan war</description>
  </movie>
  <movie title = "Transformers">
   <type>Anime, Science Fiction</type>
   <format>DVD</format>
   <year>1989</year>
   <rating>R</rating>
   <stars>8</stars>
   <description>A schientific fiction</description>
  </movie>
  <movie title = "Trigun">
   <type>Anime, Action</type>
   <format>DVD</format>
   <episodes>4</episodes>
   <rating>PG</rating>
   <stars>10</stars>
   <description>Vash the Stampede!</description>
  </movie>
  <movie title = "Ishtar">
   <type>Comedy</type>
   <format>VHS</format>
   <rating>PG</rating>
   <stars>2</stars>
   <description>Viewable boredom</description>
  </movie>
</collection>

使用 SAX API 解析 XML

在 SAX 模型中，您使用 XmlReader 和 XmlWriter 类来处理 XML 数据。

XmlReader 类用于以快速、仅向前和非缓存的方式读取 XML 数据。它读取 XML 文档或流。

实例 1

此实例演示如何从文件中读取 XML 数据 movies.xml。

使用以下步骤:

• 将文件 movies.xml 添加到应用程序的 bin\Debug 文件夹中。
• 在 Form.vb 文件中导入命名空间 System.Xml。
• 在表单中添加标签，并将其文本更改为 'Movies Galore'。
• 添加三个列表框和三个按钮，以显示 xml 文件中电影的标题、类型和描述。
• 使用代码编辑器窗口添加以下代码。

Imports System.Xml
Public Class Form1
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ' Set the caption bar text of the form.
   Me.Text = "cankaoshouce.com"
  End Sub
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   ListBox1().Items.Clear()
   Dim xr As XmlReader = XmlReader.Create("movies.xml")
   Do While xr.Read()
     If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "movie" Then
      ListBox1.Items.Add(xr.GetAttribute(0))
     End If
   Loop
  End Sub
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
   ListBox2().Items.Clear()
   Dim xr As XmlReader = XmlReader.Create("movies.xml")
   Do While xr.Read()
     If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "type" Then
      ListBox2.Items.Add(xr.ReadElementString)
     Else
      xr.Read()
     End If
   Loop
  End Sub
  Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
   ListBox3().Items.Clear()
   Dim xr As XmlReader = XmlReader.Create("movies.xml")
   Do While xr.Read()
     If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "description" Then
      ListBox3.Items.Add(xr.ReadElementString)
     Else
      xr.Read()
     End If
   Loop
  End Sub
End Class

使用 Microsoft Visual Studio 工具栏上的 开始 按钮执行并运行上述代码。单击按钮将显示文件中电影的标题、类型和描述。

XmlWriter 类用于将 XML 数据写入流、文件或 TextWriter 对象。它还以仅向前、非缓存的方式运行。

实例 2

让我们通过在运行时添加一些数据来创建一个 XML 文件。

使用以下步骤：

• 在表单中添加 WebBrowser 控件和 button 控件。
• 更改按钮的文本属性为 Show Authors 文件。
• 在代码编辑器中添加以下代码。

Imports System.Xml
Public Class Form1
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ' Set the caption bar text of the form.
   Me.Text = "cankaoshouce.com"
  End Sub
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim xws As XmlWriterSettings = New XmlWriterSettings()
   xws.Indent = True
   xws.NewLineOnAttributes = True
   Dim xw As XmlWriter = XmlWriter.Create("authors.xml", xws)
   xw.WriteStartDocument()
   xw.WriteStartElement("Authors")
   xw.WriteStartElement("author")
   xw.WriteAttributeString("code", "1")
   xw.WriteElementString("fname", "Zara")
   xw.WriteElementString("lname", "Ali")
   xw.WriteEndElement()
   xw.WriteStartElement("author")
   xw.WriteAttributeString("code", "2")
   xw.WriteElementString("fname", "Priya")
   xw.WriteElementString("lname", "Sharma")
   xw.WriteEndElement()
   xw.WriteStartElement("author")
   xw.WriteAttributeString("code", "3")
   xw.WriteElementString("fname", "Anshuman")
   xw.WriteElementString("lname", "Mohan")
   xw.WriteEndElement()
   xw.WriteStartElement("author")
   xw.WriteAttributeString("code", "4")
   xw.WriteElementString("fname", "Bibhuti")
   xw.WriteElementString("lname", "Banerjee")
   xw.WriteEndElement()
   xw.WriteStartElement("author")
   xw.WriteAttributeString("code", "5")
   xw.WriteElementString("fname", "Riyan")
   xw.WriteElementString("lname", "Sengupta")
   xw.WriteEndElement()
   xw.WriteEndElement()
   xw.WriteEndDocument()
   xw.Flush()
   xw.Close()
   WebBrowser1.Url = New Uri(AppDomain.CurrentDomain.BaseDirectory + "authors.xml")
  End Sub
End Class

• 使用 Microsoft Visual Studio 工具栏上的 开始 按钮执行并运行上述代码。单击 Show Author 文件将在 web 浏览器上显示新创建的 authors.xml 文件。

使用 DOM API 解析 XML

根据文档对象模型（DOM），XML 文档由节点和节点的属性组成。

XmlDocument 类用于实现 .Net Framework 的 XML DOM 解析器。它还让您可以通过插入、删除或更新文档中的数据来修改现有 XML 文档。

以下是 XmlDocument 类的一些常用方法:

实例 3

在本例中，让我们在 xml 文档作者中插入一些新节点。然后在列表框中显示所有作者的名字。

使用以下步骤:

• 将 authors.xml 文件添加到应用程序的 bin/Debug 文件夹( 如果您尝试了最后一个实例，它应该在那里)。
• 导入 System.Xml 命名空间。
• 在表单中添加列表框和按钮控件，并设置按钮控件的文本属性设置为 Show Authors。
• 使用代码编辑器添加以下代码。

Imports System.Xml
Public Class Form1
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ' Set the caption bar text of the form.
   Me.Text = "cankaoshouce.com"
  End Sub
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   ListBox1.Items.Clear()
   Dim xd As XmlDocument = New XmlDocument()
   xd.Load("authors.xml")
   Dim newAuthor As XmlElement = xd.CreateElement("author")
   newAuthor.SetAttribute("code", "6")
   Dim fn As XmlElement = xd.CreateElement("fname")
   fn.InnerText = "Bikram"
   newAuthor.AppendChild(fn)
   Dim ln As XmlElement = xd.CreateElement("lname")
   ln.InnerText = "Seth"
   newAuthor.AppendChild(ln)
   xd.DocumentElement.AppendChild(newAuthor)
   Dim tr As XmlTextWriter = New XmlTextWriter("movies.xml", Nothing)
   tr.Formatting = Formatting.Indented
   xd.WriteContentTo(tr)
   tr.Close()
   Dim nl As XmlNodeList = xd.GetElementsByTagName("fname")
   For Each node As XmlNode In nl
     ListBox1.Items.Add(node.InnerText)
   Next node
  End Sub
End Class

• 使用 Microsoft Visual Studio 工具栏上的 开始 按钮执行并运行上述代码。单击 Show Author 按钮将显示所有作者的名字，包括我们在运行时添加的作者。