''''''''''''''''
' Script von Mats Julian Steffens
' www.lvstrm.de
''''''''''''''''
'
' Log everything you are playing
'
''''''''''''''''
Dim dateinamealt As String = ""
Dim startTime As DateTime = DateTime.Now ' Προσθέστε αυτή την γραμμή

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 ' Αντικατάσταση της γραμμής για πραγματική ώρα

    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 inputnamelaenge As String

    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 = elapsedTime.TotalSeconds.ToString() ' Μετατρέψτε τη διάρκεια σε δευτερόλεπτα
        Dim minutes As Integer = CInt(Math.Floor(elapsedTime.TotalMinutes))
        Dim seconds As Integer = CInt(Math.Floor(elapsedTime.TotalSeconds)) Mod 60
        duration = String.Format("{0:00}:{1:00}", minutes, seconds)
        inputString = timestamp.ToString("dd/MM/yy HH:mm:ss") + " " + duration + " " + dateiname.Substring(inputnamelaenge) + Environment.NewLine
        Console.WriteLine(inputString)

        My.Computer.FileSystem.WriteAllText(filename, inputString, True)
        dateinamealt = dateiname
    End If

    Sleep(1000)
Loop