Try this
[code=thinbasic]
uses "file"
uses "console"
dim g as string = "Blues,Classic Rock,Country,Dance,Disco,Funk,Grunge,Hip-Hop,Jazz,Metal,New Age,Oldies,Other,Pop,R&B,Rap,Reggae,Rock,Techno,Industrial,Alternative,Ska,Death Metal,Pranks,Soundtrack,Euro-Techno,Ambient,Trip-Hop,Vocal,Jazz+Funk,Fusion,Trance,Classical,Instrumental,Acid,House,Game,Sound Clip,Gospel,Noise,AlternRock,Bass,Soul,Punk,Space,Meditative,Instrumental Pop,Instrumental Rock,Ethnic,Gothic,Darkwave,Techno-Industrial,Electronic,Pop-Folk,Eurodance,Dream,Southern Rock,Comedy,Cult,Gangsta,Top 40,Christian Rap,Pop/Funk,Jungle,Native American,Cabaret,New Wave,Psychadelic,Rave,Showtunes,Trailer,Lo-Fi,Tribal,Acid Punk,Acid Jazz,Polka,Retro,Musical,Rock & Roll,Hard Rock,Folk,Folk-Rock,National Folk,Swing,Fast Fusion,Bebob,Latin,Revival,Celtic,Bluegrass,Avantgarde,Gothic Rock,Progressive Rock,Psychedelic Rock,Symphonic Rock,Slow Rock,Big Band,Chorus,Easy Listening,Acoustic,Humour,Speech,Chanson,Opera,Chamber Music,Sonata,Symphony,Booty Bass,Primus,Porn Groove,Satire,Slow Jam,Club,Tango,Samba,Folklore,Ballad,Power Ballad,Rhythmic Soul,Freestyle,Duet,Punk Rock,Drum Solo,A capella,Euro-House,Dance Hall"
dim style() as string
split(g,",",style)
Type Tag
Header As String * 3
SongTitle As String * 30
Artist As String * 30
Album As String * 30
Year As String * 4
Comment As String * 28
Track As Byte
Genre As Byte
End Type
Dim ID3Tag as Tag
dim filename as string = "aerosmith.mp3"
Dim FileNum As Long = FILE_OPEN(FileName,"Binary")
IF Filenum = 0 THEN MSGBOX 0," No File Found" : STOP
file_seek(filenum,file_lof(filenum)-127)
ID3Tag = FILE_GET(filenum,127)
file_Close(FileNum)
if ID3Tag.header="TAG" then
printl "HEADER : " & ID3Tag.header
printl "Title : " & trim$(ID3tag.songtitle)
printl "Artist : " & trim$(ID3tag.artist)
printl "Album : " & trim$(ID3tag.album)
printl "Year : " & trim$(ID3tag.year)
printl "Genre : " & style((id3tag.genre)+1)
end if
printl "press key to stop"
[/code]
Bookmarks