是否可以使用 TagLibSharp 从 MP3 文件中删除 Lyrics3v2 标签？

Question

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

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

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

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

Answer 1

根据 How to remove Lyrics3 v2 tag from id3?，答案是 "No"。您将在下面的链接答案中找到解决方法。

Answer 2

我使用 taglibsharp:

编写了这个解决方案

' *************************************************************
' THIS CLASS IS PARTIALLY DEFINED FOR THIS Whosebug 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

是否可以使用 TagLibSharp 从 MP3 文件中删除 Lyrics3v2 标签？

Is it possible, using TagLibSharp, to remove a Lyrics3v2 tag from a MP3 file?

.net

c#

vb.net

mp3

taglib-sharp