锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net读取歌曲信息 vb6读取excel

infoIT技术

vb.net读写MP3各项属性，急~~从MP3中提取歌曲信息
一首MP3歌曲除了音乐信息外，还包含了如歌名、演唱者等信息 ， 当我们用winamp软件听音乐时，播放清单就自动将这些信息读出来 。大部分人都喜欢从网上下载音乐 ， 但下载下来的MP3文件名都是文件上传系统自动取名的，和歌曲本身根本不相符 ， 所以 ， 给用户带来了很大的麻烦 。但是，懒人有懒人的做法，我们何不自己写一个程序，将歌曲信息自动读出来并为MP3文件自动更名呢？
下面以C#为工具，把开发过程写出来 。
一首MP3的额外信息存放在文件的最后面，共占128个字节 ， 其中包括以下的内容（我们定义一个结构说明）：
public struct Mp3Info
{
public string identify;//TAG，三个字节
public string Title;//歌曲名,30个字节
public string Artist;//歌手名,30个字节
public string Album;//所属唱片,30个字节
public string Year;//年,4个字符
public string Comment;//注释,28个字节
public char reserved1;//保留位 ， 一个字节
public char reserved2;//保留位 ， 一个字节
public char reserved3;//保留位 ， 一个字节
}
所以，我们只要把MP3文件的最后128个字节分段读出来并保存到该结构里就可以了 。函数定义如下：
///
/// 获取MP3文件最后128个字节
///
/// 文件名
/// 返回字节数组
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;
}
再对上面返回的字节数组分段取出，并保存到Mp3Info结构中返回 。
///
/// 获取MP3歌曲的相关信息
///
/// 从MP3文件中截取的二进制信息
/// 返回一个Mp3Info结构
private Mp3Info getMp3Info(byte[] Info)
{
Mp3Info mp3Info = new Mp3Info();
string str = null;
int i;
int position = 0;//循环的起始值
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];//将歌名部分读到一个单独的数组中
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];//将歌手名部分读到一个单独的数组中
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];//将唱片名部分读到一个单独的数组中
for(i = currentIndex;i
{
bytAlbum[j] = Info[i];
position;
j;
}
currentIndex = position;
【vb.net读取歌曲信息 vb6读取excel】mp3Info.Album = this.byteToString(bytAlbum);
//获取年
str = null;
j = 0;
byte[] bytYear = new byte[4];//将年部分读到一个单独的数组中
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];//将注释部分读到一个单独的数组中
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;
}
上面程序用到下面的方法：
///
/// 将字节数组转换成字符串
///
/// 字节数组
/// 返回转换后的字符串
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代码?。?/h2>按照你的说法 ， 应该要用到Ajax，对网页中播放器插件进行帧听，然后再对歌词部分进行处理，百度的Mp3就是这样做的 。
下面就简单的说一下吧
材料：歌曲、歌曲对应的歌词（可以是XML，当然也可以是歌词专用格式lrc，随便啦，什么文件都可以）、几条简单的JS语句
处理：
1、JSP生成网页的时候，将音乐播放器插件的ID命名为WMA，当然 ， 你可以随便命名，只是这里便于说明 。
2、读取XML或LRC内容，利用Ajax加载到id为lrc的div中 。
并将XML或LRC的每行的歌词存到数组testmp3中(此数组当然是二维数组，数据组分别播放时间与歌词内容)
好了，到此，准备工作就做好了，下面就是重点---歌词同步 。
3、相关语句：
一、定义函数getWMAtime
二、利用Interval=setInterval("getWMAtime()",900) ， 意思就是每隔900毫秒调用getWMAtime这个函数，并将其放入Interval中 。
如果要用到“上一曲”“下一曲”，可以将其做为了一个函数 ，
将音乐的地址赋给WMA.URL，用WMA.controls.play();播放，用WMA.controls.stop();停止播放 ， 用WMA.controls.pause();暂停播放 。改变了音乐地址后，记得用Ajax载入新的歌词！
另：
getWMAtime函数的内容为读取当前词曲的播放时间
当前的播放时间：WMA.controls.currentPosition;
歌曲总时间：WMA.currentMedia.duration;
读取当前的时候后，与数组中时间项进行对比，相同(由于其它原因，可能会出现不相同的情况 ， 因此则用“=”)则用Ajax对id为lrc的div进行更改，具体怎么改那就随便你咯，一般就是改变一下指定行的颜色 。
如果前当播放时间==歌曲总时间 ， 那么就用clearInterval(Interval)，停止Interval继续调用 。
好了，一个简单的JS的歌词同步播放器就完工啦
vb.net 如何访问文件的详情信息什么IIS架构 。晕～～～
1.首先正式版本的发布你必须要Release，不要直接把Debug程序放上去 。
2.将所有的.cs文件删除 。vs.net有一个很方便的工具，“项目——复制项目”就ok了 。
3.windows server2003上一定要安装了"Internet 信息服务(IIS)管理器",如果没有安装的话可以到“控制面板——添加或删除程序——添加\删除WINDOWS组件——应用程序服务器”如果“应用程序服务器”没有构选的话钩上，放入windows 2003的系统盘安装 。
4.安装完成之后把项目靠到服务器上 。简单一点的方法是右键点击项目文件夹，Web共享——共享文件夹 。此时就算发布成功了 。不过还有一些细节需要注意 。如：IIS匿名访问等 。那就是另外的问题了 。呵呵 。IIS设置很简单，可以在网上找些资料 。
VB 如何读取MP3文件的Tag信息 ， 比如如何侦测到一个MP3文件中Tag属性里面的歌手名、歌曲名、专辑名等？在窗体代码区复制下面代码vb.net读取歌曲信息，运行即可vb.net读取歌曲信息：
Option Explicit
'获得要操作vb.net读取歌曲信息的文件,返回一个包含文件名和路径vb.net读取歌曲信息的数组
Function MyGetFile()
On Error Resume Next
Dim strFile, objFso, objFile, objDialog
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "mp3 文件|*.mp3|wma 文件|*.wma|wav 文件|*.wav|所有 文件|*.*"
objDialog.ShowOpen
strFile = objDialog.FileName
Set objDialog = Nothing
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.GetFile(strFile)
If Err Then
If Err.Number = 5 Then Unload Me
MsgBox Err.Description
Err.Clear
Unload Me
Else
MyGetFile = Array(objFile.Name, objFile.ParentFolder)
End If
Set objFile = Nothing
Set objFso = Nothing
End Function
Private Sub Form_Load()
Dim arrFile(), oFile, oDir, oShell
Dim i, sTmp, sPrint
arrFile = MyGetFile()
Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.NameSpace(arrFile(1)"\")
Set oFile = oDir.ParseName(arrFile(0))
For i = 0 To 100
sTmp = oDir.GetDetailsOf(, i)vbTab
If sTmp = vbTab Then Exit For
sPrint = sPrintvbCrLfsTmpvbTab_
oDir.GetDetailsOf(oFile, i)
Next
MsgBox sPrint
Set oFile = Nothing
Set oDir = Nothing
Set oShell = Nothing
End Sub
求用《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 = vbNewLineIO.Path.GetFileName(FileName)
Next
End Sub
关于vb.net读取歌曲信息和vb6读取excel的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：苹果电脑ppt怎么全屏，苹果电脑ppt页面大小设置

    下一篇：如何在统信服务器上开放端口？ 统信服务器怎么开端口