VB.NET使用TagLib#读取MP3中的ID3v2标签

Taglib#是一个为.NET开发的元数据读取类库，为一个开源项目，可以在他们的官网上获取windows版本的源码包或者编译好的类库：http://download.banshee.fm/taglib-sharp/

可以使用下面的一个小小的类读取mp3音频文件中的ID3v2标签，类模块输出的字段包括最常用的专辑名称、专辑作者、歌曲标题和内嵌于mp3文件中的专辑封面。

内嵌的专辑封面的读取参阅这篇文章：http://social.msdn.microsoft.com/Forums/pl-PL/vbgeneral/thread/b540120b-1904-44ad-9448-9695482aebdf

Private Class ID3v2

Dim MP3 As TagLib.File= Nothing

Public lbAlbum, lbArtist, lbTitle As String

Public AlbumArt As Image = Nothing

Private Function GetString(ByVal str As String(), ByVal strDelimeter As String) As String

Dim value As String= Nothing

For i As Integer = 0 To str.Length - 1

value += str(i)

Ifi = str.Length - 1 Then Exit For

value += strDelimeter

Next

Return value

End Function

Sub New(ByVal lpFile As String)

MP3 = TagLib.File.Create(lpFile)

If MP3.Tag.Album = Nothing OrElse MP3.Tag.Album.Trim = "" Then

lbAlbum = "Unknown"

Else

lbAlbum = MP3.Tag.Album

End If

If MP3.Tag.Title = Nothing OrElse MP3.Tag.Title.Trim = "" Then

'如果歌曲标题字段为空，则默认使用文件名作Á为歌曲的标题

lbTitle = GetFileName(lpFile)

Else

lbTitle = MP3.Tag.Title

EndIf

lbArtist = GetString(MP3.Tag.AlbumArtists, ",")

If lbArtist = Nothing OrElse lbArtist.Trim = "" Then lbArtist = "Unknown"

If Not MP3.Tag.Pictures.Length >= 1 Then

AlbumArt = My.Resources.rhythmbox

Return

End If

'Esle

Dim bin = DirectCast(MP3.Tag.Pictures(0).Data.Data, Byte())

AlbumArt = Image.FromStream(New MemoryStream(bin)).GetThumbnailImage(115, 115, Nothing, System.IntPtr.Zero)

End Sub

Private Function GetFileName(ByVal path As String) As String

Dim Tmp As String() = Split(path, "\")

'找到文件拓展名，并将其去除

For i As Integer = Tmp(Tmp.Length - 1).Length To 1 Step -1

IfMid(Tmp(Tmp.Length - 1), i, 1) = "."Then ReturnMid(Tmp(Tmp.Length - 1), 1, i - 1).Trim

Next

'没有文件拓展名的，则直接返回文件名

Return Tmp(Tmp.Length - 1).Trim

End Function

End Class

嗯，效果吗，真的很不错

不过，似乎TagLib-Sharp对utf8编码的中文不是非常的兼容，读取的时候很容易出现乱码，对于中文字符串的处理似乎需要而外的解码处理，需要在日后查阅资料来解决这个问题，郁闷纠结中。。。