.程序集变量 FileID, 整数型
.子程序 _按钮1_被单击
.如果真 (通用对话框1.打开 ())
编辑框1.内容 = 通用对话框1.文件名
FileID = 打开文件 (通用对话框1.文件名, , #禁止读写)
.如果 (FileID ≠ 0)
编辑框2.加入文本 (“文件名:” + 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - 倒找文本 (通用对话框1.文件名, “\”, , 真)) + #换行符)
编辑框2.加入文本 (“目录:” + 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 真) - 1) + #换行符)
编辑框2.加入文本 (“粉碎后可释放空间:” + 数值到格式文本 (取文件长度 (FileID), , 真) + “ 字节” + #换行符)
连续赋值 (假, 按钮2.禁止, 按钮3.禁止)
连续赋值 (真, 按钮1.禁止, 编辑框1.禁止)
.否则
编辑框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.内容 = “”
.如果真结束
.子程序 _编辑框2_内容被改变
编辑框2.起始选择位置 = -1
.子程序 _按钮3_被单击
关闭文件 (FileID)
连续赋值 (假, 按钮1.禁止, 编辑框1.禁止)
连续赋值 (真, 按钮2.禁止, 按钮3.禁止)
编辑框1.内容 = “”
编辑框2.加入文本 (“取消粉碎:” + 时间到文本 (取现行时间 (), ) + #换行符 + “———————————————————” + #换行符 + #换行符)