怎样读写、修改和添加mp3文件的头信息，最好把代码写出来。

Question

thirdapple(第三只苹果)：我怎么问他？

Answer 1

我希望是100分
读取mp3文件的信息，大部分MP3文件有一个TAG数据区，在文件的最后128个字节，
第1— 3字节存放’TAG’
第4—33字节存放歌名
第34—63字节存放演唱者名
第64—93字节存放专辑名
第94—97字节存放发行日期
第98—127字节存放说明
第128字节存放校验码
Public Function read_TAG(ByVal Filename As String, _
songname As String, singer As String, special _
As String, ptime As String, explain As String, _
 paritybyte As Byte) As Boolean
Dim i As Integer
i = 1
Dim s As String
Open Filename For Binary As #i
s = String(127, " ")
Seek i, LOF(i) - 127
Get i, , s
Close #i
If LCase(Left(s, 3)) <> "tag" Then
read_TAG = False
songname = " ": singer = " ": special = " ": ptime = " ": explain = " ": paritybyte = 0
Exit Function
End If
s = StrConv(StrConv(s, vbFromUnicode), vbUnicode)songname = Trim(Mid(s, 4, 26)) '歌的名字
singer = Trim(Mid(s, 30, 26))
special = Trim(Mid(s, 56, 26))
ptime = Trim(Mid(s, 84, 5))
explain = Trim(Mid(s, 89, 30))
paritybyte = Asc(Right(s, 1))
read_TAG = True
End Function

Answer 2

Option Explicit
Public sGenreMatrixType Info
    sTitle As String * 30
    sArtist As String * 30
    sAlbum As String * 30
    sComment As String * 30
    sYear As String * 4
    sGenre As String * 21 ' NEW
End TypeType HeaderInfo
    Layer As String
    Frequency As String
    Bitrate As String
    Mode As String
    MpegVersion As String
    Emphasis As String
    FPlayTime As String 'Formatted playing time - 04:32
    mFileSize As String
End TypePublic MP3Info As Info
Public MP3HeaderInfo As HeaderInfoPublic Function GetMP3Tag(ByVal sPassFileName As String) As Boolean
    Dim iFreefile As Integer
    Dim lFilePos As Long
    Dim sData As String * 128
    Dim sGenreMatrix As String
    Dim sGenre() As String
    
    ' Genre
    sGenreMatrix = "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, "|")
    
    ' Clear the info variables
    MP3Info.sTitle = ""
    MP3Info.sArtist = ""
    MP3Info.sAlbum = ""
    MP3Info.sYear = ""
    MP3Info.sComment = ""
    ' Ensure the MP3 file exists
    If Dir(sPassFileName) = "" Then GetMP3Tag = False: GoTo CloseMe
    ' Retrieve the info data from the MP3
    GetMP3Tag = True
    iFreefile = FreeFile
    lFilePos = FileLen(sPassFileName) - 127
    Open sPassFileName For Binary As #iFreefile
    Get #iFreefile, lFilePos, sData
    Close #iFreefile
    ' Populate the info variables
    
    If Left(sData, 3) = "TAG" Then
        MP3Info.sTitle = RTrim(Mid(sData, 4, 30))
        MP3Info.sArtist = RTrim(Mid(sData, 34, 30))
        MP3Info.sAlbum = RTrim(Mid(sData, 64, 30))
        MP3Info.sYear = RTrim(Mid(sData, 94, 4))
        MP3Info.sComment = RTrim(Mid(sData, 98, 30))
        MP3Info.sGenre = RTrim(sGenre(Asc(Mid(sData, 128, 1))))
    End If
    
CloseMe:
Close #iFreefile
End Function
           以上摘自：程序太平洋  
           主页:http://www.dapha.net
           E-Mail： [email protected]
           msn:[email protected]
     程序太平洋提供全面的VB编程资源,让我们一起努力！！！！

Answer 3

Public Function ReadMP3Header(sPassFileName As String)
Dim z, i
Dim BinaryString As String
Dim byteArray(4) As Byte    'array that store first four bytes
Dim bin As String           'string that store binary number converted from readed bytes
Dim BinString As String     'containing binary string
Dim DecString As Integer  'containing decimal extracted from BinString
'''''''''''''''end of declarations'''''''Open sPassFileName For Binary Access Read As #1  'open file #1 for read
   For z = 1 To 4                           'step through four bytes
   Get #1, z, byteArray(z)                  'store every(z)byte  in array position z
   Next z                                   'back for next byte
 Close #1                                   'close file
 bin = ""                                   'reset and build the desired binary number in this string
   For z = 1 To 4                           'convert all bytes to binary
     For i = 0 To 7 Step 1                  'Here comes the decimal=>binary conversion
         If byteArray(z) And (2 ^ i) Then   'Use the logical "AND" operator.
            bin = bin + "1"
            Else
            bin = bin + "0"
         End If
         Next i                             'End of binary conversion
Next z
BinaryString = bin
'''''''''check MP3HeaderInfo.Frequency''''
DecString = 0
BinString = Mid(bin, 19, 2)         'take 19 to 21
For i = 1 To Len(BinString)         'convert to decimal
If Mid(BinString, i, 1) = 1 Then
DecString = DecString + 2 ^ (Len(BinString) - i)
End If
Next i
Select Case DecString
Case 0
MP3HeaderInfo.Frequency = 44100
Case 1
MP3HeaderInfo.Frequency = 32000
Case 2
MP3HeaderInfo.Frequency = 48000
Case 3
End Select
'''''check MP3HeaderInfo.Layer''''
DecString = 0
BinString = Mid(bin, 10, 2)
For i = 1 To Len(BinString)
If Mid(BinString, i, 1) = 1 Then
DecString = DecString + 2 ^ (Len(BinString) - i)
End If
Next i
Select Case DecString
Case 0
MP3HeaderInfo.Layer = ""
Case 1
MP3HeaderInfo.Layer = 2
Case 2
MP3HeaderInfo.Layer = 3
Case 3
MP3HeaderInfo.Layer = 1
End Select
''''check MP3HeaderInfo.Mode''''
DecString = 0
BinString = Mid(bin, 31, 2)
For i = 1 To Len(BinString)
If Mid(BinString, i, 1) = 1 Then
DecString = DecString + 2 ^ (Len(BinString) - i)
End If
Next i
Select Case DecString
Case 0
MP3HeaderInfo.Mode = "Stereo"
Case 1
MP3HeaderInfo.Mode = "Dual Channel"
Case 2
MP3HeaderInfo.Mode = "Joint stereo"
Case 3
MP3HeaderInfo.Mode = "Mono"
End Select
''''check MP3HeaderInfo.MpegVersion
If Mid(bin, 12, 1) = 0 Then
MP3HeaderInfo.MpegVersion = 2
Else
MP3HeaderInfo.MpegVersion = 1
End If
'''''check MP3HeaderInfo.Bitrate''''
DecString = 0
BinString = Mid(bin, 21, 4)
For i = 1 To Len(BinString)
If Mid(BinString, i, 1) = 1 Then
DecString = DecString + 2 ^ (Len(BinString) - i)
End If
Next i
Select Case DecString
Case 0
MP3HeaderInfo.Bitrate = 0
Case 1
MP3HeaderInfo.Bitrate = 112
Case 2
MP3HeaderInfo.Bitrate = 56
Case 3
MP3HeaderInfo.Bitrate = 224
Case 4
MP3HeaderInfo.Bitrate = 40
Case 5
MP3HeaderInfo.Bitrate = 160
Case 6
MP3HeaderInfo.Bitrate = 80
Case 7
MP3HeaderInfo.Bitrate = 320
Case 8
MP3HeaderInfo.Bitrate = 32
Case 9
MP3HeaderInfo.Bitrate = 128
Case 10
MP3HeaderInfo.Bitrate = 64
Case 11
MP3HeaderInfo.Bitrate = 256
Case 12
MP3HeaderInfo.Bitrate = 48
Case 13
MP3HeaderInfo.Bitrate = 192
Case 14
MP3HeaderInfo.Bitrate = 96
Case 15
MP3HeaderInfo.Bitrate = 0
If MP3HeaderInfo.Layer = 1 Then
    Select Case DecString
    Case 0
MP3HeaderInfo.Bitrate = 0
    Case 1
  MP3HeaderInfo.Bitrate = 128
    Case 2
   MP3HeaderInfo.Bitrate = 64
    Case 3
MP3HeaderInfo.Bitrate = 256
    Case 4
MP3HeaderInfo.Bitrate = 48
    Case 5
MP3HeaderInfo.Bitrate = 192
    Case 6
MP3HeaderInfo.Bitrate = 96
    Case 7
    MP3HeaderInfo.Bitrate = 384
    Case 8
MP3HeaderInfo.Bitrate = 32
    Case 9
MP3HeaderInfo.Bitrate = 160
    Case 10
    MP3HeaderInfo.Bitrate = 80
    Case 11
MP3HeaderInfo.Bitrate = 320
    Case 12
MP3HeaderInfo.Bitrate = 56
    Case 13
MP3HeaderInfo.Bitrate = 224
    Case 14
  MP3HeaderInfo.Bitrate = 112
    Case 15
MP3HeaderInfo.Bitrate = 0
End Select
End If
End Select
'''''MP3HeaderInfo.Emphasis''''
DecString = 0
BinString = Mid(bin, 25, 2)
For i = 1 To Len(BinString)        'go from first
If Mid(BinString, i, 1) = 1 Then
DecString = DecString + 2 ^ (Len(BinString) - i)
End If
Next i
Select Case DecString
Case 0
MP3HeaderInfo.Emphasis = "No"
Case 1
MP3HeaderInfo.Emphasis = "-?-"
Case 2
MP3HeaderInfo.Emphasis = "50/15"
Case 3
MP3HeaderInfo.Emphasis = "CITT j. 17"
End SelectWith MP3HeaderInfo
    Dim min, sec
    .Bitrate = Int(.Bitrate)
    .mFileSize = FileSizeMP3(sPassFileName)
    .FPlayTime = ((.mFileSize * 8) / (.Bitrate * 1000))
    min = .FPlayTime \ 60         'minutes
    sec = .FPlayTime - (min * 60) 'seconds
    .FPlayTime = Format(min, "#0#") & ":" & Format(sec, "0#") 'format time to 00:00
End WithEnd Function
''''''Read MP3 Header END''''''''''''Remove Tag BEGIN''''''
Public Function RemoveMP3Tag(sPassFileName As String) As Boolean
Dim blank
On Error GoTo Errorcheck
blank = String$(127, 0)                     'assign string "blank" 127 blank
Open sPassFileName For Binary Access Write As #1 'open file
Seek #1, LOF(1) - 127   'seek position
Put #1, , blank         'write string
Close #1                'close file
RemoveMP3Tag = True
Exit Function
Errorcheck:
RemoveMP3Tag = False
Exit Function
End FunctionPublic Function WriteMP3Tag(sPassFileName As String, TAG As String, SongName As String, Artist As String, Album As String, Year As String, Comment As String, Genre As String) As Boolean
On Error GoTo Errorcheck
 Dim wTag As String * 3     ' First 3 Chars of 128 byte Tag Info - 'TAG'
 Dim wSongname As String * 30
 Dim wArtist As String * 30
 Dim wAlbum As String * 30
 Dim wYear As String * 4
 Dim wComment As String * 30
 Dim wGenre As String * 1
 
    wTag = TAG
    wSongname = RTrim(SongName)
    wArtist = RTrim(Artist)
    wAlbum = RTrim(Album)
    wYear = Left(Year, 4)
    wComment = RTrim(Comment)
    wGenre = Chr(Genre + 1)
    
    Open sPassFileName For Binary Access Write As #1
    Seek #1, FileLen(sPassFileName) - 127
    Put #1, , wTag
    Put #1, , wSongname
    Put #1, , wArtist
    Put #1, , wAlbum
    Put #1, , wYear
    Put #1, , wComment
    Put #1, , wGenre
    WriteMP3Tag = True
        Close #1
Exit Function
Errorcheck:
    WriteMP3Tag = False
Exit Function
End FunctionPublic Function FileSizeMP3(File As String) As String
    Dim LSize As String
    If File = "" Then
    FileSizeMP3 = ""
    Exit Function
    End If
    LSize = FileLen(File)
    FileSizeMP3 = LSize 'Size in bytes
End Function
           以上摘自：程序太平洋  
           主页:http://www.dapha.net
           E-Mail： [email protected]
           msn:[email protected]
     程序太平洋提供全面的VB编程资源,让我们一起努力！！！！

Answer 4

lxqlogo0(群子):你的回复，我早就看过，所以不能给你100分。
我的目的是希望在标准信息的基础上在加入再加入另外的信息，
比如，加密的公钥、一个URL等。