module1.bas

用Winamp制作的m3u播放列表转换成通用格式

Attribute VB_Name = "Module1"
Sub Main()
    Open Command For Input As #1
    Dim a As String, b(200) As String, i As Integer, j As Integer
        While Not EOF(1)
        Input #1, a
        If Left(a, 1) = "\" Then j = j + 1: b(j) = a
    Wend
    Close #1
    Open Command & ".m3u" For Output As #1
    For i = 1 To j
        Print #1, Left(Command, 2) & b(i)
    Next i
    Close #1
End
End Sub