XmlDocument.CreateComment
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