Hi Leute, hab mich grad an ID3-Tags rangemacht, aber irgendwie funzt das nich so wie ich es wollte:
Hier mein derzeitiger Stand:
$sFile = FileOpenDialog("Bitte MP3-Datei auswählen","","MP3-Dateien (*.mp3)")
[/autoit][autoit][/autoit][autoit]$hFile = FileOpen($sFile,256)
$sFileContent = FileRead($hFile)
$ext = @extended
FileSetPos($hFile,$ext - 128,0)
$sTag = FileRead($hFile)
MsgBox(0,"",$sTag)
FileClose($hFile)
If StringLeft($sTag,3) <> "TAG" Then
MsgBox(48,"Fehler","Keine oder fehlerhafte TAG-Information gefunden!")
FileClose($hFile)
Exit
EndIf
MsgBox(0,"Tag-Information-Raw",$sTag)
[/autoit][autoit][/autoit][autoit]$sTagVerify = StringLeft($sTag,3)
$sTag = StringTrimLeft($sTag,3)
$sTagSongTitle = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagInterpret = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagAlbum = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagYear = StringLeft($sTag,4)
$sTag = StringTrimLeft($sTag,4)
$sTagComment = StringLeft($sTag,30)
$sTag = StringTrimLeft($sTag,30)
$sTagGenre = StringLeft($sTag,1)
$sTag = StringTrimLeft($sTag,1)
MsgBox(0,"Tag-Information","Titel: " & $sTagSongTitle & @LF & "Interpret: " & $sTagInterpret & @LF & "Album: " & $sTagAlbum & @LF & "Erscheinungsjahr: " & $sTagYear & @LF & "Kommentar: " & $sTagComment & @LF & "GenreIndex: " & $sTagGenre)
[/autoit][autoit][/autoit][autoit][/autoit]Problem ist, dass er mir das Anfangskürzel TAG richtig ausliest und den Titel auch, aber dananch ist schluss und ich weiß nicht warum -.-
Wäre schön wenn einer den Fehler finden würde. .