易语言如何删除目录下指定格式的文件,其他的不动。比如只删除.txt文件。望大神不吝赐教。
展开全部
.版本 2
.支持库 shell
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 成员数, 整数型
.局部变量 文本, 文本型, , "0"
.局部变量 当前成员编号, 整数型, 静态
编辑框1.内容 = “”
a = 寻找文件 (取特定目录 (3) + “\*.txt”, )
.判断循环首 (a ≠ “”)
编辑框1.内容 = 编辑框1.内容 + a + #换行符
a = 寻找文件 (, )
.判断循环尾 ()
文本 = 分割文本 (编辑框1.内容, #换行符, )
成员数 = 取数组成员数 (文本)
.计次循环首 (成员数, )
.如果 (编辑框1.内容 = “”)
跳出循环 ()
.否则
.判断开始 (当前成员编号 = 成员数)
当前成员编号 = 1
.默认
当前成员编号 = 当前成员编号 + 1
.判断结束
删除文件 (取特定目录 (3) + “\” + 文本 [当前成员编号])
.如果结束
.计次循环尾 ()
.支持库 shell
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 成员数, 整数型
.局部变量 文本, 文本型, , "0"
.局部变量 当前成员编号, 整数型, 静态
编辑框1.内容 = “”
a = 寻找文件 (取特定目录 (3) + “\*.txt”, )
.判断循环首 (a ≠ “”)
编辑框1.内容 = 编辑框1.内容 + a + #换行符
a = 寻找文件 (, )
.判断循环尾 ()
文本 = 分割文本 (编辑框1.内容, #换行符, )
成员数 = 取数组成员数 (文本)
.计次循环首 (成员数, )
.如果 (编辑框1.内容 = “”)
跳出循环 ()
.否则
.判断开始 (当前成员编号 = 成员数)
当前成员编号 = 1
.默认
当前成员编号 = 当前成员编号 + 1
.判断结束
删除文件 (取特定目录 (3) + “\” + 文本 [当前成员编号])
.如果结束
.计次循环尾 ()
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询