批量修改文件名，方便修改照片名称--更新添加音频文件批量修改

komaau3 · 发表于 2011-9-25 00:01:11

回复 15# zcool321

支持灰常期待哟

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

具体哪个帖子找不到了~！~这个是我记录的~

komaau3 · 发表于 2011-9-25 10:56:38

回复 17# zcool321

原理一样我是想把最后128字节都读出来看看都记录了什么，然后再做处理，谁知道只读出了标题标签，以上代码试了下，同样只读出标题，但实际MP3的ID3信息都手动补全了，因此他的binarymid并没起到作用

huohukiss · 发表于 2011-10-9 00:26:33

zxxputian2 · 发表于 2012-1-9 11:25:37

好好学习，谢谢共享

1361739590 · 发表于 2013-2-4 08:35:35

加油谢谢

pingfan5888 · 发表于 2016-4-14 09:24:39

不错，，下了学习。。谢谢

haoy13 · 发表于 2016-6-8 11:40:51

感谢楼主分享学习了

Takeru · 发表于 2017-5-16 11:26:13

下載了第一個
感謝~

adrian_9832 · 发表于 2017-5-21 10:00:29

蠻需要此軟體的!!

傻娃 · 发表于 2017-6-18 22:16:10

8369077578979938

		自动登录	找回密码
密码			加入

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