求一正则对指定文件夹中文件改名排序(批量改名)

kn007

问题：

现在有一文件夹里有以下文件:

09 - Spell.mp3
14 - Take Your Time.mp3
06 - Bittersweet.mp3
12 - Lullabye For A Stormy Night.mp3
04 - Bubbly.mp3
09 - One Last Time.mp3
01 - We Are One.mp3
05 - Wish You Well.mp3
06 - Top Of The World.mp3
12 - Chanson de Toile.mp3
23 - A Little Love.mp3
11 - Sabra Girl.mp3
12 - Molde Canticle.mp3
10 - Forgotten Sorrow.mp3
07 - Right Now & Right Here.mp3
04 - End Of May.mp3
06 - Found By You (Acoustic).mp3
10 - I'm in Here.mp3
05 - Lose You.mp3
01 - You Are My Angel (Sub Theme Song In Forensic Heroes 2).mp3
07 - Fairy Tale.mp3
01 - Lonely In Paris.mp3
03 - Good Is Good.mp3
04 - There Were Roses.mp3
10 - Again.mp3
06 - Love Has It All.mp3
06 - Key To My Heart.mp3
02 - Eet.mp3
01 - Grown-Up Christmas List.mp3
02 - 原谅.mp3
09 - Yellow.mp3
08 - 那些花儿.mp3
05 - 亲爱的还幸福吗.mp3
03 - 風の記憶.mp3
10 - 慢慢来比较快.mp3
04 - 花园.mp3
11 - 我懂了.mp3
02 - 相思引.mp3
02 - 春の风.mp3
07 - 我真的受伤了.mp3
01 - 错过.mp3
05 - ???? ????.mp3
03 - 怎么说呢_.mp3
07 - 夏天的风.mp3
01 - 岛歌.mp3
01 - 日光倾城.mp3

想将每个文件的序号（如上很乱）重新排列，按01-99模式，以如上的引用的顺序改名


知道需要正则，没法写，，，类似于mp3排序，但又不完全是


最好写全吧，比如来个func，如(原名,改为,模式)，模式可有可无，就是说前面序号的位数

kevinch

"(\d{2})(?= -)" 替换为序号，试一下

kn007

"(\d{2})(?= -)" 替换为序号，试一下
kevinch 发表于 2011-2-5 17:41

    不懂，能详说吗？

试后不行。。。。可能是我不会用

哦，我明白了，得到序号了。。。

有点明白，谢谢兄弟

kevinch

(\d{2})(?= -)
匹配后面是" -"的两位数字，根据你的文件名的特点，得到的就是前面的序号，通过一个循环递增的替换掉这个串应该就可以了，不过是不是杀鸡用牛刀了

kn007

回复 4# kevinch


    饿，谢谢，兄弟

Netfox

谢谢，。。。啦

lixiaolong

回复 1# kn007

本人没什么技术，随便写了个例子.

为了大家方便，写了一个创建mp3文件代码

#include <file.au3>
$File = @ScriptDir & '\a.txt'
$str = FileOpen($File,0)

While 1
        $b = FileReadLine($str)
        If $b = '' Then ExitLoop
        _FileCreate(@ScriptDir & '\mp3\' & $b)
WEnd

a.txt

09 - Spell.mp3
14 - Take Your Time.mp3
06 - Bittersweet.mp3
12 - Lullabye For A Stormy Night.mp3
04 - Bubbly.mp3
09 - One Last Time.mp3
01 - We Are One.mp3
05 - Wish You Well.mp3
06 - Top Of The World.mp3
12 - Chanson de Toile.mp3
23 - A Little Love.mp3
11 - Sabra Girl.mp3
12 - Molde Canticle.mp3
10 - Forgotten Sorrow.mp3
07 - Right Now & Right Here.mp3
04 - End Of May.mp3
06 - Found By You (Acoustic).mp3
10 - I'm in Here.mp3
05 - Lose You.mp3
01 - You Are My Angel (Sub Theme Song In Forensic Heroes 2).mp3
07 - Fairy Tale.mp3
01 - Lonely In Paris.mp3
03 - Good Is Good.mp3
04 - There Were Roses.mp3
10 - Again.mp3
06 - Love Has It All.mp3
06 - Key To My Heart.mp3
02 - Eet.mp3
01 - Grown-Up Christmas List.mp3
02 - 原谅.mp3
09 - Yellow.mp3
08 - 那些花儿.mp3
05 - 亲爱的还幸福吗.mp3
03 - 風の記憶.mp3
10 - 慢慢来比较快.mp3
04 - 花园.mp3
11 - 我懂了.mp3
02 - 相思引.mp3
02 - 春の风.mp3
07 - 我真的受伤了.mp3
01 - 错过.mp3
05 - ???? ????.mp3
03 - 怎么说呢_.mp3
07 - 夏天的风.mp3
01 - 岛歌.mp3
01 - 日光倾城.mp3

改名例子

#include <file.au3>

_ReName(@ScriptDir & '\mp3')

Func _ReName($SearchDir)
        Dim $szDrive, $szDir, $szFName, $szExt
        $aFile = _FileListToArray($SearchDir)
        If Not @error Then
                For $i = 1 To $aFile[0]
                        $arrPath = _PathSplit($SearchDir & '\' & $aFile[$i], $szDrive, $szDir, $szFName, $szExt)
                        $Test2 = StringRegExpReplace($szFName & $szExt, '(\d+)(?= -)', '')
                        If $i < 10 Then
                                $FileName = '0' & $i & $Test2
                        Else
                                $FileName = $i & $Test2
                        EndIf
                        RunWait(@ComSpec & ' /c ren "' & $SearchDir & '\' & $aFile[$i] & '" "' & $FileName & '"', '', 0)
                Next
        EndIf
EndFunc   ;==>_ReName

lxz

代码学习了......