我想知道是否可以使用TagLibSharp库从MP3文件中删除Lyrics3v2标签类型。
该文档说，该块条目以单词“ LYRICSBEGIN ”开头，并以“ LYRICS200 ”结尾，还说该ID3标签应该存在以使Lyrics3v2标签存在...但是它没有指定是否引用ID3v1或无论如何， ID3v2标签或其中的任何一个我都不理解，因为Lyrics3v2标签是单个标签类型，也不是ID3v1 / ID3v2标签类型的一部分，它在mp3标头上有自己的条目，因此...我不了解ID3v1 / ID3v2 “依赖关系”的含义。
无论如何，假设信息是正确的，那么我应该能够使用TagLibSharp从包含Lyrics3v2标签的mp3文件中删除ID3v1和ID3v2标签，然后该标签也将被删除吗？但是，该标签仍然存在。
此外，Lyrics公开TagLibSharp的类的属性似乎并不影响Lyrics3v2标签，所有这些都令人非常困惑。
我使用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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句