Imports System.IO
Imports System.Xml
Public Class Form1
Public Shared Sub Main()
Dim fs As FileStream = New FileStream("aaa", FileMode.Create)
Dim w As XmlTextWriter = New XmlTextWriter(fs, Nothing)
w.WriteStartDocument()
w.WriteStartElement("mydocument")
w.WriteAttributeString("name", "", "Description")
w.WriteComment("This is the comment, etc.")
w.WriteStartElement("person")
w.WriteStartElement("name")
w.WriteString("M")
w.WriteEndElement()
w.WriteStartElement("phone")
w.WriteString("555-5555")
w.WriteEndElement()
w.WriteEndElement()
w.WriteEndElement()
w.WriteEndDocument()
w.Close()
End Sub
End Class
|
