1.易语言文件更名 重名则取消命名了
易语言文件更名 重名则取消命名了
.版本 2.支持库 shell
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 路径,易语言文源码易语言修源码控制系统 文本型
.局部变量 我是寻找文件, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 原文件名, 文本型, , "0"
.局部变量 要改的文件名, 文本型, , "0"
路径 ＝ 浏览文件夹 (“选择目录”, )
寻找文件 (路径 ＋ “\*.txt”, )
.循环判断首 ()
我是寻找文件 ＝ 寻找文件 (, )
加入成员 (原文件名, 路径 ＋ “\” ＋ 我是寻找文件)
分割 ＝ 分割文本 (我是寻找文件, 编辑框1.内容, )
调试输出 (原文件名 [取数组成员数 (原文件名)])
.如果真 (原文件名 [取数组成员数 (原文件名)] ＝ 路径 ＋ “\”)
跳出循环 ()
.如果真结束
加入成员 (要改的文件名, 分割 [取数组成员数 (分割)])
.循环判断尾 (我是寻找文件 ≠ “”)
.计次循环首 (取数组成员数 (要改的文件名), 计次)
文件更名 (原文件名 [计次], 路径 ＋ “\” ＋ 要改的文件名 [计次])
.计次循环尾 ()
信息框 (“修改成功”, 0, )
