当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
-14 Comments

Life——文件粉碎机源码

发布于:2016-07-05  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.程序集变量 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.加入文本 (“取消粉碎:” + 时间到文本 (取现行时间 (), ) + #换行符 + “———————————————————” + #换行符 + #换行符)


标签:                   喜欢:收藏