dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Jul 14, 2001

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


GetMP3Info - Get info in the standard ID3 tag of the specified MP3 file

Private Type MP3TagInfo
    tag As String * 3
    title As String * 30
    artist As String * 30
    album As String * 30
    year As String * 4
    comment As String * 30
    genre As String * 1
End Type

' Retrieve the informations contained into the standard ID3 tag
' of the specified MP3 file
' Return an array of 6 elements with the following meaning:
'   - index 0: song title
'   - index 1: artist
'   - index 2: album
'   - index 3: year
'   - index 4: comment
'   - index 5: genre: this is an integer value --> use any MP3 player,
'  such as Winamp,
'       to look for the descriptions
'
' Example
'    Dim mp3info() As String
'    Dim sDescr As String
'    ' get the infos
'    mp3info = GetMP3Info("C:\MyMusic\Demo.mp3")
'    ' build and show a description string
'    sDescr = "Title: " & mp3info(0) & vbCrLf & '        "Artist: " & mp3info(1)
'  & vbCrLf & '        "Album: " & mp3info(2) & vbCrLf & '        "Year: " & 
' mp3info(3) & vbCrLf & '        "Comment: " & mp3info(4) & vbCrLf & '        
' "Genre: " & mp3info(5)
'    MsgBox sDescr

Function GetMP3Info(ByVal sFileName As String) As String()
    Dim mp3info As MP3TagInfo
    Dim infoRet(5) As String
    
    On Error Resume Next
    ' open the specified file
    Open sFileName For Binary As #1
    ' fill the strct's fileds
    With mp3info
        Get #1, FileLen(sFileName) - 127, .tag
        If Not .tag = "TAG" Then
            Close #1
            Exit Function
        End If
        Get #1, , .title
        Get #1, , .artist
        Get #1, , .album
        Get #1, , .year
        Get #1, , .comment
        Get #1, , .genre
        Close #1
    End With
    
    ' from struct to array
    infoRet(0) = Trim$(mp3info.title)
    infoRet(1) = Trim$(mp3info.artist)
    infoRet(2) = Trim$(mp3info.album)
    infoRet(3) = Trim$(mp3info.year)
    infoRet(4) = Trim$(mp3info.comment)
    infoRet(5) = CInt(Asc(Trim$(mp3info.genre))) - 1
    'return the array
    GetMP3Info = infoRet
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date