VB生成xml

Dim text As XmlText
Dim doc As New XmlDocument'加入XML的声明段落
Dim node As XmlNode = doc.CreateXmlDeclaration("1.0", "UTF-8", "yes")
doc.AppendChild(node)'加入一个根元素
Dim ele1 As XmlElement = doc.CreateElement("", "bookstore", "")
text = doc.CreateTextNode("")
ele1.AppendChild(text)
doc.AppendChild(ele1)'加入一个子元素()
Dim ele2 As XmlElement = doc.CreateElement("", "book", "")
text = doc.CreateTextNode("")
ele2.AppendChild(text)'为子元素"book"增加两个属性
ele2.SetAttribute("genre", "", "fantasy")
ele2.SetAttribute("ISBN", "2-3631-4")doc.ChildNodes.Item().AppendChild(ele2)'创建三个子元素的子元素()
Dim ele3 As XmlElement = doc.CreateElement("", "title", "")
text = doc.CreateTextNode("Oberon's Legacy")
ele3.AppendChild(text)
doc.ChildNodes.Item().AppendChild(ele2).AppendChild(ele3)Dim ele4 As XmlElement = doc.CreateElement("", "author", "")
text = doc.CreateTextNode("Corets, Eva")
ele4.AppendChild(text)
doc.ChildNodes.Item().AppendChild(ele2).AppendChild(ele4)Dim ele5 As XmlElement = doc.CreateElement("", "price", "")
text = doc.CreateTextNode("5.95")
ele5.AppendChild(text)
doc.ChildNodes.Item().AppendChild(ele2).AppendChild(ele5)'保存
doc.Save("D:\app.config")