马上注册，结交更多易友，享用更多功能，让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
.版本 2
.支持库 dp1
.程序集 窗口程序集1
.程序集变量 b, 整数型
.程序集变量 文件号, 整数型
.子程序 _打开文件_被选择
通用对话框1.打开 ()
文件号 ＝ 打开文件 (通用对话框1.文件名, , 4)
编辑框1.内容 ＝ 读入文本 (文件号, )
.子程序 _最大化_被选择
最大化.选中 ＝ 取反 (最大化.选中)
.如果 (最大化.选中 ＝ 真)
位置 ＝ 3
.否则
位置 ＝ 2
.如果结束
.子程序 _保存文件_被选择
.局部变量 a, 文本型
.局部变量 c, 逻辑型
通用对话框2.打开 ()
a ＝ 通用对话框2.文件名
c ＝ 写到文件 (a, 到字节集 (编辑框1.内容))
.如果 (c ＝ 真)
信息框 (“保存成功！”, 0, )
b ＝ 1
.否则
b ＝ 0
.如果结束
.子程序 _关闭程序_被选择
.判断开始 (编辑框1.内容 ＝ “”)
销毁 ()
.判断 (b ＝ 1)
销毁 ()
.默认
_保存文件_被选择 ()
.判断结束
.子程序 _关闭文件_被选择
关闭文件 (文件号)
.子程序 _加密读取_被选择
.局部变量 a, 字节集
通用对话框1.打开 ()
文件号 ＝ 打开文件 (通用对话框1.文件名, , 4)
编辑框1.内容 ＝ 到文本 (解密数据 (到字节集 (读入文本 (文件号, )), “010622”, 2))
.子程序 _加密保存_被选择
.局部变量 e, 字节集
.局部变量 f, 文本型
.局部变量 d, 逻辑型
通用对话框2.打开 ()
f ＝ 通用对话框2.文件名
e ＝ 加密数据 (到字节集 (编辑框1.内容), “010622”, 2)
d ＝ 写到文件 (f, e)
.如果 (d ＝ 真)
信息框 (“保存成功！”, 0, )
b ＝ 1
.否则
b ＝ 0
.如果结束
|
