Converts data types to string and then writes the information out to the console. : XmlTextWriter « XML « VB.Net Tutorial

1. VB.Net Tutorial
2. XML
3. XmlTextWriter

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)

    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