皮皮网

1.易语言文件更名 重名则取消命名了

易语言文件更名 重名则取消命名了

       .支持库 shell

       .支持库 spec

       .程序集 窗口程序集1

       .子程序 _按钮1_被单击

       .局部变量 路径,易语言文源码易语言修素材库APP源码 文本型

       .局部变量 我是寻找文件, 文本型

       .局部变量 分割, 文本型, , "0"

       .局部变量 计次, 整数型

       .局部变量 原文件名, 文本型, , "0"

       .局部变量 要改的文件名, 文本型, , "0"

       路径 ＝ 浏览文件夹 (“选择目录”, )

       寻找文件 (路径 ＋ “\*.txt”, )

       .循环判断首 ()

           我是寻找文件 ＝ 寻找文件 (, )

           加入成员 (原文件名, 路径 ＋ “\” ＋ 我是寻找文件)

           分割 ＝ 分割文本 (我是寻找文件, 编辑框1.内容, )

           调试输出 (原文件名 [取数组成员数 (原文件名)])

           .如果真 (原文件名 [取数组成员数 (原文件名)] ＝ 路径 ＋ “\”)

               跳出循环 ()

           .如果真结束

           加入成员 (要改的文件名, 分割 [取数组成员数 (分割)])

       .循环判断尾 (我是寻找文件 ≠ “”)

       .计次循环首 (取数组成员数 (要改的文件名), 计次)

           文件更名 (原文件名 [计次], 路径 ＋ “\” ＋ 要改的文件名 [计次])

       .计次循环尾 ()

       信息框 (“修改成功”, 0, )