Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
Public Class MainClass
Public Shared Sub Main()
Dim myXmlSettings As New XmlWriterSettings
myXmlSettings.Indent = True
myXmlSettings.NewLineOnAttributes = True
Using ProductWriter As XmlWriter = XmlWriter.Create("test.xml", myXmlSettings)
ProductWriter.WriteComment("www.java2java.com ")
ProductWriter.WriteStartElement("Product")
ProductWriter.WriteAttributeString("Id", "101")
ProductWriter.WriteAttributeString("COunt", "10")
ProductWriter.WriteElementString("P1", "P2")
ProductWriter.WriteEndElement()
End Using
End Sub
End Class
|