VB：读取MP3的Tag（对网上流行版本改进）

最新推荐文章于 2024-07-05 16:22:40 发布
最新推荐文章于 2024-07-05 16:22:40 发布
阅读量2.3k 收藏
点赞数
分类专栏： 编程手记 编程观点 文章标签： vb comments string integer function 存储
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/upsuper/article/details/527452
版权
这篇博客分享了如何在VB中改进代码，使其能够读取包含中文的MP3标签信息，包括艺术家、专辑、标题、年份和评论。通过二进制文件操作读取MP3文件末尾的TAG信息，并处理可能的错误。
摘要由CSDN通过智能技术生成

网上有一段关于VB读取MP3Tag的代码，但不支持中文。这里我对这个代码进行改进。

这是我改进后的代码：

Public Type Mp3tag
        Artist   As String  'Artist   存储歌手信息
        Album    As String  'Album    存储唱片专辑信息
        Title    As String  'Title    存储标题信息
        sYear    As String  'Year     存储年代信息
        Comments As String  'Comments

最低0.47元/天 解锁文章
upsuper
关注
专栏目录
VB读取并编辑MP3标签属性信息.rar
07-10
VB读取并编辑MP3标签属性信息，看了下代码，用到了ccrpftv6.ocx、fmod.dll两个控件，用VB编译时请先引入这些控件。
VB和c#取得mp3长度
weixin_34355559的博客
11-26 220
<< VB.Net >> Imports System.IO Imports Microsoft.Win32 ' API 宣告 Private Declare Function mciSendStringA Lib "Winmm.dll" _ (ByVal lpszCommand...
Mp3tag 是什么？Mp3tag 怎么设置中文界面
最新发布
简鹿办公的博客
07-05 580
Mp3tag 的强大之处在于其直观的用户界面和丰富的功能，比如批量编辑、自动标签填写、导入导出标签数据、从互联网数据库（如Discogs和MusicBrainz）检索信息等，使得音乐文件管理变得简单而高效。Mp3tag 中文版作为一款优秀的音乐文件标签编辑器，不仅提供了强大的编辑功能，还贴心地支持中文界面，极大地便利了中文用户的使用。
如何计算MP3的总时长问题
u010810493的专栏
06-03 7794
转自：http://it6655.com/2012/10/mp3-2-html MP3是大家所熟悉的一种音乐播放格式，它其实是mpeg标准中的mpeg1的layer3编码，这个是和压缩技术相关的，对于mpeg的了解，大家可以去网上找一些格式解析的文档，在这里我们只要知道MP3这种格式是什么就够了，在以下的内容中，会有详细解释。 MP3中有一个关键词就是：帧，MP3是由若干个帧组成。 1、
MP3格式分析（五）---计算CBR和VBR的MP3文件的播放时间的步骤
nativewolf的专栏
11-21 1505
5.1定位到MPEG的帧头的位置 如果文件开始没有ID3 V2的头信息，那么一般MPEG的帧头位置是0，当然，具体还是要 根据帧头中的同步位（sync bit），共11位去定位找到帧头。 5.2解析MPEG帧头，获取必要信息 主要是根据帧头格式，解析出MPEG的版本，MPEG的Layer，以及采样率，比特率等信 息，用于后面的解码和计算播放时长。 5.3判断是VBR还是CBR，根据公式
用VB6.0编写自己的MP3播放器
Fashion12315的专栏
04-27 3348
$%@#%$^^@$$&$%^     用VB6.0编写自己的MP3播放器 　#%^#%$@$$$$mp3播放器大家用得应该不少，不过，您是否厌倦了播放器的老面孔，是否尝试编写一个自己的MP3播放器呢？什么，太复杂!你会VB吗？会就得了！ 首先，得了解一下我从朋友处得来的一个ActiveX控件——Mp3Play.ocx。所谓ActiveX控件就是高手早已编好的专门化功能软件部件。以前在16位VB中
TIA博途WinCC通过VB脚本从 Excel中读取数据的具体方法介绍.docx
06-28
### TIA博途WinCC通过VB脚本从Excel中读取数据的具体方法 #### 一、准备工作 在开始介绍如何使用TIA博途WinCC通过VB脚本从Excel中读取数据之前，我们需要先完成一系列的准备工作。 1. **添加PLC及设置IP地址**： ...
VB.net读取XML标签值
09-08
VB.net读取XML标签值，两种方法，一是加载XML字符串，一是加载XML文件，然后再从节点路径中读TAG第一个匹配值
vb6 编程 读取Exif 中的 拍摄日期 重命名照片文件名
09-08
在VB6（Visual Basic 6）编程环境中，读取Exif数据并利用拍摄日期来重命名照片文件名是一项常见的任务，特别是在处理大量数码照片时。Exif（Exchangeable Image File Format）是嵌入在JPEG、TIFF等图像文件中的元...
Xml.rar_vb xml_xml_xml vb_读取xml
09-24
在VB（Visual Basic）环境中，处理XML文件通常涉及到读取、写入和解析XML文档。本实例通过VB代码展示了如何分节点读取XML数据。 首先，我们需要了解XML的基本结构。XML文档由一系列元素组成，每个元素可能包含其他...
VB.net获取Mp3标题-艺术家-专辑等属性
11-16
VB2008读写Mp3标题-艺术家-专辑等属性!
VB MP3音频文件操作类.rar
07-10
mod_getmp3Info.bas，VB MP3音频文件操作类，读/写MP3文件信息，这个类可实现根据MP3风格序号获取的风格的名字、根据MP3的风格的名字获取风格序号对应的字符、装载MP3风格列表、获取MP3文件的ID3v1信息、获取MP3文件的ID3v2(3)信息、设置MP3文件的ID3v1信息、写入MP3文件的ID3v2.3信息、要注意的是，需要选读出原来MP3文件的数据块的位置，然后从这个位置开始读取数据、获取MPEG文件格式信息。。。
VBA修改MP3的属性信息(包括专辑名、作家等)
01-14
VBA修改MP3的属性信息(包括专辑名、作家等)，压缩包里有DLL复制到C:\windows目录里，运行xls中的程序(alt+F11打开)，程序只是一个例子，下面有注释说明怎么操作其他属性的
修改MP3文件的ID3信息
03-05
　ID3标签是MP3音乐档案中的歌曲附加讯息，它能够在MP3中附加曲子的演出者、作者以及其它类别资讯，方便众多乐曲的管理。缺少ID3标签并不会影响 MP3的播放，但若没有的话，管理音乐文件也会相当的麻烦。如果你在网上download MP3，里面多半已经写有预设的ID3讯息。如果你想要将其清除重设，可以使用千千静听。 本软件依照ID3格式可以对MP3文件进行批量编辑。
vb实现mp3功能
01-22
基于VB实现的一个MP3音乐播放器，在VB 5.0下开发，界面看上去专业，功能也比较全，适合初学者学习参考。
vb读取xml文件节点值操作实例
04-21
总结来说，VB读取XML文件可以通过文本流方式实现，但这种方法在处理复杂XML结构时可能变得困难。更推荐使用VB.NET自带的XML支持，如`System.Xml.XmlDocument`或`System.Xml.Linq.XDocument`，它们提供了丰富的API来...
MP3学习总结
仰望星空
03-14 2222
目录 前言 格式解析 ID3V1 ID3V2 数据帧 解码原理 常见问题 参考资料 附录[1] 前言 该文档旨在提供一个对MP3整体的认识，方便入门，文章引用已标明，如有错误纰漏，非常欢迎指出。 MP3全称为MPEG Audio Layer 3，是一种音频编码方案。MPEG有三种音频编码方案，包括Layer1、Layer2、Layer3。通常MP3指的是Layer3。...
vb.net读取opc
07-31
vb.net可以通过引用OPC DA Automation Wrapper来读取OPC服务器上的数据。首先，我们需要在项目中添加对OPC Automation DLL的引用。 接下来，我们可以使用以下代码来连接到OPC服务器并读取数据： ```vb Imports OPCAutomation Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim opcServer As New OPCServer Dim opcGroups As OPCGroups Dim opcGroup As OPCGroup Dim opcItems As OPCItems Dim opcItem As OPCItem ' 连接到OPC服务器 opcServer.Connect("OPCServerName") ' 添加组 opcGroups = opcServer.OPCGroups opcGroup = opcGroups.Add("GroupName") opcGroup.DataChange = True ' 添加项 opcItems = opcGroup.OPCItems opcItem = opcItems.AddItem("TagName", 1) ' 读取数据 Dim values As Array = Nothing Dim errors As Array = Nothing opcGroup.SyncRead(OPCDataSource.OPCDevice, 1, opcItems.Item(1), values, errors) ' 显示数据 If values IsNot Nothing AndAlso values.Length > 0 Then MessageBox.Show(values(1).ToString()) Else MessageBox.Show("读取数据失败！") End If ' 断开连接 opcServer.Disconnect() End Sub End Class ``` 在这个示例中，我们先连接到OPC服务器，然后创建一个OPC组并启用数据更改通知。接下来，我们将一个OPC项添加到组中，然后通过同步读取来获取数据。最后，我们显示读取的数据并断开与OPC服务器的连接。 需要注意的是，你需要将代码中的"OPCServerName"和"GroupName"替换为实际的OPC服务器名称和组名称，并将"TagName"替换为所需的标签名称。
评论 3
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值