• *push*

    Auf der Suche nach der Frage wie man ID3 Tags ändern kann hab ich diesen Thread zufällig gefunden. (Dazu leider nix gefunden ^^) [Muss ich mal in diesem Code nachschauen wie es umgesetzt wurde]
    Und ich finde diese Idee echt ma ziemlich cool, leider funktioniert der ID3 Tag Leser bei mir auch nicht (Auch Vista64).
    Hast du mittlerweile eine Lösung für das Problem?

    • Offizieller Beitrag

    Das auslesen geschieht mit dieser Funktion:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $sPath = FileOpenDialog('Test', '', 'MP3 (*.mp3)')
    $aInfo = _getID3Tag($sPath)
    _ArrayDisplay($aInfo)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _getID3Tag($sPath)
    Local $oShellApp, $oDir, $oFile, $aProperty[35], $aPath
    $aPath = StringRegExp($sPath, '(.+)\\(.+)', 3)
    $oShellApp = ObjCreate('shell.application')
    $oDir = $oShellApp.NameSpace($aPath[0])
    $oFile = $oDir.Parsename($aPath[1])
    For $i = 0 To 34
    $aProperty[$i] = $oDir.GetDetailsOf($oFile, $i)
    Next
    Return $aProperty
    EndFunc ;==>_getID3Tag

    [/autoit]

    und das speichern der ID3-Tags mit dieser Funktion (und einem externen Programm:(

    Spoiler anzeigen
    [autoit]


    Func _ID3Save()
    Local $Path, $Artist, $Title
    $Path = GUICtrlRead($hFilePath)
    $Artist = GUICtrlRead($hInterpret)
    $Title = GUICtrlRead($hTitle)
    RunWait(@ScriptDir & '\sys\id3.exe -12 -a "' & $Artist & '" -t "' & $Title & '" "' & $Path & '"', @ScriptDir, @SW_HIDE)
    $aTmp = _getID3Tag($Path)
    $aShowMP3[$ButtonPressed][0] = $aTmp[1]
    $aShowMP3[$ButtonPressed][1] = $aTmp[0]
    $tmp = StringReplace($aTmp[1], '&', '&&') & @CRLF & Chr(34) & StringReplace($aTmp[0], '&', '&&') & Chr(34)
    GUICtrlSetData($aButton[$ButtonPressed], $tmp)
    GUISetState(@SW_HIDE, $hGuiID3)
    WinActivate($sTitle)
    EndFunc ;==>_ID3Save

    [/autoit]
  • Habe es mal mit 2000 MP3 von den R.SH CD's getestet und ich bin ja mal gar nicht gut. Also mehr 150 Songs wurden es bei fünf Versuchen nicht. Aber so lernt man Titel und Sänger/Gruppe zu den Songs. Super Game !!!

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    OuBVU5ebLhHu5QvlnAyQB4A7SzBrvWulwL7RLl2BdH5tI6sIYspeMKeXMSXl

  • echt lustiges game! =)
    wusste nicht das ich so viele songs auf meiner externen habe, die ich nie gehört habe :D

  • erste sahne script:P *dickes lob* :thumbup:
    leider hab ich nur 400 noch was mp3s auf rechner deswegen kenn ich die eig alle direkt..
    aba macht mir imma lust irgendwelche lieder zu hören die vergessen i.wo rumhängen xD

    vorschlag:
    online hiscore?

    greetz syne

  • ka ob es noch jemanden interessiert aber wayne, push! ^^
    Wollte es jetzt doch noch mal probieren es zum laufen zu bringen und tatsache es klappt =)
    Folgendes am Code verändern:

    1. AdlibEnable durch Register replacen wegen neuer AutoIt Version
    2. _StringAddThousandsSep Funktion fehlt im Code. Keine Ahnung was die genau macht, also einfach Dummy Funktion erstellen =)

    [autoit]


    Func _StringAddThousandsSep($string,$xx,$yy)
    Return $string
    EndFunc

    [/autoit]


    3. Damit es unter Vista (64 Bit?) geht:

    Zeile 909 & 911 die Ausleseparameter 9&10 anpassen in 20 und 21:

    [autoit]


    $aProperty[1] = $oDir.GetDetailsOf($oFile, 20)
    If $aProperty[1] = '' And IsArray($aTemp) Then $aProperty[1] = $aTemp[0]
    $aProperty[0] = $oDir.GetDetailsOf($oFile, 21)

    [/autoit]

    14 ergibt das Album ist also eigentlich etwas ungeeignet dafür.

    Ist echt lustig das Ding, habe auch eine relative große Sammlung, ist also auch fordernd. Leider kann das Programm nicht alle Lieder öffnen und spuckt einen Fehler aus, liegt anscheinend an Liedern mit Variabler Bitrate.

  • Man das Programm is ja echt geil.
    Das haste super gemacht Oscar, habe lieder wiedergefunden, von denen ich garnicht wusste, dass ich die noch aufm PC hab ^^.
    Stand:
    Fehler 6
    Anzahl Lieder: 84
    Punkte: 2072
    Platz 1 Yay :D

    Super Script.
    MfG. PrideRage

    Meine Projekte:
    ClipBoard Manager (beendet)
    Gutes ClipBoard Verwaltungs Programm mit nützlichen Funktionen.

    HTML Creator (beendet)
    Nützliches Tool um schnell ein eigenes HTML Dokument zu erstellen.

  • wow 8| ich hab noch garnicht gewusst das man ein so gutes game mit autoit machen kann :) allein vom design schon top die idee auch top , also bisher würd ich sagen das beste skript was hier im forum steht :)