多行文本写入如何实现？

summer0411

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件号	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.txt”, , )
写文本行 (文件号, “哈哈” ＋ #换行符 )
关闭文件 (文件号)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件号, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.txt”, , )<br /> 写文本行 (文件号, “哈哈” ＋ #换行符)<br /> 关闭文件 (文件号)

大家好，想实现按钮就写入多行哈哈，能实现自动换行并保存，应该怎么写？

haoren1212

  

子程序名	返回值类型	公开	备 注
程序_写行内容			在程序根目录建立一个txt文件用于记录相关日志内容
参数名	类 型	参考	可空	数组	备 注
行内容	文本型
保存文件路径	文本型				写日记文件的路径，可空，默认在运行目录下写出

变量名	类 型	静态	数组	备 注
文件号	整数型

如果真 (目录_是否存在 (保存文件路径))
目录_创建 (目录_取父路径 (保存文件路径))

如果真 (是否为空 (保存文件路径))
保存文件路径 ＝ 取运行目录 () ＋ “\test.txt”

如果真 (文件是否存在 (保存文件路径) ＝ 假)
写到文件 (保存文件路径, {  })
文件号 ＝ 打开文件 (保存文件路径, , )
插入文本行 (文件号, 行内容)
关闭文件 (文件号)

.版本 2<br /> <br /> .子程序 程序_写行内容, , 公开, 在程序根目录建立一个txt文件用于记录相关日志内容<br /> .参数 行内容, 文本型<br /> .参数 保存文件路径, 文本型, 可空, 写日记文件的路径，可空，默认在运行目录下写出<br /> .局部变量 文件号, 整数型<br /> <br /> .如果真 (目录_是否存在 (保存文件路径))<br />     目录_创建 (目录_取父路径 (保存文件路径))<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (保存文件路径))<br />     保存文件路径 ＝ 取运行目录 () ＋ “\test.txt”<br /> .如果真结束<br /> <br /> .如果真 (文件是否存在 (保存文件路径) ＝ 假)<br />     写到文件 (保存文件路径, {  })<br /> .如果真结束<br /> 文件号 ＝ 打开文件 (保存文件路径, , )<br /> 插入文本行 (文件号, 行内容)<br /> 关闭文件 (文件号)

温柔小仙女

写文本行 (文件号, “哈哈” ＋ #换行符＋“哈哈” ＋ #换行符 )

zhengcp

多几个写文本行再关闭文件不就行了，或者循环写入，又或是先把内容先组合好，再写入

尛龍科技

那你想写多少行直接写多少行不就行了

欢乐何在

.版本 2

.子程序 _按钮1_被单击
.局部变量 文件号, 整数型

文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.txt”, , )
写文本行 (文件号, “哈哈” ＋ #换行符 ＋ “哈哈” ＋ #换行符 ＋ “哈哈” ＋ #换行符 ＋ “哈哈” ＋ #换行符 ＋ “哈哈” ＋ #换行符 ＋ “哈哈” ＋ #换行符 ＋ “哈哈” ＋ #换行符 ＋ “哈哈”)
关闭文件 (文件号)