' Script von Mats Julian Steffens
' www.lvstrm.de

Dim dateinamealt As String = ""
Dim startTime As DateTime = DateTime.Now
Dim previousText As String = ""
Dim currentText As String = ""

Do
    Dim datum As String
    datum = DateTime.Now.ToString("yyMMdd")

    Dim filename As String
    filename = "C:\vMix log\" + datum + "-vmixlog.txt"

    If (Not System.IO.File.Exists(filename)) Then
        My.Computer.FileSystem.WriteAllText(filename, " ", True)
    End If

    Dim timestamp As DateTime

    timestamp = DateTime.Now

    ' Ανακτήστε το XML από το VMix API
    Dim xml As String = API.XML()
    Dim x As New System.Xml.XmlDocument
    x.LoadXml(xml)

    Dim activinput As String = (x.SelectSingleNode("/vmix/active").InnerText)
    Dim inputname As String = (x.SelectSingleNode("//input[@number=" + activinput + "]/@shortTitle").Value)
    Dim dateiname As String = (x.SelectSingleNode("//input[@number=" + activinput + "]/@title").Value)
    Dim currentTextElement As System.Xml.XmlNode = x.SelectSingleNode("//text[@index='0' and @name='rectext.Text']")

    Dim inputnamelaenge As Integer

    If (inputname = dateiname) Then
        inputnamelaenge = 0
    Else
        inputnamelaenge = inputname.Length() + 3
    End If

    Dim inputString As String

    ' Γράψτε το αρχείο
    If (dateinamealt <> dateiname) Then
        Dim elapsedTime As TimeSpan = timestamp - startTime
        Dim duration As String = String.Format("{0:mm':'ss}", elapsedTime)
        inputString = timestamp.ToString("dd/MM/yy HH:mm:ss") + " " + duration + " " + dateiname.Substring(inputnamelaenge) + " " + currentText + Environment.NewLine
        Console.WriteLine(inputString)

        My.Computer.FileSystem.WriteAllText(filename, inputString, True)

        dateinamealt = dateiname
    End If

    ' Έλεγχος αν το κείμενο έχει αλλάξει
    If currentTextElement IsNot Nothing Then
        currentText = currentTextElement.InnerText
    Else
        currentText = ""
    End If

    If currentText <> previousText Then
        Dim elapsedTime As TimeSpan = timestamp - startTime
        Dim duration As String = String.Format("{0:mm':'ss}", elapsedTime)
        inputString = timestamp.ToString("dd/MM/yy HH:mm:ss") + " " + duration + " " + dateiname.Substring(inputnamelaenge) + " " + currentText + Environment.NewLine
        Console.WriteLine(inputString)

        My.Computer.FileSystem.WriteAllText(filename, inputString, True)

        previousText = currentText
    End If

    Sleep(1000)
Loop

Dim currentTextElement As System.Xml.XmlNode = x.SelectSingleNode("//text[@index='0' and @name='rectext.Text']")