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

回复 15# zcool321


    支持 灰常期待哟{:face (249):}

zcool321 发表于 2011-9-25 02:00:16

回复 14# komaau3
呵呵 我刚做音乐播放器的时候也是用的ID3~！~
论坛其实有的~
$mp3Arr = _GetMp3info($file)
        If @error <> 1 Or @error <> 2 Then
                ConsoleWrite("标题：" & $mp3Arr& @CRLF& "演唱者：" & $mp3Arr & @CRLF& "专辑：" & $mp3Arr & @CRLF& "四位年代码：" & $mp3Arr)
        EndIf
Func _GetMp3info($lName);获取MP3基本信息
        ;用法: _GetMp3info($nFile)
        ;参数: $nFile 为 Mp3 路径
        ;返回值:
        ;成功:返回数组
        ;array 为 MP3 标题
        ;array 为 MP3 演唱者
        ;array 为 MP3 专辑
        ;array 为 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
                        $TMPARRAY = BinaryToString(BinaryMid($bBuffer, 4, 30))
                        $TMPARRAY = BinaryToString(BinaryMid($bBuffer, 34, 30))
                        $TMPARRAY = BinaryToString(BinaryMid($bBuffer, 64, 30))
                        $TMPARRAY = 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

{:face (114):}

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
页: 1 [2]
查看完整版本: 批量修改文件名，方便修改照片名称--更新添加音频文件批量修改