找回密码
 加入
搜索
楼主: zcool321

[原创] 批量修改文件名,方便修改照片名称--更新添加音频文件批量修改

[复制链接]
发表于 2011-9-25 00:01:11 | 显示全部楼层
回复 15# zcool321


    支持 灰常期待哟
 楼主| 发表于 2011-9-25 02:00:16 | 显示全部楼层
回复 14# komaau3
呵呵 我刚做音乐播放器的时候也是用的ID3~!~
论坛其实有的~
$mp3Arr = _GetMp3info($file)
        If @error <> 1 Or @error <> 2 Then
                ConsoleWrite("标题:" & $mp3Arr[0]  & @CRLF  & "演唱者:" & $mp3Arr[1] & @CRLF  & "专辑:" & $mp3Arr[2] & @CRLF  & "四位年代码:" & $mp3Arr[3])
        EndIf
Func _GetMp3info($lName);获取MP3基本信息
        ;用法: _GetMp3info($nFile)
        ;参数: $nFile 为 Mp3 路径
        ;返回值:
        ;成功:返回数组
        ;array[0] 为 MP3 标题
        ;array[1] 为 MP3 演唱者
        ;array[2] 为 MP3 专辑
        ;array[3] 为 MP3 四位年代码(2009)
        ;失败:返回空字串""
        ;设@error=1 打开文件失败或文件不存在
        ;设@error=2 文件可能不是MP3标准格式

        $hFile = FileOpen($lName, 0)
        If $hFile = -1 Then
                SetError(1)
                Return ""
        Else

                FileSetPos($hFile, -128, 2)
                $bBuffer = FileRead($hFile, 128)
                If BinaryToString(BinaryMid($bBuffer, 1, 3)) = "TAG" Then
                        Local $TMPARRAY[4]
                        $TMPARRAY[0] = BinaryToString(BinaryMid($bBuffer, 4, 30))
                        $TMPARRAY[1] = BinaryToString(BinaryMid($bBuffer, 34, 30))
                        $TMPARRAY[2] = BinaryToString(BinaryMid($bBuffer, 64, 30))
                        $TMPARRAY[3] = BinaryToString(BinaryMid($bBuffer, 94, 4))
                        Return $TMPARRAY
                Else
                        SetError(2)
                        Return ""
                EndIf
        EndIf

        FileClose($hFile)

EndFunc   ;==>_GetMp3info
具体哪个帖子找不到了~!~这个是我记录的~
发表于 2011-9-25 10:56:38 | 显示全部楼层
回复 17# zcool321


    原理一样  我是想把最后128字节都读出来 看看都记录了什么,然后再做处理,谁知道只读出了标题标签,以上代码试了下 ,同样只读出标题,但实际MP3的ID3信息都手动补全了,因此他的binarymid并没起到作用
发表于 2011-10-9 00:26:33 | 显示全部楼层
发表于 2012-1-9 11:25:37 | 显示全部楼层
好好学习,谢谢共享
发表于 2013-2-4 08:35:35 | 显示全部楼层
加油  谢谢
发表于 2016-4-14 09:24:39 | 显示全部楼层
不错,,下了学习。。谢谢
发表于 2016-6-8 11:40:51 | 显示全部楼层
感谢楼主分享学习了
发表于 2017-5-16 11:26:13 | 显示全部楼层
下載了第一個
感謝~
发表于 2017-5-21 10:00:29 | 显示全部楼层
蠻需要此軟體的!!
发表于 2017-6-18 22:16:10 | 显示全部楼层
8369077578979938
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 16:38 , Processed in 0.070967 second(s), 15 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表