Imports System
Imports System.IO
Imports System.Xml
Public Class Sample
Public Shared Sub Main()
Dim custID as Int16 = 1
Dim orderID as String = "2"
Dim orderDate as DateTime
orderDate = DateTime.Now
Dim price as Double = 1.95
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
|
