Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Multimedia

ID3-Tag auslesen

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.MitgliedCaran 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 MitgliedCaran angelegt.
  • Die aktuellste Version wurde am 03.09.2007 von MitgliedCaran gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen