Mega Code Archive

 

Categories / VB.Net Tutorial / XML

 

Converts data types to string and then writes the information out to the console

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