Code-Beispiel

ID3-Tag auslesen

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Caran	03.09.2007

Zum auslesen von ID3v1 Tags in MP3 Dateien.

Sub ID3TAG(Byval filename As String, _

           Byref songtitel As String = "", _

           Byref interpret As String = "", _

           Byref album As String = "", _

           Byref erscheinungsjahr As String = "", _

           Byref genre As Integer = -1, _

           Byref kommentar As String = "")



    Dim tag As String

    Dim FF As Integer=Freefile



    Open filename For Binary As #FF

        Seek FF, (Lof(FF)-128)

        Line Input #FF,tag

    Close #FF



    Dim b As Uinteger

    b = Instr(tag,"TAG")

    If b Then

        songtitel = Mid(tag, b + 3, 30)

        interpret = Mid(tag, b + 33, 30)

        album = Mid(tag, b + 63, 30)

        erscheinungsjahr = Mid(tag, b + 93, 4)

        genre = Val(Mid(tag, b + 127, 1))

        kommentar = Mid(tag, b + 97, 30)

    End If

End Sub

Getestet und angepasst auf FBC 0.18.1b, gruss Eternal_pain

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 23.08.2007 von Caran angelegt.
Die aktuellste Version wurde am 03.09.2007 von Caran gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.