.版本 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” .子程序 __启动窗口_创建完毕