3

我想知道是否可以使用TagLibSharp库从 MP3 文件中删除Lyrics3v2标签类型。

该文档说块条目以单词“ LYRICSBEGIN ”开头并以“ LYRICS200 ”结尾，还说应该存在ID3标签以让Lyrics3v2标签存在......但它没有指定是否引用ID3v1或ID3v2标签或其中任何一个，反正我不明白那部分，因为Lyrics3v2标签是单一标签类型，不是ID3v1/ID3v2标签类型的一部分，它在 mp3 标题上有自己的条目，所以......我不明白ID3v1/ID3v2 “依赖”是什么意思。

无论如何假设信息是正确的，那么我应该能够使用TagLibSharp从包含Lyrics3v2标签的 mp3 文件中删除ID3v1和ID3v2标签，然后该标签也会被删除？但是，标签仍然存在。

此外，Lyrics公开TagLibSharp的类的属性似乎不会影响Lyrics3v2标签，这一切都非常令人困惑。

4

2 回答 2

3

根据如何从 id3 中删除 Lyrics3 v2 标签？答案是不”。您将在链接的下面回答。

于 2016-05-01T10:42:31.523 回答
2

我使用以下方法编写了此解决方案taglibsharp：

' *************************************************************
' THIS CLASS IS PARTIALLY DEFINED FOR THIS STACKOVERFLOW ANSWER
' *************************************************************

Imports System.IO
Imports System.Text
Imports TagLib

''' <summary>
''' Represents the <c>Lyrics3</c> tag for a MP3 file.
''' </summary>
Public Class Lyrics3Tag

    Protected ReadOnly mp3File As Mpeg.AudioFile

    ''' <summary>
    ''' The maximum length for the <c>Lyrics3</c> block to prevent issues like removing a false-positive block of data.
    ''' <para></para>
    ''' Note that this is a personal attempt to prevent catastrophes, not based on any official info.
    ''' </summary>
    Private ReadOnly maxLength As Integer = 512 ' bytes

    Private Sub New()
    End Sub

    Public Sub New(ByVal mp3File As Mpeg.AudioFile)
        Me.mp3File = mp3File
    End Sub

    ''' <summary>
    ''' Entirely removes the <c>Lyrics3</c> tag.
    ''' </summary>
    <DebuggerStepThrough>
    Public Overridable Sub Remove()

        Dim initVector As New ByteVector(Encoding.UTF8.GetBytes("LYRICSBEGIN"))
        Dim initOffset As Long = Me.mp3File.Find(initVector, startPosition:=0)

        If (initOffset <> -1) Then

            ' The Lyrics3 block can end with one of these two markups, so we need to evaluate both.
            For Each str As String In {"LYRICS200", "LYRICSEND"}

                Dim endVector As New ByteVector(Encoding.UTF8.GetBytes(str))
                Dim endOffset As Long = Me.mp3File.Find(endVector, startPosition:=initOffset)

                If (endOffset <> -1) Then

                    Dim length As Integer = CInt(endOffset - initOffset) + (str.Length)
                    If (length < Me.maxLength) Then
                        Try
                            Me.mp3File.Seek(initOffset, SeekOrigin.Begin)
                            ' Dim raw As String = Me.mp3File.ReadBlock(length).ToString()
                            Me.mp3File.RemoveBlock(initOffset, length)
                            Exit Sub

                        Catch ex As Exception
                            Throw

                        Finally
                            Me.mp3File.Seek(0, SeekOrigin.Begin)

                        End Try

                    Else ' Length exceeds the max length.
                         ' We can handle it or continue...
                        Continue For

                    End If

                End If

            Next str

        End If

    End Sub

End Class

示例用法：

Dim mp3File As New Taglib.Mpeg.AudioFile("filepath")

Using lyrics As New Lyrics3Tag(mp3File)
    lyrics.Remove()
End Using
于 2016-05-06T08:51:41.457 回答