Mega Code Archive

 

Categories / VB.Net / XML

 

Create XML document

Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Collections Imports System.Data Imports System.Windows.Forms Public Class MainClass          Shared Sub Main()         Dim FakeQuantity As Integer         Dim Doc As New XmlDocument()         Dim newAtt As XmlAttribute         Dim TempNode As XmlElement         ' Use the XmlDeclaration class to place the         ' <?xml version="1.0"?> declaration at the top of our XML file         Dim dec As XmlDeclaration = Doc.CreateXmlDeclaration("1.0", _                                          Nothing, Nothing)         Doc.AppendChild(dec)         Dim DocRoot As XmlElement = Doc.CreateElement("Orders")         Doc.AppendChild(DocRoot)         ' Generate a couple of phony orders         Dim x As Integer         For x = 0 To 11             Dim Order As XmlNode = Doc.CreateElement("Order")             newAtt = Doc.CreateAttribute("Quantity")             FakeQuantity = 10 * x + x             newAtt.Value = FakeQuantity.ToString()             Order.Attributes.Append(newAtt)             DocRoot.AppendChild(Order)         Next         Doc.Save("OutDocument.xml")     End Sub End Class