Imports System.Xml
Imports System.Text
Imports System.IO

Module xmlschreiben_direkt

    Sub Main()
        Dim xmlwr As XmlTextWriter
        xmlwr = New XmlTextWriter("c:\Temp\vorlesungen.xml", New UnicodeEncoding)

        xmlwr.WriteStartElement("vorlesungen")

        xmlwr.WriteStartElement("vorlesung")

        xmlwr.WriteStartElement("titel")
        xmlwr.WriteAttributeString("lang", "de")
        xmlwr.WriteString("Informatik")
        xmlwr.WriteEndElement()

        xmlwr.WriteStartElement("titel")
        xmlwr.WriteAttributeString("lang", "en")
        xmlwr.WriteString("Computer Science")
        xmlwr.WriteEndElement()

        xmlwr.WriteStartElement("termin")
        xmlwr.WriteAttributeString("semester-id", "SS2018")

        xmlwr.WriteStartElement("ort")

        xmlwr.WriteString("S 129")
        xmlwr.WriteEndElement()
        xmlwr.WriteStartElement("wochentag")
        xmlwr.WriteString("Donnerstag")
        xmlwr.WriteEndElement()
        xmlwr.WriteStartElement("Uhrzeit")
        xmlwr.WriteString("15:10")
        xmlwr.WriteEndElement()

        xmlwr.WriteEndElement()

        xmlwr.WriteEndElement()

        xmlwr.WriteEndElement()

        xmlwr.Close()
    End Sub

End Module