public class DOMSave
public Shared Sub Main
Dim myDoc As New Xml.XmlDocument
myDoc.AppendChild(myDoc.CreateXmlDeclaration("1.0", "UTF-8", String.Empty))
myDoc.AppendChild(myDoc.CreateComment("information about this book"))
Dim rootBook As Xml.XmlNode =myDoc.AppendChild(myDoc.CreateElement("book"))
rootBook.Attributes.Append(myDoc.CreateAttribute("isbn"))
rootBook.Attributes("isbn").Value = "0-672-32549-7"
Dim title As Xml.XmlNode
title = rootBook.AppendChild(myDoc.CreateElement("title"))
title.InnerText = "Start"
Dim authors As Xml.XmlNode = rootBook.AppendChild(myDoc.CreateElement("authors"))
Dim Duncan, Andy, Erik, Joel As Xml.XmlNode
Duncan = authors.AppendChild(myDoc.CreateElement("author"))
Andy = authors.AppendChild(myDoc.CreateElement("author"))
Erik = authors.AppendChild(myDoc.CreateElement("author"))
Joel = authors.AppendChild(myDoc.CreateElement("author"))
Duncan.InnerText = "D"
Andy.InnerText = "A"
Erik.InnerText = "E"
Joel.InnerText = "J"
Dim chapters As Xml.XmlNode = myDoc.CreateElement("chapters")
rootBook.AppendChild(chapters)
Dim chapterElements(10) As Xml.XmlElement
For i As Integer = 0 To 10
chapterElements(i) = myDoc.CreateElement("chapter")
With chapterElements(i)
.Attributes.Append(myDoc.CreateAttribute("id"))
.Attributes("id").Value =CStr(i + 1)
.Attributes.Append(myDoc.CreateAttribute("topic"))
End With
chapters.AppendChild(chapterElements(i))
Next
chapterElements(0).Attributes("topic").Value = "A"
chapterElements(1).Attributes("topic").Value = "B"
chapterElements(2).Attributes("topic").Value = "C"
chapterElements(3).Attributes("topic").Value = "D"
chapterElements(4).Attributes("topic").Value = "E"
chapterElements(5).Attributes("topic").Value = "F"
chapterElements(6).Attributes("topic").Value = "G"
chapterElements(7).Attributes("topic").Value = "H"
chapterElements(8).Attributes("topic").Value = "I"
chapterElements(9).Attributes("topic").Value = "J"
chapterElements(10).Attributes("id").Value = "K"
chapterElements(10).Attributes("topic").Value = "L"
Dim myWriter As New Xml.XmlTextWriter("test.xml", System.Text.Encoding.UTF8)
myWriter.Formatting = Xml.Formatting.Indented
myDoc.Save(myWriter)
myWriter.Close()
End Sub
End class
|