ID3 v1, v1.1 and v2.3 tag reader
Posted: Mon May 29, 2006 3:28 am
Code updated For 5.20+
I just made a ID3 v1, v1.1 and v2.3 tag reader!
I made it simple and easy to understand!
And debugger must be enabled, since it output the information there!
The v2.3 reader is based on ebs's version:
Http://www.purebasic.fr/english/viewtopic.php?t=6935
I just made a ID3 v1, v1.1 and v2.3 tag reader!
I made it simple and easy to understand!
And debugger must be enabled, since it output the information there!
The v2.3 reader is based on ebs's version:
Http://www.purebasic.fr/english/viewtopic.php?t=6935
Code: Select all
; --------------------------------------------------------
; About:
; ID3 v1.0, v1.1 and v2.3 reader
;
; Author: Joakim L. Christiansen
; Homepage: http://www.myhome.no/jlc_software
;
; Note:
; v2.3 reader is based on ebs's version from the PB Forum:
; http://www.purebasic.fr/english/viewtopic.php?t=6935
; --------------------------------------------------------
EnableExplicit
Dim Genre.s(125)
Genre(0) = "Blues"
Genre(1) = "Classic Rock"
Genre(2) = "Country"
Genre(3) = "Dance"
Genre(4) = "Disco"
Genre(5) = "Funk"
Genre(6) = "Grunge"
Genre(7) = "Hip-Hop"
Genre(8) = "Jazz"
Genre(9) = "Metal"
Genre(10) = "New Age"
Genre(11) = "Oldies"
Genre(12) = "Other"
Genre(13) = "Pop"
Genre(14) = "R&B"
Genre(15) = "Rap"
Genre(16) = "Reggae"
Genre(17) = "Rock"
Genre(18) = "Techno"
Genre(19) = "Industrial"
Genre(20) = "Alternative"
Genre(21) = "Ska"
Genre(22) = "Death Metal"
Genre(23) = "Pranks"
Genre(24) = "Soundtrack"
Genre(25) = "Euro-Techno"
Genre(26) = "Ambient"
Genre(27) = "Trip-Hop"
Genre(28) = "Vocal"
Genre(29) = "Jazz+Funk"
Genre(30) = "Fusion"
Genre(31) = "Trance"
Genre(32) = "Classical"
Genre(33) = "Instrumental"
Genre(34) = "Acid"
Genre(35) = "House"
Genre(36) = "Game"
Genre(37) = "Sound Clip"
Genre(38) = "Gospel"
Genre(39) = "Noise"
Genre(40) = "AlternRock"
Genre(41) = "Bass"
Genre(42) = "Soul"
Genre(43) = "Punk"
Genre(44) = "Space"
Genre(45) = "Meditative"
Genre(46) = "Instrumental Pop"
Genre(47) = "Instrumental Rock"
Genre(48) = "Ethnic"
Genre(49) = "Gothic"
Genre(50) = "Darkwave"
Genre(51) = "Techno-Industrial"
Genre(52) = "Electronic"
Genre(53) = "Pop-Folk"
Genre(54) = "Eurodance"
Genre(55) = "Dream"
Genre(56) = "Southern Rock"
Genre(57) = "Comedy"
Genre(58) = "Cult"
Genre(59) = "Gangsta"
Genre(60) = "Top 40"
Genre(61) = "Christian Rap"
Genre(62) = "PopFunk"
Genre(63) = "Jungle"
Genre(64) = "Native American"
Genre(65) = "Cabaret"
Genre(66) = "New Wave"
Genre(67) = "Psychadelic"
Genre(68) = "Rave"
Genre(69) = "Showtunes"
Genre(70) = "Trailer"
Genre(71) = "Lo-Fi"
Genre(72) = "Tribal"
Genre(73) = "Acid Punk"
Genre(74) = "Acid Jazz"
Genre(75) = "Polka"
Genre(76) = "Retro"
Genre(77) = "Musical"
Genre(78) = "Rock & Roll"
Genre(79) = "Hard Rock"
Genre(80) = "Folk"
Genre(81) = "Folk-Rock"
Genre(82) = "National Folk"
Genre(83) = "Swing"
Genre(84) = "Fast Fusion"
Genre(85) = "Bebob"
Genre(86) = "Latin"
Genre(87) = "Revival"
Genre(88) = "Celtic"
Genre(89) = "Bluegrass"
Genre(90) = "Avantgarde"
Genre(91) = "Gothic Rock"
Genre(92) = "Progressive Rock"
Genre(93) = "Psychedelic Rock"
Genre(94) = "Symphonic Rock"
Genre(95) = "Slow Rock"
Genre(96) = "Big Band"
Genre(97) = "Chorus"
Genre(98) = "Easy Listening"
Genre(99) = "Acoustic"
Genre(100) = "Humour"
Genre(101) = "Speech"
Genre(102) = "Chanson"
Genre(103) = "Opera"
Genre(104) = "Chamber Music"
Genre(105) = "Sonata"
Genre(106) = "Symphony"
Genre(107) = "Booty Bass"
Genre(108) = "Primus"
Genre(109) = "Porn Groove"
Genre(110) = "Satire"
Genre(111) = "Slow Jam"
Genre(112) = "Club"
Genre(113) = "Tango"
Genre(114) = "Samba"
Genre(115) = "Folklore"
Genre(116) = "Ballad"
Genre(117) = "Power Ballad"
Genre(118) = "Rhythmic Soul"
Genre(119) = "Freestyle"
Genre(120) = "Duet"
Genre(121) = "Punk Rock"
Genre(122) = "Drum Solo"
Genre(123) = "A capella"
Genre(124) = "Euro-House"
Genre(125) = "Dance Hall"
Define Tag.s{3}, FrameID.s{4}, Size.l, FrameSize.l, Position.l, Contents.s, i.l
If ReadFile(0,OpenFileRequester("Open mp3","","Mp3 (*.mp3)|*.mp3",0))
ReadData(0,@Tag,3)
If Tag = "ID3" And ReadByte(0) = 3
Debug "ID3 Tag version 2.3 found!"
Debug "List of contents:"
Debug ""
ReadWord(0)
For i=3 To 0 Step -1
Size + ((ReadByte(0)&%01111111) << (7 * i))
Next
Repeat
ReadData(0,@FrameID,4)
If FrameID = "": Break: EndIf
FrameSize = 0
For i=3 To 0 Step -1
FrameSize + ((ReadByte(0)&%01111111) << (7 * i))
Next
Position + FrameSize
ReadWord(0)
ReadByte(0)
FrameSize - 1
Contents = Space(FrameSize)
ReadData(0,@Contents,FrameSize)
Debug FrameID + " = " + Contents
Until Position >= Size
EndIf
Debug ""
FileSeek(0,Lof(0)-128)
ReadData(0,@Tag,3)
If Tag = "TAG"
Debug "ID3 Tag version 1 found!"
Debug "List of contents:"
Debug ""
Contents = Space(30)
ReadData(0,@Contents,30)
Debug "Title: " + Contents
Contents = Space(30)
ReadData(0,@Contents,30)
Debug "Artist: " + Contents
Contents = Space(30)
ReadData(0,@Contents,30)
Debug "Album: " + Contents
Contents = Space(4)
ReadData(0,@Contents,4)
Debug "Year: " + Contents
Contents = Space(30)
ReadData(0,@Contents,30)
Debug "Comment: " + Contents
If PeekB(@Contents+29) = 0 And PeekB(@Contents+30) <> 0
Debug "Album track: " + Str(PeekB(@Contents+30))
Else
Debug "Album track: "
EndIf
Contents = Space(1)
ReadData(0,@Contents,1)
If PeekB(@Contents) >= 0 And PeekB(@Contents) <= 125
Debug "Genre: " + Genre(PeekB(@Contents))
Else
Debug "Genre: "
EndIf
EndIf
CloseFile(0)
EndIf
