/ Snippet Library - View Code

Visual Basic / Sound / Get MP3 Information

Snippet details

ID: 399

Viewed: 1270

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

gets the information from the mp3

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All' cMP3Info Class Private mvarFilename As String Private Type Info sTitle As String sArtist As String sAlbum As String sComment As String sYear As String sGenre As String End Type Private MP3Info As Info Public Property Get Filename() As String Filename = mvarFilename End Property Private Function IsValidFile(ByVal sFilename) As Boolean Dim bOk As Boolean ' make sure file exists bOk = CBool(Dir(sFilename, vbHidden) <> "") Dim aExtensions, ext aExtensions = Array(".mp3", ".mp2", ".mp1") Dim bOkayExtension As Boolean bOkayExtension = False If bOk Then For Each ext In aExtensions If InStr(1, sFilename, ext, vbTextCompare) > 0 Then bOkayExtension = True End If Next 'ext End If IsValidFile = bOk And bOkayExtension End Function Public Property Let Filename(ByVal sPassFilename As String) Dim iFreefile As Integer Dim lFilePos As Long Dim sData As String * 128 Dim sGenre() As String ' Genre Const sGenreMatrix 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\|Alt. Rock\|Bass\|Soul\|Punk\|Space\|Meditative\|" + _ "Instrumental Pop\|Instrumental Rock\|Ethnic\|Gothic\|Darkwave\|Techno-Industrial\|Electronic\|" + _ "Pop-Folk\|Eurodance\|Dream\|Southern Rock\|Comedy\|Cult\|Gangsta Rap\|Top 40\|Christian Rap\|" + _ "Pop/Punk\|Jungle\|Native American\|Cabaret\|New Wave\|Phychedelic\|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\|Blue Grass\|" + _ "Avantegarde\|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\|Goa\|Drum & Bass\|Club-House\|Hardcore\|Terror\|indie\|Brit Pop\|Negerpunk\|Polsk Punk\|" + _ "Beat\|Christian Gangsta Rap\|Heavy Metal\|Black Metal\|Crossover\|Comteporary Christian\|" + _ "Christian Rock\|Merengue\|Salsa\|Trash Metal\|Anime\|JPop\|Synth Pop" ' Build the Genre array (VB6+ only) sGenre = Split(sGenreMatrix, "\|") ' Store the filename (for "Get Filename" ' property) mvarFilename = sPassFilename ' Clear the info variables If Not IsValidFile(sPassFilename) Then ' bug fix Exit Property End If MP3Info.sTitle = "" MP3Info.sArtist = "" MP3Info.sAlbum = "" MP3Info.sYear = "" MP3Info.sComment = "" ' Ensure the MP3 file exists ' Retrieve the info data from the MP3 iFreefile = FreeFile lFilePos = FileLen(mvarFilename) - 127 If lFilePos > 0 Then ' bug fix Open mvarFilename For Binary As #iFreefile Get #iFreefile, lFilePos, sData Close #iFreefile End If ' Populate the info variables If Left(sData, 3) = "TAG" Then MP3Info.sTitle = Mid(sData, 4, 30) MP3Info.sArtist = Mid(sData, 34, 30) MP3Info.sAlbum = Mid(sData, 64, 30) MP3Info.sYear = Mid(sData, 94, 4) MP3Info.sComment = Mid(sData, 98, 30) Dim lGenre lGenre = Asc(Mid(sData, 128, 1)) If lGenre <= UBound(sGenre) Then MP3Info.sGenre = sGenre(lGenre) Else MP3Info.sGenre = "" End If Else MP3Info = GetInfo(mvarFilename) End If End Property Private Function GetInfo(ByVal sFilename) As Info Dim i As Info GetInfo = i Dim s s = sFilename If InStrRev(s, ") > 0 Then 'it's a full path s = Mid(s, InStrRev(s, ") + 1) End If 'drop extension s = Left(s, InStrRev(s, ".", , vbTextCompare) - 1) s = Replace(Trim(s), " ", " ") s = Trim(s) If CountItems(s, " ") < 1 Then i.sTitle = Replace(s, "_", " ") GetInfo = i Exit Function End If s = Trim(Replace(s, "_", " ")) If Left(s, 1) = "(" And CountItems(s, "-") < 3 Then i.sArtist = Mid(s, 2, InStr(s, ")") - 2) s = Trim(Mid(s, InStr(s, ")") + 1)) If Left(s, 1) = "-" Then 'grab title i.sTitle = Trim(Mid(s, 2)) Else 'grab title anyway If InStr(s, "-") > 0 Then i.sAlbum = Mid(s, InStr(s, "-") + 1) i.sTitle = Left(s, InStr(s, "-") - 1) Else i.sTitle = Trim(s) End If End If Else Dim aThings Dim l aThings = Split(s, "- ") For l = 0 To UBound(aThings) If Not IsNumeric(aThings(l)) Then If i.sArtist = "" Then i.sArtist = aThings(l) Else If IsNumeric(aThings(l - 1)) Then ' title If i.sTitle = "" Then i.sTitle = aThings(l) End If ElseIf i.sAlbum = "" Then i.sAlbum = aThings(l) End If End If End If Next ' i End If i.sArtist = Replace(Replace(i.sArtist, "(", ""), ")", "") If Left(s, 1) <> "(" And i.sTitle = "" And (InStr(sFilename, ") <> InStrRev(sFilename, ")) Then ' recurse GetInfo = GetInfo(FixDir(sFilename)) Else GetInfo = i End If End Function Private Function CountItems(s, sToCount) Dim a a = Split(s, sToCount) If UBound(a) = -1 Then CountItems = 0 Else CountItems = UBound(a) - LBound(a) End If End Function Private Function FixDir(sFullpath) Dim s1, s2 s1 = Trim(Left(sFullpath, InStrRev(sFullpath, ") - 1)) s2 = Trim(Mid(sFullpath, InStrRev(sFullpath, ") + 1)) FixDir = s1 & " - " & s2 End Function Public Property Get Title() As String Title = Trim(MP3Info.sTitle) End Property Public Property Get Artist() As String Artist = Trim(MP3Info.sArtist) End Property Public Property Get Genre() As String Genre = Trim(MP3Info.sGenre) End Property Public Property Get Album() As String Album = Trim(MP3Info.sAlbum) End Property Public Property Get Year() As String Year = Trim(MP3Info.sYear) End Property Public Property Get Comment() As String Comment = Trim(MP3Info.sComment) End Property

No Reviews to show