一直使用TotalCommander操作文件,这个软件自带更名工具,支持正则表达式更名。但是无法批量执行更名。批量更名还是用批处理更方便,但是系统自带的更名命令仅支持通配符。
在网上找了几个支持正则表达式更名的软件。但都不是太好用。例如:ren2。正则表达式的语法规则有很多种。这些软件的帮助文档不完整,无法知道确切的语法规则。自己动手,丰衣足食。用Delphi Xe10 实现起来很容易。使用Perl 5正则表达式语法。
有需要的尽管拿去用,解压缩就可以用,含源代码。
链接: https://pan.baidu.com/s/1gG_qSVItrS63UUPXdjHpyQ
提取码: xbp5
程序的帮助内容:
版权:(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选项,有正则表达式和替换内容,就是搜索并实际重命名文件。