易语言打开关闭

.版本 2


.程序集 窗口程序集_启动窗口
.程序集变量 fh, 整数型
.程序集变量 fj, 文本型
.程序集变量 gb1, 逻辑型


.子程序 _打开_被选择


.如果真 (通用对话框1.打开 ())
    fj ＝ 通用对话框1.文件名
    编辑框1.内容 ＝ 到文本 (读入文件 (fj))
.如果真结束




.子程序 _关闭_被选择


fh ＝ 打开文件 (fj, 2, )
写出文本 (fh, 编辑框1.内容)
关闭文件 (fh)
编辑框1.内容 ＝ “”