HIRO's.NET Blog

VB.NETでMP3タグ情報を読み込む

VB.NET(2005で試しました。2003でも動作すると思います）で、MP3のタグ情報(ID3v1)を取得してみたいと思います。

第１章.ID3タグについて

　音声ファイルフォーマットであるmp3には、ID3タグと呼ばれる情報を保存するエリアがあります。

　このエリアには、タイトル、アーティスト名、作成年など、その楽曲の情報を保存することができます。

　ID3タグにはいくつかバージョンがあるのですが、今回はID3v1.1について説明したいと思います。

　MP3ファイルの後ろ128バイトがID3タグエリアとなっており、表のようなフォーマットとなっています。

 *1)先頭3バイトには"TAG"という文字列が保存される

第２章.タグ情報を取得する

　第１章で、ID3v1.1のタグ情報は128バイトであることを説明しました。

　1)このことから、ファイルサイズが128バイトに満たない場合はタグ情報が無いことになりますので、処理は行わないこととします。

　2)次に、タグ情報は、ファイルの終わり128バイトのエリアにあることがわかっているので、FileStreamのSeekメソッドで読み込み位置をセットします。

　3)読み込んだ128バイトの先頭3バイトが"TAG"となっているかを確認します。

　4)各データを読み込む

第３章.コーディング

　上記をふまえてコーディングした例を示します。

　例ではButton1をクリックしたときにOpenFileDialogを表示して、選択させたMP3のタグ情報を取得しています。

（取得した値はどこでも使っていません　(;´-`)）

　あくまでも例ですので、実際には各個人で使いやすいようにクラスライブラリ化するなどしてみてください。

Private title As String     '曲のタイトル
Private artist As String    'アーティスト名
Private album As String     'アルバム名
Private year As String      '作成年やCD発売年
Private comment As String   'コメント
Private track As Integer    'トラック番号
Private genre As String     'ジャンル

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim dlgOpen As New OpenFileDialog

    Dim buff(127) As Byte
    If dlgOpen.ShowDialog() Then
        Dim fs As New FileStream(dlgOpen.FileName, FileMode.Open, FileAccess.Read)

        '1)128バイトに満たない場合は情報を取得できないので処理を抜ける
        If fs.Length <= 128 Then
            Exit Sub
        End If

        '2)読み込み位置をファイルの終端から128バイト手前にセットする
        fs.Seek(-128, SeekOrigin.End)
        '128バイトデータを読み取る
        For I As Integer = 0 To 127
            buff(I) = fs.ReadByte()
        Next
        fs.Close()

        '3)読み込んだ128バイトのデータの先頭３バイトが"TAG"か？
        If Encoding.Default.GetString(buff, 0, 3) = "TAG" Then
            '4)各データの読み込み
            '===== タイトル =====
            title = Encoding.Default.GetString(buff, 3, 30)
            '===== アーティスト =====
            artist = Encoding.Default.GetString(buff, 33, 30)
            '===== アルバム =====
            album = Encoding.Default.GetString(buff, 63, 30)
            '===== 作成年 =====
            year = Encoding.Default.GetString(buff, 93, 4)
            '===== コメント =====
            comment = Encoding.Default.GetString(buff, 97, 28)
            '===== トラック番号 =====
            track = Convert.ToInt32(buff(126))
            '===== ジャンル =====
            genre = Convert.ToInt32(buff(127))
        End If

    End If
End Sub

投稿日時 : 2007年3月19日 23:07