小程序：LRC歌词展开

LRC大家都知道吧（不知道？就是那个带时间标签的文本歌词格式嘛~），很好用的东东~所以最近很多MP3Player也开始支持它了。笔者手上就有一个联想F520的MP3支持，不过有点小麻烦，这个MP3只支持一行一个时间标签，但是笔者手头上的LRC一行都有好些时间标签，像这样，MP3就会把后面的时间标签全部显示出来（晕~）

看来只能修改修改了~既然我们没办法修改MP3的固件，那就在LRC上动手脚吧~把他展开为每行一个时间标签不就得了~说干就干！

不过我懒得再作界面，所以直接从命令行参数中获取，此外这个纠错机制不是很完善（毕竟才一个过程），大家也可以帮忙修改~

代码如下：

Sub Main()

Dim sCommand() As String

Dim bTmp As Byte

Dim sTmp As String

Dim cFile As Collection

Dim iNum As Integer

Dim sTmp2 As String

Dim i As Integer

Dim j As Integer

Dim sTmp3 As String

Dim bIsAdd As Boolean

Set cFile = New Collection

sCommand = Split(Command, "*") '用*作分隔符，很简单，文件名不能带*，用?也可以

Open sCommand(0) For Input As #1

Do Until EOF(1)

Input #1, sTmp

iNum = 0

Do While ((Mid(sTmp, iNum * 9 + 1, 1) = "[") And (Mid(sTmp, (iNum + 1) * 9, 1) = "]"))

iNum = iNum + 1

Loop

sTmp2 = Right(sTmp, Len(sTmp) - 9 * iNum)

For i = 0 To iNum - 1

sTmp3 = Mid(sTmp, i * 9 + 2, 7)

If cFile.Count = 0 Then

cFile.Add "[" & sTmp3 & "]" & sTmp2

Else

bIsAdd = False

For j = 1 To cFile.Count

If Mid(cFile(j), 2, 7) > Mid(sTmp, i * 9 + 2, 7) Then

cFile.Add "[" & sTmp3 & "]" & sTmp2, , j

bIsAdd = True

Exit For

End If

Next j

If Not bIsAdd Then cFile.Add "[" & sTmp3 & "]" & sTmp2

End If

Next i

Loop

Close #1

Open sCommand(1) For Output As #1

For i = 1 To cFile.Count

Print #1, cFile(i)

Next i

Close #1

End Sub

大家应该还能看的懂吧~这个经过试验还是不错的~

最终通过环境：VB6+Win2000