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
|