Mega Code Archive

 

Categories / VB.Net by API / System Xml

 

XmlDocument CreateAttribute

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