Imports System.Xml
Public Class Example5
Shared Sub Main
Dim writer As XmlWriter
writer = XmlWriter.Create("output.xml")
writer.WriteStartDocument()
writer.WriteStartElement("pubs")
writer.WriteStartElement("titles")
writer.WriteStartAttribute("name")
writer.WriteValue("Database Guide")
writer.WriteEndAttribute()
writer.WriteStartAttribute("price")
writer.WriteValue(19.99)
writer.WriteEndAttribute()
writer.WriteEndElement()
writer.WriteEndElement()
writer.Close()
End Sub
End Class
|