Ich arbeite derzeit an dem Ersteller der Playlists für den Playlister.
[autoit]
#include <audio.au3>
#include <file.au3>
_erstellen()
[/autoit][autoit][/autoit][autoit]Func _erstellen()
$name = StringTrimLeft(FileReadLine(@DesktopDir&"\Playlister\creator\2create.txt",1),5)
$folder = StringTrimLeft(FileReadLine(@DesktopDir&"\Playlister\creator\2create.txt",2),7)
$firstfile = FileFindFirstFile($folder & "\*.mp3")
$file = @DesktopDir & "\Playlister\namestart" & $name & "nameend.txt"
_FileCreate($file)
_FileWriteToLine($file, 1, "0", 1)
$count = "0"
Do
$nextfile = FileFindNextFile($firstfile)
$sound = _SoundOpen($folder & "\" & $nextfile)
Local $lenght = _SoundLength($sound, 2) - 4400 ; 2 für Millisekunden
MsgBox(0x0,"",$lenght)
_FileWriteToLine($file, $count + 2, "<name>" & $folder & "\" & $nextfile & "</name><lenght>" & $lenght & "</lenght>", 1)
$countadder = $count
$count = $countadder + 1
Until $nextfile = ""
$lenght = _FileCountLines($file) - 1
FileDelete(@DesktopDir&"\Playlister\creator\2create.txt")
EndFunc ;==>_erstellen
Der befehl
[autoit]_Soundlenght()
[/autoit]giebt immer falsche Längen zurück.
Bei diesem Script
[autoit]
#include <audio.au3>
$sound = _SoundOpen("E:\Harry Potter\Harry Poter und der Stein der Weisen\1-01 Ansage.mp3")
MsgBox(0x0,"",_SoundLength($sound,2))
giebt er mir als Länge 9 Sekunden zurück, obwohl die eigentliche Länge 21 Sekunden ist.
Kennt jemand vieleicht eine Alternative zu _Soundlenght()?
MFG Jasper