Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|708\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> File Access

spinal	Created : 06 November 2007 Language : Blitz Read ID3v1 See Title
I was looking at reading id3 tags in .mp3 files and it was a million times easier that I first though it might be. Here is the blitz code to do it. ; Read id3v1 tag data ; quick 'n' simple Filename$="track.mp3" size=FileSize(Filename$) Dim genre$(127) For t=0 To 127 Read genre$(t) Next infile=ReadFile(filename$) SeekFile(infile,size-128) For t=0 To 127 id3$=id3$+Chr$(ReadByte(infile)) Next CloseFile(infile) Tag$=Left$(id3$,3) If Tag$="TAG" Then songname$=Mid$(id3$,4,30) artist$=Mid$(id3$,34,30) album$=Mid$(id3$,64,30) year$=Mid$(id3$,94,4) comment$=Mid$(id3$,98,28) gen=Asc(Mid$(id3$,124,1)) Print songname$ Print artist$ Print album$ Print year$ Print comment$ Print genre$(gen) Else Print "No Tag found" End If WaitKey() End ; Data for music genres, don't know how accurate it is. Data "Blues","Classic Rock","Country","Dance","Disco","Funk","Grunge","Hip-Hop","Jazz","Metal" Data "New Age","Oldies","Other","Pop","R&B","Rap","Reggae","Rock","Techno" ,"Industrial" Data "Alternative","Ska","Death Metal","Pranks","Soundtrack","Euro-Techno","Ambient","Trip-Hop","Vocal","Jazz+Funk" Data "Fusion","Trance","Classical","Instrumental","Acid","House","Game","Sound Clip","Gospel","Noise" Data "Alternative Rock","Bass","Soul","Punk","Space","Meditative","Instrumental Pop","Instrumental Rock","Ethnic","Gothic" Data "Darkwave" ,"Techno-Industrial","Electronic","Pop-Folk","Eurodance","Dream","Southern Rock","Comedy","Cult","Gangsta" Data "Top 40","Christian Rap","Pop/Funk","Jungle","Native US","Cabaret","New Wave","Psychadelic","Rave","Showtunes" Data "Trailer","Lo-Fi","Tribal","Acid Punk","Acid Jazz","Polka","Retro","Musical","Rock & Roll","Hard Rock" Data "Folk","Folk-Rock","National Folk","Swing","Fast Fusion","Bebop","Latin","Revival" ,"Celtic","Bluegrass" Data "Avantgarde","Gothic Rock","Progressive Rock","Psychedelic Rock","Symphonic Rock","Slow Rock","Big Band","Chorus","Easy Listening","Acoustic" Data "Humour","Speech","Chanson","Opera","Chamber Music","Sonata","Symphony" ,"Booty Bass","Primus","Porn Groove" Data "Satire","Slow Jam","Club","Tango","Samba","Folklore","Ballad","Power Ballad","Rhytmic Soul","Freestyle" Data "Duet","Punk Rock","Drum Solo","Acapella","Euro-House","Dance Hall","Goa","Drum & Bass" --v

Comments
Wednesday, 07 November 2007, 06:49
Jayenkai	Seems to work fine. Nothing to complain about, but then I'm used to just using Coolplayer, which has the old V1 tags. I'm not sure if newer tags might mess up the specs.
Wednesday, 07 November 2007, 16:21
spinal	version 1 is the above format, version 1.1 uses the last two bytes in the comment (thats why i'm only reading 28 bytes instead of 30) to store the track number (a zero byte followed by the track number). Most mp3 players will stop reading text at a zero byte, so the track number would be ignored in older players. Newer versions of the tag store the data some other place, but most mp3 rippers use 1.1 i think as default.

Read ID3v1

Comments