一直使用TotalCommander操作文件,這個軟件自帶更名工具,支持正則表達式更名。但是無法批量執行更名。批量更名還是用批處理更方便,但是系統自帶的更名命令僅支持通配符。

在網上找了幾個支持正則表達式更名的軟件。但都不是太好用。例如:ren2。正則表達式的語法規則有很多種。這些軟件的幫助文檔不完整,無法知道確切的語法規則。自己動手,豐衣足食。用Delphi Xe10 實現起來很容易。使用Perl 5正則表達式語法。

有需要的盡管拿去用,解壓縮就可以用,含源代碼。

鏈接:https://pan.baidu.com/s/1c6fzxZUgCLj_79iR8YFg2w
提取碼:1234


程序的幫助內容:

版權:(C)Copyright 2021 姜乂元

功能:使用正則表達式搜索文件,并更名。

語法:regRen [[/d] 或 [/r]] "find" ["replace"]

  /d          僅搜索文件。
  /r          搜索并重命名文件。
  "find"      正則表達式。
  "replace"   替換內容。

"regRen ^\d.*" 沒有選項,只有正則表達式,就是僅搜索文件。相當加 /d 選項。

"regRen ^(\d)(.*) $1-$2" 沒有選項,有正則表達式和替換內容,就是搜索并顯示重命名結果,不實際重命名文件。

"regRen /r ^(\d)(.*) $1-$2" 含有/r選項,有正則表達式和替換內容,就是搜索并實際重命名文件。