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(1).AppendChild(ele2)

'创建三个子元素的子元素()
Dim ele3 As XmlElement = doc.CreateElement("", "title", "")
text = doc.CreateTextNode("Oberon's Legacy")
ele3.AppendChild(text)
doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele3)

Dim ele4 As XmlElement = doc.CreateElement("", "author", "")
text = doc.CreateTextNode("Corets, Eva")
ele4.AppendChild(text)
doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele4)

Dim ele5 As XmlElement = doc.CreateElement("", "price", "")
text = doc.CreateTextNode("5.95")
ele5.AppendChild(text)
doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele5)

'保存
doc.Save("D:\app.config")

文件打出来是这样的

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
</bookstore>

转载于:https://www.cnblogs.com/mihe/p/3695954.html