歌词文件解析(一):LRC格式文件的解析

Public Class LyricClass
    Structure LyricStructre ‘歌词结构类型
        Dim Count As Integer
        Dim LyricTime As List(Of Integer) ‘每行歌词的时间序列
        Dim LyricString As List(Of String) ‘每行歌词的字符串序列
    End Structure
    Structure InformationStructre ‘歌词信息结构类型
        Dim Author As String ‘作者名[ar]
        Dim Title As String ‘歌曲名[ti]
        Dim Album As String ‘专辑名[al]
        Dim Editor As String ‘编者[by]
        Dim Offset As Integer ‘时间补偿值[offset]
    End Structure
    Public LyricData As New LyricStructre With {.LyricTime = New List(Of Integer), .LyricString = New List(Of String)}
    Public LyricInf As New InformationStructre
    Public isLoadFail As Boolean = False ‘是否加载失败
    Public Sub New(ByVal FileName As String)
        LoadLyrics(FileName)
    End Sub
    Public Sub LoadLyrics(ByVal FileName As String)
        Dim str As String
        LyricData.Count = 0
        LyricData.LyricTime.Clear()
        LyricData.LyricString.Clear()
        If My.Computer.FileSystem.FileExists(FileName) = True Then
            str = My.Computer.FileSystem.ReadAllText(FileName, System.Text.Encoding.Default)
            Dim tempString As String
            For Each SubString As String In Split(str, vbCrLf)
                tempString = Mid(SubString, 2, 2)
                If IsNumeric(tempString) = True Then
                    LyricData.count += 1
                    LyricData.LyricTime.Add(Mid(SubString, 2, 2) * 60 * 100 + Mid(SubString, 5, 2) * 100 + Mid(SubString, 8, 2))
                    LyricData.LyricString.Add(Mid(SubString, SubString.IndexOf("]") + 2))
                ElseIf tempString = "ar" Then
                    LyricInf.Author = Split(Split(SubString, ":")(1), "]")(0)
                ElseIf tempString = "ti" Then
                    LyricInf.Title = Split(Split(SubString, ":")(1), "]")(0)
                ElseIf tempString = "al" Then
                    LyricInf.Album = Split(Split(SubString, ":")(1), "]")(0)
                ElseIf tempString = "by" Then
                    LyricInf.Editor = Split(Split(SubString, ":")(1), "]")(0)
                ElseIf tempString = "of" Then
                    LyricInf.Offset = Split(Split(SubString, ":")(1), "]")(0)
                End If
            Next
        Else
            isLoadFail = True ‘加载失败
        End If
    End Sub
End Class