Mega Code Archive

 

Categories / VB.Net / XML

 

XmlWriter WriteValue

Option Explicit Option Strict Imports System Imports System.IO Imports System.Xml Public Class Sample   Public Shared Sub Main()         Dim price As [Double] = 9.95         Dim [date] As New DateTime(2004, 5, 20)                  Using writer As XmlWriter = XmlWriter.Create("data.xml")           writer.WriteStartElement("book")           writer.WriteStartAttribute("pub-date")           writer.WriteValue([date])           writer.WriteEndAttribute()                    writer.WriteStartElement("price")           writer.WriteValue(price)           writer.WriteEndElement()                    writer.WriteEndElement()           writer.Flush()         End Using   End Sub 'Main  End Class 'Sample