LRC歌词分析函数

特别声明:转载请用IP地址链接,严禁原文转载!

发布我的LRC歌词分析函数。这是我现在1.8版本全功能播放器所使用的最新功能。要想歌曲、歌词同步播放,其关键有2点:1、什么时候显示歌词?按照播放时间将相应的歌词快速取出来。2、歌曲、歌词还必须匹配:即3分10秒的歌曲,你就得去找3分10秒的歌词,而不是3分15秒的歌词。


'******************************************************************************************
'*                              Module1.bas                                               *
'* 调用成功(分析歌词成功)后:LyricsAlalysys=True,并返回排好序的歌词数组LRCgeci,           *
'* 以及歌曲名GeMing、歌手GeShou、专辑ZhuanJi、编者GeCiFrom;否则返回LyricsAlalysys=False     *
'* 最后一个FOR循环是对歌词排序,歌词排序是同步播放的关键!                                    *
'*                     特别声明:转载请用IP地址,严禁原文转载!                              *
'*                     作者:Chenjl1031(东方之珠)                                          *
'******************************************************************************************
Option Explicit
'处理LRC歌词
Public LRCgeci() As String 'LRC歌词按行存放在数组中
Public iDimention As Integer
Public GeMing As String, GeShou As String, ZhuanJi As String, GeCiFrom As String
Public LrcOffset As String 'LRC歌词时间偏移量

Public Function LyricsAlalysys(LyricsName As String) As Boolean 'LRC歌词分析函数
      
       Dim FileNumber As Integer, FileCount As Integer, i As Integer, j As Integer, K As Long, L As Integer
       Dim TimeLabelLength As Integer '时间标签的长度
       Dim Chenjl1031 As Boolean
       Dim MyValue As String
       Dim sRow As String
       Dim TimeLabel As String
       Dim miniute As String, second As String, msecond As String 'miniute代表分,second代表秒,msecond代表毫秒
       Dim s1 As String, s2 As String
       On Error Resume Next
       GeMing = "未知"  '存放歌曲名
       GeShou = "未知" '存放歌手名字
       ZhuanJi = "未知"  '存放专辑名字
       GeCiFrom = "未知"  '存放歌词来自何处,即编者
       '打开LRC歌词文件LyricsName
       FileCount = 0: j = 0: TimeLabelLength = 0: Chenjl1031 = True
       If Dir(Player.MyPath & "Lyrics/" & LyricsName & ".lrc") <> "" Then
          LyricsAlalysys = True
          LrcOffset = "0"  '存放歌词偏移量
          FileNumber = FreeFile
          Open (Player.MyPath & "Lyrics/" & LyricsName & ".lrc") For Input As #FileNumber '打开文件,从中读取LRC歌词
          Do While Not EOF(FileNumber)
              Line Input #FileNumber, MyValue '读取一行歌词到变量MyValue
              MyValue = Trim(MyValue)
              For i = 1 To Len(MyValue)
                  sRow = Mid(MyValue, i, 1)
                  If sRow = "[" Then
                     FileCount = FileCount + 1 'FileCount计数用来确定歌词有多少行
                     L = i + 1
                     sRow = Mid(MyValue, L, 1)
                     If IsNumeric(sRow) Then
                        Do While Chenjl1031
                           sRow = Mid(MyValue, L + 1, 1)
                           If IsNumeric(sRow) Or sRow = ":" Or sRow = "." Then
                              TimeLabelLength = TimeLabelLength + 1
                           End If
                           If sRow = "]" Then TimeLabelLength = TimeLabelLength + 3: Chenjl1031 = False: Exit Do
                           L = L + 1
                        Loop
                     End If
                  End If
              Next
              '处理LRC歌词头
              If InStr(LCase(MyValue), "[ti:") > 0 Then
                 i = InStr(LCase(MyValue), "[ti:")
                 Mid(MyValue, i, 4) = "    "
                 MyValue = Mid(MyValue, 2, Len(MyValue) - 2)
                 GeMing = IIf(Trim(MyValue) <> "", Trim(MyValue), "未知") '存放歌曲名
                 j = j + 1
              End If
              If InStr(LCase(MyValue), "[ar:") > 0 Then
                 i = InStr(LCase(MyValue), "[ar:")
                 Mid(MyValue, i, 4) = "    "
                 MyValue = Mid(MyValue, 2, Len(MyValue) - 2)
                 GeShou = IIf(Trim(MyValue) <> "", Trim(MyValue), "未知") '存放歌手名字
                 j = j + 1
              End If
              If InStr(LCase(MyValue), "[al:") > 0 Then
                 i = InStr(LCase(MyValue), "[al:")
                 Mid(MyValue, i, 4) = "    "
                 MyValue = Mid(MyValue, 2, Len(MyValue) - 2)
                 ZhuanJi = IIf(Trim(MyValue) <> "", Trim(MyValue), "未知") '存放专辑名字
                 j = j + 1
              End If
              If InStr(LCase(MyValue), "[by:") > 0 Then
                 i = InStr(LCase(MyValue), "[by:")
                 Mid(MyValue, i, 4) = "    "
                 MyValue = Mid(MyValue, 2, Len(MyValue) - 2)
                 GeCiFrom = IIf(Trim(MyValue) <> "", Trim(MyValue), "未知") '存放歌词来自何处
                 j = j + 1
              End If
              If InStr(LCase(MyValue), "[offset:") > 0 Then
                 i = InStr(LCase(MyValue), "[offset:")
                 Mid(MyValue, i, 8) = Space(8)
                 MyValue = Mid(MyValue, 2, Len(MyValue) - 2)
                 LrcOffset = IIf(Trim(MyValue) <> "", Trim(MyValue), "0") '存放歌词偏移量
                 j = j + 1
              End If
          Loop
          Close #FileNumber
          ReDim LRCgeci(Trim(Str(FileCount - j - 1))) '重新定义实际歌词的行数数组,有FileCount - j个元素
         

          '处理LRC歌词文本         
          FileCount = 0
          FileNumber = FreeFile
          Open (Player.MyPath & "Lyrics/" & LyricsName & ".lrc") For Input As #FileNumber '打开文件,从中读取LRC歌词
          Do While Not EOF(FileNumber)
              Line Input #FileNumber, MyValue '读取一行歌词到变量MyValue
              MyValue = Trim(MyValue)
              sRow = Mid(MyValue, 2, 2)
              j = 0: i = 0
              If IsNumeric(sRow) Then '判断是否时间标签行
                 i = i + 1
                 Do While True
                    j = j + TimeLabelLength
                    sRow = Mid(MyValue, j + 2, 2)
                    If IsNumeric(sRow) Then  '判断是否时间标签行
                       i = i + 1 'i累加后即为每一行时间标签的个数
                    Else
                       Exit Do
                    End If
                 Loop
                
                 For j = 1 To i 'Step 1
                     TimeLabel = Mid(MyValue, (j - 1) * TimeLabelLength + 1, TimeLabelLength)
                     If TimeLabelLength > 2 Then miniute = Mid(TimeLabel, 2, 2)
                     If TimeLabelLength > 5 Then second = Mid(TimeLabel, 5, 2)
                     If TimeLabelLength > 8 Then msecond = Mid(TimeLabel, 8, 2)                    
                     K = Val(miniute) * 60000 + Val(second) * 1000 + Val(msecond) - Val(LrcOffset)
                     s1 = Trim(Str(K))
                     If Len(s1) = 1 Then s2 = "[0000000" & s1 & "]"
                     If Len(s1) = 2 Then s2 = "[000000" & s1 & "]"
                     If Len(s1) = 3 Then s2 = "[00000" & s1 & "]"
                     If Len(s1) = 4 Then s2 = "[0000" & s1 & "]"
                     If Len(s1) = 5 Then s2 = "[000" & s1 & "]"
                     If Len(s1) = 6 Then s2 = "[00" & s1 & "]"
                     If Len(s1) = 7 Then s2 = "[0" & s1 & "]"
                     If Len(s1) >= 8 Then s2 = "[" & s1 & "]"                    
                     LRCgeci(Trim(Str(FileCount))) = Trim(s2 & Mid(MyValue, i * TimeLabelLength + 1, Len(MyValue) - (i * TimeLabelLength)))  'i代表时间标签的个数                    
                     FileCount = FileCount + 1
                 Next
                
                
              End If
          Loop
          iDimention = FileCount - 1
          Close #FileNumber
         
          '冒泡排序
          For i = 0 To FileCount - 2
              For j = 0 To FileCount - 2 - i
                  If Val(Mid(LRCgeci(j), 2, 8)) > Val(Mid(LRCgeci(j + 1), 2, 8)) Then
                     sRow = LRCgeci(j)
                     LRCgeci(j) = LRCgeci(j + 1)
                     LRCgeci(j + 1) = sRow
                  End If
              Next j
          Next i
         
       Else
          LyricsAlalysys = False
       End If     
      
End Function 

 
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值