怎样读取MP3文件的ID信息?

Question

看一下文件格式
http://www.oreilly.com/catalog/mp3/chapter/ch02.html#71109

Answer 1

lxqlogo0(群子) 的代码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