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