VB.NET 怎么同步顯示lrc歌詞？？

可以稍微改下，預讀兩句歌詞的時間范圍，時間大于第一句的起始點，小于第二句的起始點，那么顯示第一句，

成都創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)與策劃設(shè)計,滄源網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十余年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務涵蓋:滄源等地區(qū)。滄源做網(wǎng)站價格咨詢:028-86922220

vb.net獲取mp3的歌曲名和其他屬性

從MP3中提取歌曲信息

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

下面以C#為工具，把開發(fā)過程寫出來。

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

public struct Mp3Info

{

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

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

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

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

public string Year;//年,4個字符

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

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

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

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

}

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

///

/// 獲取MP3文件最后128個字節(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;

}

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

///

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

///

/// 從MP3文件中截取的二進制信息

/// 返回一個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的當前索引值

//獲取TAG標識

for(i = currentIndex;i

{

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

position++;

}

currentIndex = position;

mp3Info.identify = str;

//獲取歌名

str = null;

byte[] bytTitle = new byte[30];//將歌名部分讀到一個單獨的數(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];//將歌手名部分讀到一個單獨的數(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];//將唱片名部分讀到一個單獨的數(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];//將年部分讀到一個單獨的數(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];//將注釋部分讀到一個單獨的數(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);//去掉無用字符

return str;

}

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

///

/// 更改文件名

///

/// 文件名

///

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》獲取文件夾下的所有MP3文件名的代碼。

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

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

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

Next

End?Sub

本文題目：vb.net歌曲信息 vbs音樂
網(wǎng)站地址：http://chinadenli.net/article18/doopedp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、電子商務、網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站營銷、定制網(wǎng)站

廣告

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