易语言文件粉碎器制作——中国如购教程

1、创建一个新窗口，并插入一个局部变量

2、插入两个编辑框，一个通用对话框，一个标签，三个按钮，一个进度条

3、这里开始写按钮1的代码

.版本 2

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

.如果真 (通用对话框1.打开 ())    编辑框1.内容 ＝ 通用对话框1.文件名    FileID ＝ 打开文件 (通用对话框1.文件名, , #禁止读写)    .如果 (FileID ≠ 0)        编辑框2.加入文本 (“文件名：” ＋ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 真)) ＋ #换行符)        编辑框2.加入文本 (“目录：” ＋ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 真) － 1) ＋ #换行符)        编辑框2.加入文本 (“粉碎后可释放空间：” ＋ 数值到格式文本 (取文件长度 (FileID), , 真) ＋ “ 字节” ＋ #换行符)        连续赋值 (假, 按钮2.禁止, 按钮3.禁止)        连续赋值 (真, 按钮1.禁止, 编辑框1.禁止)    .否则        编辑框2.加入文本 (“文件载入失败，无法完成粉碎。”)

4、.版本 2

.子程序 _按钮2_被单击.局部变量 Temp_byte, 字节集.局部变量 id, 整数型

.如果真 (信息框 (“该操作不可恢复，确定继续吗？”, 36, “询问:”) ＝ #是钮)    连续赋值 (真, 按钮2.禁止, 按钮3.禁止)    删除数据 (FileID, 取文件长度 (FileID))    延时 (50)    进度条1.位置 ＝ 20    id ＝ 打开内存文件 ()    写出字节集 (id, 取空白字节集 (取文件长度 (FileID)))    移到文件首 (id)    延时 (50)    进度条1.位置 ＝ 40    写出字节集 (FileID, 读入字节集 (id, 取文件长度 (id)))    延时 (50)    进度条1.位置 ＝ 60    删除数据 (FileID, 取文件长度 (FileID))    删除数据 (id, 取文件长度 (id))    延时 (50)    进度条1.位置 ＝ 80    关闭文件 (id)    关闭文件 (FileID)    删除文件 (通用对话框1.文件名)    延时 (50)    进度条1.位置 ＝ 100    连续赋值 (假, 按钮1.禁止, 编辑框1.禁止)    编辑框2.加入文本 (“粉碎时间：” ＋ 时间到文本 (取现行时间 (), ) ＋ #换行符)    编辑框2.加入文本 (“文件粉碎成功。” ＋ #换行符 ＋ “———————————————————” ＋ #换行符 ＋ #换行符)    延时 (1000)    进度条1.位置 ＝ 0    编辑框1.内容 ＝ “”

5、按钮3的代码

6、编辑框2的代码

7、最后修改程序属性编译即可