.版本 2
.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.子程序 _按钮1_被单击
改变驱动器 (“d”)
创建目录 (“目录”)
文件号 = 打开文件 (“D:\目录\1.txt”, 5, )
.子程序 _按钮2_被单击
.局部变量 变量, 文本型
通用对话框1.打开 ()
变量 = 通用对话框1.文件名
.如果真 (变量 ≠ “”)
写文本行 (文件号, 变量)
.如果真结束
创建目录要用到一些模块之类的。
写的时候直接用D:\1.txt就可以了
.版本 2
.子程序 _按钮1_被单击
通用对话框1.打开 ()
写到文件 (“D:\1.txt”, 到字节集 (通用对话框1.文件名))
写到文件 (“D:\目录\1.txt”, 到字节集(编辑框1.内容))