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

komaau3

回复 15# zcool321


    支持 灰常期待哟

zcool321

回复 14# komaau3
呵呵 我刚做音乐播放器的时候也是用的ID3~！~
论坛其实有的~

1. 
   
2. $mp3Arr = _GetMp3info($file)
   
3.         If @error <> 1 Or @error <> 2 Then
   
4.                 ConsoleWrite("标题：" & $mp3Arr[0]  & @CRLF  & "演唱者：" & $mp3Arr[1] & @CRLF  & "专辑：" & $mp3Arr[2] & @CRLF  & "四位年代码：" & $mp3Arr[3])
   
5.         EndIf
   
6. Func _GetMp3info($lName);获取MP3基本信息
   
7.         ;用法: _GetMp3info($nFile)
   
8.         ;参数: $nFile 为 Mp3 路径
   
9.         ;返回值:
   
10.         ;成功:返回数组
    
11.         ;array[0] 为 MP3 标题
    
12.         ;array[1] 为 MP3 演唱者
    
13.         ;array[2] 为 MP3 专辑
    
14.         ;array[3] 为 MP3 四位年代码(2009)
    
15.         ;失败:返回空字串""
    
16.         ;设@error=1 打开文件失败或文件不存在
    
17.         ;设@error=2 文件可能不是MP3标准格式
    
18. 
    
19.         $hFile = FileOpen($lName, 0)
    
20.         If $hFile = -1 Then
    
21.                 SetError(1)
    
22.                 Return ""
    
23.         Else
    
24. 
    
25.                 FileSetPos($hFile, -128, 2)
    
26.                 $bBuffer = FileRead($hFile, 128)
    
27.                 If BinaryToString(BinaryMid($bBuffer, 1, 3)) = "TAG" Then
    
28.                         Local $TMPARRAY[4]
    
29.                         $TMPARRAY[0] = BinaryToString(BinaryMid($bBuffer, 4, 30))
    
30.                         $TMPARRAY[1] = BinaryToString(BinaryMid($bBuffer, 34, 30))
    
31.                         $TMPARRAY[2] = BinaryToString(BinaryMid($bBuffer, 64, 30))
    
32.                         $TMPARRAY[3] = BinaryToString(BinaryMid($bBuffer, 94, 4))
    
33.                         Return $TMPARRAY
    
34.                 Else
    
35.                         SetError(2)
    
36.                         Return ""
    
37.                 EndIf
    
38.         EndIf
    
39. 
    
40.         FileClose($hFile)
    
41. 
    
42. EndFunc   ;==>_GetMp3info
    

复制代码

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

komaau3

回复 17# zcool321


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

huohukiss

zxxputian2

好好学习，谢谢共享

1361739590

加油  谢谢

pingfan5888

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

haoy13

感谢楼主分享学习了

Takeru

下載了第一個
感謝~

adrian_9832

蠻需要此軟體的!!

傻娃

8369077578979938