Hallo, habe ein kleines Script geschrieben um M3u Playlisten zu bearbeiten, z.b. wenn sich der Laufwerksbuchstabe oder der Path im Netz geändert hat.
Das Problem ist nun, wenn die M3U Datei auf der Wurzel liegt( egal ob C: oder F: ) oder im Script Verzeichnis funzt es super ,jedoch nicht wenn es z.b. auf dem Desktop o.ä liegt.
Würde mich über einen Tipp zur Lösung sehr freuen.
Danke!
PS: zum Text suchen und ersetzen rufe ich SED auf.
[autoit]$file=FileOpen(@ScriptDir & "\config.txt",0)
$Input=FileReadLine(@ScriptDir & "\config.txt",4)
$Output=FileReadLine(@ScriptDir & "\config.txt",6)
$NAME=FileReadLine(@ScriptDir & "\config.txt",8)
$SED=(@ScriptDir & "\sed.exe")
HotKeySet("{ESC}","_exit")
if $file=-1 Then ;Abfrage ob config.txt vorhanden
MsgBox(0,"Error","Unable to open the config.txt")
Exit
EndIf
$message = "Please select the Playlist."
[/autoit][autoit][/autoit][autoit]$var = FileOpenDialog($message, @WindowsDir & "\", "Playlist (*.m3u;)", 1 + 4 )
[/autoit][autoit][/autoit][autoit]If @error Then
MsgBox(16,"","No Playlist selectet")
Exit
Else
$var = StringReplace($var, "|", @CRLF)
MsgBox(64,"PLAYLIST","You chose " & $var)
EndIf
If FileExists($SED) Then
RunWait(''&$SED&' s\'&$Input&'\'&$Output&'\g '&$var&' >'&$NAME&'.m3u')
sleep(200)
MsgBox(64,"M3U Converter","Converting successfully Done!",2)
Else
MsgBox(48,"\sed.exe" , "Does NOT exists")
EndIf
Func _exit()
Exit
EndFunc