Hallo, ich habe mir mal Gedanken darüber gemacht, weil ich die Playlisten vom Radio mitschneiden wollte. Dazu habe ich jetzt ein Script für Autoit geschrieben. Nach Eingabe der Serveradresse fragt das Script alle 10 Sekunden den aktuellen Titel ab. Hat er sich geändert, wird er in eine m3u Datei geschrieben. Das kann man natürlich noch erweitern um Ansagetexte zu entfernen oder auf Dubletten prüfen, doch für mich reicht das.
Autoit Script
$ip = "192.168.0.17" ; hier die IP des Servers
$port = "9090"
;$m_playerid = "00:11:32:11:91:49" ;der Player auf einer Leelbox ID ermitteln und für die Abfrage auswählen
$m_playerid = "4c:ed
2d:d1:8c" ; der Player auf einem Samsung Netbook ID ermitteln und für die Abfrage auswählen
$vorspann = ""
$uv = ""
HotKeySet("{ESC}", "_DoSomething")
TCPStartup () ;TCP starten
$Host = TCPNameToIP ( $ip ) ;Client Hostname aufloesen
$Conection = TCPConnect ( $Host, $port ) ;Mit Host Connecten
If @error Then Exit
Local $file = FileOpen("R:\Oldies 1fm.m3u", 9) ;File zum Schreiben öffnen. (Neu anlegen, bzw. Daten anhängen)
TCPSend ( $Conection, $m_playerid & " current_title ?" & Chr ( 10 ) ) ; hier wird der laufende Titel angefordert
$artistalt = ""
$a = 0
While 1
$recv = TCPRecv ( $Conection,2048 ) ;nun wird auf eine Antwort gelauscht
If $recv <> "" Then
$rec = $recv & ".mp3"
$rec = stringreplace($rec, @LF,"") ; diverse Aufarbeitungen des Strings
$rec = stringreplace($rec,"%26","&")
$rec = StringReplace($rec,"%20"," ")
$rec = StringReplace($rec,"%2C",",")
$rec = StringReplace($rec,"%C3%A",",")
$temp = StringSplit($rec," ") ; Aufteilung des Srings nach dem ersten Leerzeichen
$rec = $temp[$temp[0]] ; hier ist nun der Artist und der Titel enthalten.
$temp = StringSplit($rec,"-") ;daraus wird nun der Artist herausgefilter
$artist = $temp[1]
$artist = StringStripWS($artist,3)
$suche = stringregexp($artist,"Duet|Und|und|&|VS|Vs|vs|featuring|FEATURING|ft|Ft|FT|ft.|Ft.|FT.|feat\.?|Feat\.?|Faet\.?|FEAT|And|and|With|with|ft\.?|Meets",1)
if $suche <> 0 then ; diese Routine prüft das Vorkommen obiger Schreibweisen setzt ab dort bis zum Endes des Namens das Ergebnis in Klammern
$result = StringInStr($artist," " & $suche[0])
if $result > 0 then
$lang = StringLen($artist)
$diff = $lang - $result +1
$dummy1 = StringStripWS(StringLeft($artist, $result),3)
$dummy2 = StringStripWS(Stringright($artist,$diff),3)
$artistneu = $dummy1 & " (" & $dummy2 & ")"
$rec = Stringreplace($rec,$artist,$artistneu)
endif
endif
;ToolTip($artistalt & " ** " & $rec,10,10)
If $rec <> $artistalt then
vorspann () ;Funktion zur Erzeugung eines Unterverzeichnisses entsprechend Artist
$a = $a +1
If FileExists("K:\Musik\" & $uv & "\" & $rec) Then ; hier wird schon mal geprüft ob die Datei existiert
$existiert = " existiert"
Else
$existiert = " existiert nicht"
endif
ToolTip($a & ": " & $artistalt & " ** " & "K:\Musik\" & $uv & "\" & $rec & $existiert,10,30)
FileWriteLine($file,"K:\Musik\" & $uv & "\" & $rec & @CRLF)
endif
endif
sleep(10000) ;Pause 10 sec.
TCPSend ( $Conection, $m_playerid & " current_title ?" & Chr ( 10 ) )
If @error Then
MsgBox (0,"","Error")
Exit
EndIf
WEnd
FileClose($file)
Exit
func vorspann () ;prüfen welches Unterverzeichnis es sein soll. 1. Buchstabe vom Artist, oder bei Gruppen mit "The" der 5. Bei Ziffern ist es "# Num"
$artistalt = $rec
$uv = StringLeft($rec, 1)
if Asc($uv) > 122 then $uv = "# Num"
$vorspann = stringLeft($rec,4)
if $vorspann = "The " then $uv = stringMid($rec, 5,1)
if $vorspann = "Die " then $uv = stringMid($rec, 5,1)
if $vorspann = "Der " then $uv = stringMid($rec, 5,1)
if $vorspann = "Das " then $uv = stringMid($rec, 5,1)
if not StringIsAlpha($uv) Then $uv = "# Num"
endfunc
Func _DoSomething() ;Abbruch und Speichern mit ESC
FileClose($file)
exit
EndFunc ;==>_DoNothing
2d:d1:8c" ; der Player auf einem Samsung Netbook ID ermitteln und für die Abfrage auswählen