VB.Net – XML处理

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

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

XML Parser API

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

• XML的简单API(SAX)&minus ;在这里，您为感兴趣的事件注册回调，然后让解析器继续处理该文档.当文档很大或存在内存限制时，这很有用，它在从磁盘读取文件时解析文件，整个文件永远不会存储在内存中.

• 文档对象模型(DOM)API : 这是万维网联盟的建议，其中整个文件被读入内存并以分层(基于树)的形式存储，以表示XML文档的所有功能.

在使用大文件时，SAX显然无法像DOM一样快地处理信息.另一方面，专门使用DOM可以真正杀死你的资源，特别是如果在很多小文件上使用它.

SAX是只读的，而DOM允许更改XML文件.由于这两个不同的API在字面上相互补充，因此没有理由不将它们用于大型项目.

对于我们所有的XML代码示例，让我们使用一个简单的XML文件电影.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 \中添加movies.xml文件应用程序的Debug文件夹.

• 在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 = "IT屋.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 = "IT屋.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 的一些常用方法class :

示例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 = "IT屋.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工具栏中提供的按钮.单击"显示作者"按钮将显示所有作者的名字，包括我们在运行时添加的名称.