学习XML（添加一个子节点）

       在网上看到一篇介绍XML的文章，我就照着文章的解说测试了一下，顺利通过。

       这里介绍添加XML节点的方法。

       首先定义XML文件：(bookstore.xml)

       <?xml version="1.0" encoding="utf-8"?>

       <bookstore>

              <book genre="fantasy" ISBN="2-9088-1">

                     <title>Oberon's Legacy</title>

                    <author>Corets,Eva</author>

                    <price>20.8</price>

              </book>

      </bookstore>

       OK，这就是有一个简单节点的xml文件，它有一个根节点bookstore，其子节点为book，其中book有两个属性genre 和ISBN，每个book节点又三个子节点title,author 和price。

       下面给这个xml文件添加一个book子节点：

       1.引用XML名称空间： Imports System.xml  

       2.定义一个读取xml文件的方法，暂且这么说吧:

             Dim xmlDoc as New xmlDocument

             xmlDoc.Load("bookstore.xml")

        3.定义根结点，并找到根据节点名字找到根结点

            Dim root  as  XmlNode =xmlDoc.SelectSingleNode("bookstore")

         4.定义一级子节点，注意根结点与子节点的定义方式不同

           Dim xelement as XmlElement =xmlDoc.CreateElement("book")

           xelement.SetAttribute("genre","comedy")        //给一级子节点添加两个属性

           xelement.SetAttribute("ISBN","2-0875-3")

          5.定义二级子节点。节点的定义方式都是相同的，只是赋值的方式有所差别。这里需要定义三个二阶子节点

          Dim xesub1 as XmlElement =xmlDoc.CreateElement("title")

          xesub1.InnerText ="c#"       //给二级子节点赋值

          xelement.AppendChild(xesub1)        //将这个二阶子节点添加给一级子节点

          Dim xesub2 as XmlElement =xmlDoc.CreateElement("author")

          xesub2.InnerText ="rubby"

          xelement.AppendChild(xesub2)

           Dim xesub3 as XmlElement =xmlDoc.CreateElement("price")

           xesub3.InnerText ="20.8"

           xelement.AppendChild(xesub3)

         6.将子节点添加到根节点中去，并保存该xml文件

           root.AppendChild(xelement)

           xmlDoc.Save("bookstore.xml")

       好了，我们再打开xml文件就会发现，已经新添加了一个book子节点了