易语言删除指定路径指定后缀文件

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 文件名, 文本型

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

文件名 ＝ 寻找文件 (编辑框1.内容 ＋ “*.” ＋ 编辑框2.内容, )
调试输出 (文件名)
.如果 (文件名 ＝ “”)
    画板1.文本颜色 ＝ #红色
    画板1.滚动写行 (“所有txt文件已删完”)
    画板1.文本颜色 ＝ #白色
    返回 ()
.否则

.如果结束
.如果 (删除文件 (编辑框1.内容 ＋ “” ＋ 文件名) ＝ 真)
    画板1.滚动写行 (“删除成功:  ” ＋ 文件名)
    .判断循环首 (文件名 ≠ “”)
        文件名 ＝ 寻找文件 (, )
        调试输出 (文件名)
        .如果 (删除文件 (编辑框1.内容 ＋ “” ＋ 文件名) ＝ 真)
            画板1.滚动写行 (“删除成功:  ” ＋ 文件名)
        .否则

        .如果结束
        .如果真 (文件名 ＝ “”)
            画板1.文本颜色 ＝ #红色
            画板1.滚动写行 (“所有” ＋ 编辑框2.内容 ＋ “文件已删完”)
            画板1.文本颜色 ＝ #白色
        .如果真结束

    .判断循环尾 ()
.否则

.如果结束
调试输出 (文件名)

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

画板1.清除 (, , , )

.子程序 _编辑框2_获得焦点

.如果 (编辑框2.文本颜色 ＝ #灰色)
    编辑框2.文本颜色 ＝ #黑色
    编辑框2.内容 ＝ “”
.否则

.如果结束


.子程序 _编辑框2_失去焦点

.如果 (编辑框2.内容 ＝ “”)
    编辑框2.文本颜色 ＝ #灰色
    编辑框2.内容 ＝ “*为删除所有文件，后缀格式：txt，exe，zip等”
.否则

.如果结束


.子程序 _编辑框1_获得焦点

编辑框1.文本颜色 ＝ #黑色

.子程序 _标签3_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

编辑框2.文本颜色 ＝ #黑色
编辑框2.内容 ＝ “exe”

.子程序 _标签4_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

编辑框2.文本颜色 ＝ #黑色
编辑框2.内容 ＝ “txt”

.子程序 _标签5_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

编辑框2.文本颜色 ＝ #黑色
编辑框2.内容 ＝ “zip”

.子程序 __启动窗口_创建完毕

@傻子到了