VB.Net – XML 处理

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

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

XML 解析器 API

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

• Simple API for XML (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 数据。

采取以下步骤 –

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

• 在 Form1.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 = "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 属性更改为 Show Authors File。

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

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 浏览器上显示新创建的 author.xml 文件。

使用 DOM API 解析 XML

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

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

示例 3

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

采取以下步骤 –

• 在应用程序的 bin/Debug 文件夹中添加authors.xml 文件（如果您尝试过最后一个示例，它应该在那里）

• 导入 System.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 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 工具栏上的“开始”按钮执行并运行上述代码。单击“显示作者”按钮将显示所有作者的名字，包括我们在运行时添加的作者。