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 工具欄中的啟動按鈕執行並執行以上程式碼。單擊“顯示作者”按鈕將顯示所有作者（包括我們在執行時新增的作者）的姓名。