应该不行的,我以前也有个计划写一个可以显示歌词的mp3播放器
但是没有实现。你可以考虑放一个数据库,把歌词放到数据库里面,然后每个mp3文件都对应一条歌词记录。

解决方案 »

  1.   

    Sub WriteFile(FileName As String, StrTxt As String)
    Open FileName For Binary As FileNo
    FileLen = LOF(FileNo)
    Seek #FileNo, FileLen + 1
    Put #FileNo, , StrTxt & "<·>" & FileLen
    Close FileNo
    End SubFunction ReadFile(FileName As String) As String
    Dim FileStr As String
    Dim Lyric As String
    Dim Mp3Len As Long
    Dim Strtmp As String
    Open FileName For Binary As FileNo
    FileLen = LOF(FileNo)
    FileStr = Space(FileLen)
    Get #FileNo, , FileStr
    Strtmp = ""
    MyStrs = Split(FileStr, "<·>")
    For Each Strs In MyStrs
        If Strtmp = "" Then
            Strtmp = Strs
        Else
            Mp3Len = Val(Strs)
        End If
    NextSeek #FileNo, Mp3Len + 1
    FileStr = Space(FileLen - Mp3Len)
    Get #FileNo, , FileStrLyric = ""
    MyStrs = Split(FileStr, "<·>")
    For Each Strs In MyStrs
        If Lyric = "" Then
            Lyric = Strs
        End If
    Next
    Close FileNo
    ReadFile = Lyric
    End Function上面一个写。下面一个读
      

  2.   

    其实写不写入MP3里无所谓的。我想你想不只是显示出来把,至少还要加上时间控制,象卡拉OK一样。我见过一个WINAMP的一个插件能显示歌词。就是使用歌词库,有时间控制。还包括一个歌词编辑器。很方便,歌词库使用一般的文本文件,如果愿意可以使用数据库。如果往MP3里写,我觉得不方便,也不太实用。这样重点就在歌词编辑器了。这是我的意见。
      

  3.   

    Winamp 2.75 就有自带这种插件……
      

  4.   

    to pp616
    看来你一早就做过一个,FileNo是全局变量吧?你应该指出,并定义的,起码在这个情况下,呵呵:
    dim FileNo as integer
      

  5.   

    to:enmity
    文件号而已。好象这里都不是水平很底的。这点东西应该没问题的。
      

  6.   

      楼上的程序好弱智,看来更本不懂 ID3 Tag v2 的规则,谁要是有 ID3 v2 的 MP3 被你这样一弄……哎呀~杀人啦!
      看看 http://www.id3.com 的文档再耍帅吧。
      

  7.   

      哎呀,是 http://www.id3.org,一时激动,打错了。
      

  8.   

    开什么玩笑哦,MP3文件末尾(所谓的)仅有128Byte可用于记录信息,而且都是固定用于记录Artist、Album之类的信息,怎能随随便便想干什么就干什么!
      

  9.   

    To: 阿木,你说的是 ID3 Tag 1.0 版本,现在新的 2.0 版本可以无限制,建议去看看。他们不懂,算了。
      

  10.   

    To DevilXelloss And Amoon:
           我就是听说过这方面的信息,但不知具体情况。如果我要用VB把歌词写进去,我应该怎样做??
      

  11.   

    用ultraedit编辑一首mp3,如果从文件尾开始,那么你爱删多少就删多少好了,根本没有什么限制,只不过是曲子变短了一点,所以把歌词加在文件尾是可行的在华军软件园的搜索中输入“歌词”,你会找到一个叫lyricsShow的winamp的插件,这插件已经快做到可以随歌词逐字渲染了这个插件用专门的文件和专门的插件来处理歌词,各位去试试看吧