批量修改文件名

shaokui123

公司有套erp系统，里面经常导出数据，比如20250514完美科技.csv的形式，后来另一个公司接手。现在需要把电脑里所有20250514完美科技.csv这样形式的文件名变成20250514正龙软件.csv这样子的。
文件存储c/d/e/f到处都有几千个。
希望写的程序修改速度能快点

zainex

加个循环就行了：

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
驱动器	文本型		0
正则	正则表达式
文件名	文本型		0
数	整数型
值	整数型
默认名称	文本型

按钮1.禁止 ＝ 真
驱动器 ＝ { “D:”, “E:”, “F:” }
正则.创建 (“(.+)完美科技(\.csv)”, )
计次循环首 (取数组成员数 (驱动器), 数)
调试输出 (驱动器 [数])
清除数组 (文件名)
文件_枚举 (驱动器 [数], “*.csv”, 文件名, 真, , 真)
计次循环首 (取数组成员数 (文件名), 值)
默认名称 ＝ 文件名 [值]
如果真 (正则.匹配 (默认名称))
默认名称 ＝ 正则.替换 (文件名 [值], “$1正龙软件$2”, 1, , 真, 真)
文件_改名 (文件名 [值], 默认名称)

计次循环尾 ()
计次循环尾 ()
信息框 (“运行结束”, #信息图标, “提示”, )
按钮1.禁止 ＝ 假

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 驱动器, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 值, 整数型<br /> .局部变量 默认名称, 文本型<br /> <br /> 按钮1.禁止 ＝ 真<br /> 驱动器 ＝ { “D:”, “E:”, “F:” }<br /> 正则.创建 (“(.+)完美科技(\.csv)”, )<br /> .计次循环首 (取数组成员数 (驱动器), 数)<br />     调试输出 (驱动器 [数])<br />     清除数组 (文件名)<br />     文件_枚举 (驱动器 [数], “*.csv”, 文件名, 真, , 真)<br />     .计次循环首 (取数组成员数 (文件名), 值)<br />         默认名称 ＝ 文件名 [值]<br />         .如果真 (正则.匹配 (默认名称))<br />             默认名称 ＝ 正则.替换 (文件名 [值], “$1正龙软件$2”, 1, , 真, 真)<br />             文件_改名 (文件名 [值], 默认名称)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 信息框 (“运行结束”, #信息图标, “提示”, )<br /> 按钮1.禁止 ＝ 假

b0y

文件更名之类的成品软件  应该都支持

shaokui123

b0y 发表于 2025-5-14 15:00
文件更名之类的成品软件  应该都支持

找了一些嫌麻烦，写个专用代码一键运行方便

zainex

先用 正则 匹配，匹配成功后再替换：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
目录	文本型
文件名	文本型		0
正则	正则表达式
数	整数型
默认名称	文本型

目录 ＝ 编辑框1.内容
文件_枚举 (目录, “*.csv”, 文件名, 真)
正则.创建 (“(.+)完美科技(\.csv)”, )
计次循环首 (取数组成员数 (文件名), 数)
默认名称 ＝ 文件名 [数]
如果真 (正则.匹配 (默认名称))
默认名称 ＝ 正则.替换 (文件名 [数], “$1正龙软件$2”, 1, , 真, 真)
文件_改名 (文件名 [数], 默认名称)

计次循环尾 ()
信息框 (“运行结束”, #信息图标, “提示”, )

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 目录, 文本型<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> .局部变量 数, 整数型<br /> .局部变量 默认名称, 文本型<br /> <br /> 目录 ＝ 编辑框1.内容<br /> 文件_枚举 (目录, “*.csv”, 文件名, 真)<br /> 正则.创建 (“(.+)完美科技(\.csv)”, )<br /> .计次循环首 (取数组成员数 (文件名), 数)<br />     默认名称 ＝ 文件名 [数]<br />     .如果真 (正则.匹配 (默认名称))<br />         默认名称 ＝ 正则.替换 (文件名 [数], “$1正龙软件$2”, 1, , 真, 真)<br />         文件_改名 (文件名 [数], 默认名称)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (“运行结束”, #信息图标, “提示”, )

运行前：

运行后：

上面的 按钮1 和 编辑框1，你自己添加到窗口里就行了。

shaokui123

zainex 发表于 2025-5-14 15:57
先用 正则 匹配，匹配成功后再替换：
[e=1].版本 2
.支持库 RegEx

地址还要指定，可否d盘e盘f盘直接一步到位

月下美孤

找软件开发公司解决

算法艺术家

先把所有盘符下的.csv的全路径枚举出来 放文本数组里，然后在一个循环里寻找文本 完美科技，没找到就跳过，找到了就子文本替换成正龙软件 然后用文件更名