Imports System
Imports System.IO
Imports System.Xml
public class Sample
public shared sub Main()
Dim custID as Int16 = 1
Dim orderID as String = "A"
Dim orderDate as DateTime
orderDate = DateTime.Now
Dim price as Double = 1.9
Dim writer as XmlTextWriter = new XmlTextWriter (Console.Out)
'Use indenting for readability
writer.Formatting = Formatting.Indented
writer.WriteStartElement("order")
writer.WriteAttributeString("date", XmlConvert.ToString(orderDate, "yyyy-MM-dd"))
writer.WriteAttributeString("time", XmlConvert.ToString(orderDate, "HH:mm:ss"))
writer.WriteElementString("orderID", orderID)
writer.WriteElementString("custID", XmlConvert.ToString(custID))
writer.WriteElementString("price", XmlConvert.ToString(price))
writer.WriteEndElement()
writer.Flush()
writer.Close()
end sub
end class
|