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