MP3

然后在模块中加入：'-----------------------
Option Explicit
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpstring As String) As Long
Public Type mp3Tag
      Artist  As String        'Artist 存储歌手信息
      Album  As String         'Album  存储唱片专辑信息
      Title As String          'Title  存储标题信息
      Year As String           'Year   存储年代信息
      Comments As String       'Comments 存储备注信息
      Genre As Integer         'Genre   存储音乐风格序列
  End Type
Public Function GetMp3Tag(FName As String) As mp3Tag
    Dim Artist As String
    Dim Album As String
    Dim Title As String
    Dim Year As String
    Dim Comments As String
    Dim Genre As Integer

    If FName = "" Then Exit Function    If Dir(FName) = "" Then Exit Function

    Dim FileNum As Integer    FileNum = FreeFile                            '得到一个自由的文件号    Dim strInput As String    Open FName For Binary Access Read As FileNum  '以二进制形式打开文件

    If LOF(FileNum) < 128 Then
        Close FileNum
        Exit Function
    End If

    Seek FileNum, LOF(FileNum) - 127             '把文件指针移动到MP3信息处
    strInput = Space(3)
    Get FileNum, , strInput
    If strInput <> "TAG" Then                    '如果没有发现信息标识，就关闭文件
        Close FileNum
        GoTo Done:
    End If

    strInput = Space(30)
    Get FileNum, , strInput
    Title = Trim(strInput)

    Seek FileNum, LOF(FileNum) - 124 + 30
    strInput = Space(30)
    Get FileNum, , strInput
    Artist = Trim(strInput)

    Seek FileNum, LOF(FileNum) - 124 + 30 + 30
    strInput = Space(30)
    Get FileNum, , strInput
    Album = Trim(strInput)

    Seek FileNum, LOF(FileNum) - 124 + 30 + 30 + 30
    strInput = Space(4)
    Get FileNum, , strInput
    Year = Trim(strInput)

    Seek FileNum, LOF(FileNum) - 30
    strInput = Space(30)
    Get FileNum, , strInput
    Comments = Trim(strInput)

    Seek FileNum, LOF(FileNum)
    strInput = Space(1)
    Get FileNum, , strInput
    Genre = Asc(strInput)Done:
        GetMp3Tag.Title = Title
        GetMp3Tag.Artist = Artist
        GetMp3Tag.Album = Album
        GetMp3Tag.Year = Year
        GetMp3Tag.Comments = Comments
        If Genre < 0 Or Genre > 254 Then Genre = 12
        GetMp3Tag.Genre = CInt(Genre)

    Close FileNumEnd Function
'--------------------------------

先谢谢楼主给分！
这个程序我也是从网上找来的，但是原来的程序只能读英文的信息，如果信息中有中文的，读出来的结果很混乱，我进行了修正，你贴的程序在网上很多，所以原作者到底是谁很难说了，但是错误都是不能读中文，关键就在于他的    strInput = Space(30)    '其中的30如果全是英文字符就没问题，但中文的是占   两个Space，所以会发生错乱！
    Get FileNum, , strInput
    Title = Trim(strInput)以下是我改的，算的时候麻烦一点吧。Seek FileNum, LOF(FileNum) - 124 + 30  '这样的话就不会出错。
    strInput = Space(30)
    Get FileNum, , strInput
    Artist = Trim(strInput)谢谢

解决方案 »