vb.net 教程 4-10 XML文件操作 1

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
XML(EXtensible Markup Language）：可扩展标记语言目前被广泛的运用，本大节讨论如何操作xml文件。

关于Xml语法结构，请自行查找相关资料。

本大节使用到的Xml文件为 books.xml：

<?xml version="1.0" encoding="UTF-8"?>
<BookStore>
  <Book ISBN="9787302424260">
    <TITLE>星球大战：幽灵的威胁</TITLE>
    <AUTHOR>特里·布鲁克斯</AUTHOR>
    <COUNTRY>美国</COUNTRY>
    <PRICE>48.00</PRICE>
    <YEAR>1985</YEAR>
  </Book>
  <Book ISBN="9787302425274">
    <TITLE>星球大战：克隆人的进攻</TITLE>
    <AUTHOR>R. A. 萨尔瓦多</AUTHOR>
    <COUNTRY>美国</COUNTRY>
    <PRICE>48.00</PRICE>
    <YEAR>1985</YEAR>
  </Book>
  <Book ISBN="9787302426899">
    <TITLE>星球大战：西斯的复仇</TITLE>
    <AUTHOR>马修·斯托弗</AUTHOR>
    <COUNTRY>美国</COUNTRY>
    <PRICE>58.00</PRICE>
    <YEAR>1985</YEAR>
  </Book>
  <Book ISBN="9787302421146">
    <TITLE>星球大战：新的希望</TITLE>
    <AUTHOR>乔治·卢卡斯</AUTHOR>
    <COUNTRY>美国</COUNTRY>
    <PRICE>35.00</PRICE>
    <YEAR>1985</YEAR>
  </Book>
  <Book ISBN="9787302421122">
    <TITLE>星球大战：帝国反击战</TITLE>
    <AUTHOR>唐纳德·F.格卢特</AUTHOR>
    <COUNTRY>美国</COUNTRY>
    <PRICE>35.00</PRICE>
    <YEAR>1985</YEAR>
  </Book>
  <Book ISBN="9787302421108">
    <TITLE>星球大战：绝地归来</TITLE>
    <AUTHOR>詹姆斯·卡恩</AUTHOR>
    <COUNTRY>美国</COUNTRY>
    <PRICE>35.00</PRICE>
    <YEAR>1985</YEAR>
  </Book>
  <Book ISBN="9787562849896">
    <TITLE>星球大战：原力觉醒</TITLE>
    <AUTHOR>迪士尼公司</AUTHOR>
    <COUNTRY>美国</COUNTRY>
    <PRICE>48.00</PRICE>
    <YEAR>2016</YEAR>
  </Book>
</BookStore>
主窗体设计界面：

先看看如何载入并显示xml中的数据：

添加对XML命名空间的引用：

Imports System.Xml
定义一个窗体级变量：

  Dim xmlDoc As XmlDocument
 

使用xmlDocument.Load直接载入xml文件：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        xmlDoc = New XmlDocument()
        xmlDoc.Load("d:\books.xml")
        Call showXML()
    End Sub
或者也可以使用xmlDocument.LoadXml载入xml结构的字符串：

还需要添加对IO的引用： 

Imports System.IO
 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        xmlDoc = New XmlDocument()
        Dim myreader As TextReader = New StreamReader("d:\books.xml")
        Dim mystring As String = myreader.ReadToEnd
        xmlDoc.LoadXml(mystring)
        myreader.Close()
        Call showXML()
    End Sub
 

以上两个方法都可以。

showXML()将读取的xml数据显示到Listview中：

    Private Sub showXML()
        ListView1.Items.Clear()
 
        Dim rootElement As XmlElement
        rootElement = xmlDoc.DocumentElement
 
        Dim xmlNl As XmlNodeList = rootElement.ChildNodes
        Dim lvItem As ListViewItem
        For Each xmlchild As XmlNode In xmlNl
            lvItem = New ListViewItem(xmlchild.Attributes("ISBN").Value)
 
            For Each xmlgrandchild As XmlNode In xmlchild.ChildNodes
                lvItem.SubItems.Add(xmlgrandchild.InnerText)
            Next
            ListView1.Items.Add(lvItem)
        Next
    End Sub
 

通过xmlDoc.DocumentElement 获得文档的根元素，也就是 BookStore

通过rootElement.ChildNodes获得根元素下的所有子节点，也就是所有的 Book 节点，这是一个XmlNodeList类

通过for 循环来获得每个Book节点

通过 xmlchild.Attributes("ISBN").Value 获得Book 节点的 ISBN 属性

通过再次的for循环，枚举 Book 节点下的子节点，并用xmlgrandchild.InnerText获得相应的值

运行结果：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net教程目录

 
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。