易语言打开关闭

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 fh, 整数型

.程序集变量 fj, 文本型

.程序集变量 gb1, 逻辑型

.子程序 _打开_被选择

.如果真 (通用对话框1.打开 ())

fj ＝ 通用对话框1.文件名

编辑框1.内容 ＝ 到文本 (读入文件 (fj))

.如果真结束

.子程序 _关闭_被选择

fh ＝ 打开文件 (fj, 2, )

写出文本 (fh, 编辑框1.内容)

关闭文件 (fh)

编辑框1.内容 ＝ “”