一直使用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选项,有正则表达式和替换内容,就是搜索并实际重命名文件。