VB.Net - XML 处理

---

---

可扩展标记语言 (XML) 是一种标记语言，类似于 HTML 或 SGML。这是万维网联盟推荐的开放标准。

.Net Framework 中的System.Xml命名空间包含用于处理 XML 文档的类。以下是 System.Xml 命名空间中一些常用的类。

XML 解析器 API

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

• 用于 XML 的简单 API (SAX) - 在这里，您为感兴趣的事件注册回调，然后让解析器遍历文档。当您的文档很大或您有内存限制时，这很有用，它在从磁盘读取文件时解析文件，并且整个文件永远不会存储在内存中。

• 文档对象模型 (DOM) API - 这是万维网联盟的推荐，其中整个文件被读入内存并存储在分层（基于树）的形式中，以表示 XML 文档的所有特征。

在处理大型文件时，SAX 的处理速度显然不如 DOM 快。另一方面，仅使用 DOM 会严重影响您的资源，尤其是在处理大量小文件时。

SAX 是只读的，而 DOM 允许更改 XML 文件。由于这两个不同的 API 实际上是互补的，因此没有理由不能将它们都用于大型项目。

对于我们所有的 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

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

执行以下步骤 -

• 将 movies.xml 文件添加到应用程序的 bin\Debug 文件夹中。

• 在 Form1.vb 文件中导入 System.Xml 命名空间。

• 在窗体中添加一个标签，并将文本更改为“电影多多”。

• 添加三个列表框和三个按钮，以显示来自 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 = "tutorialspoint.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 控件和一个按钮控件。

• 将按钮的 Text 属性更改为“显示作者文件”。

• 在代码编辑器中添加以下代码。

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 = "tutorialspoint.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 工具栏上的启动按钮执行并运行以上代码。单击“显示作者文件”将显示在 Web 浏览器上新创建的 authors.xml 文件。

使用 DOM API 解析 XML

根据文档对象模型 (DOM)，XML 文档由节点和节点的属性组成。XmlDocument类用于实现 .Net Framework 的 XML DOM 解析器。它还允许您通过插入、删除或更新文档中的数据来修改现有的 XML 文档。

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

示例 3

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

执行以下步骤 -

• 将 authors.xml 文件添加到应用程序的 bin/Debug 文件夹中（如果您尝试过上一个示例，则该文件应该已经存在）。

• 导入 System.Xml 命名空间。

• 在窗体中添加一个列表框和一个按钮控件，并将按钮控件的 Text 属性设置为“显示作者”。

• 使用代码编辑器添加以下代码。

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 = "tutorialspoint.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 工具栏中的启动按钮执行并运行以上代码。单击“显示作者”按钮将显示所有作者（包括我们在运行时添加的作者）的姓名。