''''''''''''''''
' Script von Mats Julian Steffens
' www.lvstrm.de
''''''''''''''''
'
' Log everything you are playing
'
''''''''''''''''
dim dateinamealt as string = ""

do
dim datum as string
datum = DateTime.Now.ToString("yyMMdd")

dim filename as string
filename="D:\vMix log\"+datum+"-vmixlog.txt"     'Where to save the file


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

''''''''''''''''

dim timestamp as string
timestamp = DateTime.Now.ToString("dd/MM/yy HH:mm:ss")

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

'Datei schreiben
If (dateinamealt <> dateiname) Then
    inputString = timestamp + " " + dateiname.Substring(inputnamelaenge) + Environment.NewLine 

    Console.WriteLine(inputString)

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

End If

sleep(1000)
loop