vb.net讀寫(xiě)MP3各項(xiàng)屬性，急~~

從MP3中提取歌曲信息

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶，將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：申請(qǐng)域名、網(wǎng)站空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、峰峰礦網(wǎng)站維護(hù)、網(wǎng)站推廣。

一首MP3歌曲除了音樂(lè)信息外，還包含了如歌名、演唱者等信息，當(dāng)我們用winamp軟件聽(tīng)音樂(lè)時(shí)，播放清單就自動(dòng)將這些信息讀出來(lái)。大部分人都喜歡從網(wǎng)上下載音樂(lè)，但下載下來(lái)的MP3文件名都是文件上傳系統(tǒng)自動(dòng)取名的，和歌曲本身根本不相符，所以，給用戶帶來(lái)了很大的麻煩。但是，懶人有懶人的做法，我們何不自己寫(xiě)一個(gè)程序，將歌曲信息自動(dòng)讀出來(lái)并為MP3文件自動(dòng)更名呢？

下面以C#為工具，把開(kāi)發(fā)過(guò)程寫(xiě)出來(lái)。

一首MP3的額外信息存放在文件的最后面，共占128個(gè)字節(jié)，其中包括以下的內(nèi)容（我們定義一個(gè)結(jié)構(gòu)說(shuō)明）：

public struct Mp3Info

{

public string identify;//TAG，三個(gè)字節(jié)

public string Title;//歌曲名,30個(gè)字節(jié)

public string Artist;//歌手名,30個(gè)字節(jié)

public string Album;//所屬唱片,30個(gè)字節(jié)

public string Year;//年,4個(gè)字符

public string Comment;//注釋,28個(gè)字節(jié)

public char reserved1;//保留位，一個(gè)字節(jié)

public char reserved2;//保留位，一個(gè)字節(jié)

public char reserved3;//保留位，一個(gè)字節(jié)

}

所以，我們只要把MP3文件的最后128個(gè)字節(jié)分段讀出來(lái)并保存到該結(jié)構(gòu)里就可以了。函數(shù)定義如下：

///

/// 獲取MP3文件最后128個(gè)字節(jié)

///

/// 文件名

/// 返回字節(jié)數(shù)組

private byte[] getLast128(string FileName)

{

FileStream fs = new FileStream(FileName,FileMode.Open,FileAccess.Read);

Stream stream = fs;

stream.Seek(-128,SeekOrigin.End);

const int seekPos = 128;

int rl = 0;

byte[] Info = new byte[seekPos];

rl = stream.Read(Info,0,seekPos);

fs.Close();

stream.Close();

return Info;

}

再對(duì)上面返回的字節(jié)數(shù)組分段取出，并保存到Mp3Info結(jié)構(gòu)中返回。

///

/// 獲取MP3歌曲的相關(guān)信息

///

/// 從MP3文件中截取的二進(jìn)制信息

/// 返回一個(gè)Mp3Info結(jié)構(gòu)

private Mp3Info getMp3Info(byte[] Info)

{

Mp3Info mp3Info = new Mp3Info();

string str = null;

int i;

int position = 0;//循環(huán)的起始值

int currentIndex = 0;//Info的當(dāng)前索引值

//獲取TAG標(biāo)識(shí)

for(i = currentIndex;i

{

str = str+(char)Info[i];

position++;

}

currentIndex = position;

mp3Info.identify = str;

//獲取歌名

str = null;

byte[] bytTitle = new byte[30];//將歌名部分讀到一個(gè)單獨(dú)的數(shù)組中

int j = 0;

for(i = currentIndex;i

{

bytTitle[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Title = this.byteToString(bytTitle);

//獲取歌手名

str = null;

j = 0;

byte[] bytArtist = new byte[30];//將歌手名部分讀到一個(gè)單獨(dú)的數(shù)組中

for(i = currentIndex;i

{

bytArtist[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Artist = this.byteToString(bytArtist);

//獲取唱片名

str = null;

j = 0;

byte[] bytAlbum = new byte[30];//將唱片名部分讀到一個(gè)單獨(dú)的數(shù)組中

for(i = currentIndex;i

{

bytAlbum[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Album = this.byteToString(bytAlbum);

//獲取年

str = null;

j = 0;

byte[] bytYear = new byte[4];//將年部分讀到一個(gè)單獨(dú)的數(shù)組中

for(i = currentIndex;i

{

bytYear[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Year = this.byteToString(bytYear);

//獲取注釋

str = null;

j = 0;

byte[] bytComment = new byte[28];//將注釋部分讀到一個(gè)單獨(dú)的數(shù)組中

for(i = currentIndex;i

{

bytComment[j] = Info[i];

position++;

j++;

}

currentIndex = position;

mp3Info.Comment = this.byteToString(bytComment);

//以下獲取保留位

mp3Info.reserved1 = (char)Info[++position];

mp3Info.reserved2 = (char)Info[++position];

mp3Info.reserved3 = (char)Info[++position];

return mp3Info;

}

上面程序用到下面的方法：

///

/// 將字節(jié)數(shù)組轉(zhuǎn)換成字符串

///

/// 字節(jié)數(shù)組

/// 返回轉(zhuǎn)換后的字符串

private string byteToString(byte[] b)

{

Encoding enc = Encoding.GetEncoding("GB2312");

string str = enc.GetString(b);

str = str.Substring(0,str.IndexOf('\0') = 0 ? str.IndexOf('\0') : str.Length);//去掉無(wú)用字符

return str;

}

改名怎么辦呢？我們按（演唱者）歌名 的格式對(duì)歌曲進(jìn)行改名，程序如下：

///

/// 更改文件名

///

/// 文件名

///

private bool ReName(string filePath)

{

if(File.Exists(filePath))

{

Mp3Info mp3Info = new Mp3Info();

mp3Info = this.getMp3Info(this.getLast128(filePath));//讀出文件信息

mp3Info.Artist = this.DeleteNotValue(mp3Info.Artist);

mp3Info.Title = this.DeleteNotValue(mp3Info.Title);

if(mp3Info.Artist.Trim().Length==0)

{

mp3Info.Artist="未命名";

}

if(mp3Info.Title.Trim().Length==0)

{

mp3Info.Title="未知名歌曲";

}

try

{

//更名

File.Move(filePath,filePath.Substring(0,filePath.ToLower().LastIndexOf("\\")).Trim() + "\\" + "(" + mp3Info.Artist.Trim() + ")" +mp3Info.Title.Trim() + ".mp3");

return true;

}

catch(Exception)

{

return false;

}

}

else

{

return false;

}

}

vb.net 中 如何實(shí)現(xiàn) 播放mp3文件

在.NET里，沒(méi)有托管的音樂(lè)播放器，用API只能播放WAV格式，對(duì)于MP3等形式的音頻文件，就要依賴于其他控件了，常用的就是

MediaPlayer。使用方法：

在工具箱上點(diǎn)右鍵，選擇“選擇項(xiàng)目(Choose Items)”，切到COM選項(xiàng)卡，找到 Windows Media Player， 勾選，確定

在t工具箱上，把剛才加入的MediaPlayer控件，拖放到窗體上

代碼：

WindowsMediaPlayer1.URL = "mp3文件路徑，支持網(wǎng)絡(luò)路徑"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了，至于其他的操作諸如下一曲上一曲暫停停止，直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧。

求用《VB.NET》獲取文件夾下的所有MP3文件名的代碼。

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click

For?Each?FileName?As?String?In?IO.Directory.GetFiles("E:\音樂(lè)",?"*.mp3")

TextBox1.Text?=?vbNewLine??IO.Path.GetFileName(FileName)

Next

End?Sub

如何在VB.NET中調(diào)用MP3播放器

工具欄里選擇"添加,刪除組件"

選擇com組件

選擇"Windows Media Player "

然后在界面上加入這個(gè)組件

代碼

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) _

Handles Button1.Click

Const DATA_FILE_EXTENSION As String = ".mp3"

Dim dlgFileDialog As New OpenFileDialog

With dlgFileDialog

.Filter = DATA_FILE_EXTENSION _

" files (*" DATA_FILE_EXTENSION "|*" DATA_FILE_EXTENSION

.FilterIndex = 1

.RestoreDirectory = True

If .ShowDialog() = DialogResult.OK Then

'Play the sound file

Me.AxWindowsMediaPlayer1.URL = dlgFileDialog.FileName

End If

End With

End Sub

參考資料中可以看到很詳細(xì)的步驟

網(wǎng)站題目：vb.net解析mp3 vbnet讀取文件內(nèi)容
瀏覽地址：http://chinadenli.net/article12/ddodddc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、關(guān)鍵詞優(yōu)化、云服務(wù)器、搜索引擎優(yōu)化、營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)