Mega Code Archive

 

Categories / VB.Net Tutorial / XML

 

Build XmlDocument and Save it use the XmlTextWriter

Imports System.IO Imports System.Xml Imports System.Xml.Schema public class Test    public Shared Sub Main         Dim Doc As New XmlDocument()         Dim XmlProc As XmlDeclaration         XmlProc = Doc.CreateXmlDeclaration("1.0", "UTF-8", "yes")         Doc.AppendChild(XmlProc)         ' Create the root node.         Dim Root As XmlElement         Root = Doc.CreateElement("RootNode")         ' Create a child node.         Dim Child As XmlElement         Child = Doc.CreateElement("ChildNode")         Child.InnerText = "Child Node Value"         ' Add an attribute to the child node.         Dim Attr As XmlAttribute         Attr = Doc.CreateAttribute("ChildAttribute")         Attr.Value = "Child Node Attribute"         Child.Attributes.Append(Attr)         ' Add a comment to the root node.         Dim ChildComm As XmlComment         ChildComm = Doc.CreateComment("This is a child node.")         Root.AppendChild(ChildComm)         ' Place the child node within the root node.         Root.AppendChild(Child)         ' Place the root node within the document.         Doc.AppendChild(Root)         ' Write the document to disk.         Dim Output As New XmlTextWriter("SimpleXml.xml", System.Text.Encoding.UTF8)         Doc.WriteTo(Output)         Output.Close()    End Sub End class