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

Structure Zeit
    Dim h, m As Integer
End Structure

Structure termin
    Dim SemesterId As String
    Dim Ort As String
    Dim Wochentag As String
    Dim Uhrzeit As Zeit
End Structure
Structure vorlesung
    Dim titel_de As String
    Dim titel_en As String
    Dim t As termin
End Structure


Module xmlschreiben_von_structs
    Sub WriteToXML(xmlFilename As String, vorl() As vorlesung, anz As Integer)
        Dim xmlwr As XmlTextWriter
        xmlwr = New XmlTextWriter(xmlFilename, New UnicodeEncoding)

        xmlwr.WriteStartElement("vorlesungen")

        For i = 1 To anz Step 1
            xmlwr.WriteStartElement("vorlesung")

            xmlwr.WriteStartElement("titel")
            xmlwr.WriteAttributeString("lang", "de")
            xmlwr.WriteString(vorl(i).titel_de)
            xmlwr.WriteEndElement()

            xmlwr.WriteStartElement("titel")
            xmlwr.WriteAttributeString("lang", "en")
            xmlwr.WriteString(vorl(i).titel_en)
            xmlwr.WriteEndElement()

            xmlwr.WriteStartElement("termin")
            xmlwr.WriteAttributeString("semester-id", vorl(i).t.SemesterId)

            xmlwr.WriteStartElement("ort")

            xmlwr.WriteString(vorl(i).t.Ort)
            xmlwr.WriteEndElement()
            xmlwr.WriteStartElement("wochentag")
            xmlwr.WriteString(vorl(i).t.Wochentag)
            xmlwr.WriteEndElement()
            xmlwr.WriteStartElement("Uhrzeit")
            xmlwr.WriteString(Format(vorl(i).t.Uhrzeit.h, "00") + ":" + Format(vorl(i).t.Uhrzeit.m, "00"))
            xmlwr.WriteEndElement()

            xmlwr.WriteEndElement()

            xmlwr.WriteEndElement()
        Next

        xmlwr.WriteEndElement()

        xmlwr.Close()


    End Sub
    Sub Main()

        Dim vo(2) As vorlesung
        vo(1).titel_de = "Informatik"
        vo(1).titel_en = "Computer Science"
        vo(1).t.SemesterId = "SS2018"
        vo(1).t.Ort = "S129"
        vo(1).t.Wochentag = "Donnerstag"
        vo(1).t.Uhrzeit.h = 15
        vo(1).t.Uhrzeit.m = 10

        vo(2).titel_de = "Roboterbau"
        vo(2).titel_en = "Robotics Engineering"
        vo(2).t.SemesterId = "SS2018"
        vo(2).t.Ort = "Z 308"
        vo(2).t.Wochentag = "Freitag"
        vo(2).t.Uhrzeit.h = 7
        vo(2).t.Uhrzeit.m = 30


        WriteToXML("C:\Temp\ZweiVorlesungen.xml", vo, 2)



    End Sub

End Module