Private Sub XMLWriter()
' Auswahl einer Kodierungsart für die Zeichenablage
Dim enc As New System.Text.UnicodeEncoding
' XmlTextWriter-Objekt für unsere Ausgabedatei erzeugen:
Dim XMLobj As Xml.XmlTextWriter _
= New Xml.XmlTextWriter("quickie.xml", enc)
With XMLobj
' Formatierung: 4er-Einzüge verwenden
.Formatting = Xml.Formatting.Indented
.Indentation = 4
' Dann fangen wir mal an:
.WriteStartDocument()
' Beginn eines Elements "Personen". Darin werden wir mehrere
' Elemente "Person" unterbringen.
.WriteStartElement("Personen")
' Hier kommt das erste Element "Person". Eine Person hat
' in unserem einfachen Beispiel einen Titel, einen Nach-
' namen und einen Vornamen. Als Demo soll uns das genügen.
.WriteStartElement("Person") ' <Person
.WriteAttributeString("Titel", "Dr.")
.WriteAttributeString("Name", "Meyer")
.WriteAttributeString("Vorname", "Hans")
.WriteEndElement() ' Person />
' Hier kommt (noch immer im Element "Personen" das zweite
' Element "Person".
.WriteStartElement("Person") ' <Person
.WriteAttributeString("Titel", "")
.WriteAttributeString("Name", "Schmidt")
.WriteAttributeString("Vorname", "Carlos")
.WriteEndElement() ' Person />
' Nachdem das Element "Personen" zwei Elemente "Person"
' erhalten hat, beenden wir die Ausgabe für "Personen"...
.WriteEndElement() ' </Personen>
' ... und schließen das XML-Dokument (und die Datei)
.Close() ' Document
End With
' Und so sieht die Ergebnisdatei aus:
' -----------------------------------
'<?xml version="1.0" encoding="utf-16"?>
'<Personen>
' <Person Titel="Dr." Name="Meyer" Vorname="Hans" />
' <Person Titel="" Name="Schmidt" Vorname="Carlos" />
'</Personen>
End Sub