写出文本到TXT，如何追加文本

Marvin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

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

路径 ＝ 取运行目录 () ＋ “\1.txt”
文件号 ＝ 打开文件 (路径, 5, )
如果真 (文件号 ＝ 0)
输出调试文本 (“打开文件失败”)
返回 ()

移动读写位置 (文件号, 2, 0)
写出文本 (文件号, “文本1” ＋ #换行符 )
输出调试文本 (“已写入文本1”)
移动读写位置 (文件号, 2, 0)
写出文本 (文件号, “文本2” ＋ #换行符 )
输出调试文本 (“已写入文本2”)
移动读写位置 (文件号, 2, 0)
写出文本 (文件号, “文本3” ＋ #换行符 )
输出调试文本 (“已写入文本3”)
关闭文件 (文件号)
输出调试文本 (“全部写入完成”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文件号, 整数型<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\1.txt”<br /> <br /> 文件号 ＝ 打开文件 (路径, 5, )<br /> .如果真 (文件号 ＝ 0)<br />     输出调试文本 (“打开文件失败”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 移动读写位置 (文件号, 2, 0)<br /> 写出文本 (文件号, “文本1” ＋ #换行符)<br /> 输出调试文本 (“已写入文本1”)<br /> <br /> 移动读写位置 (文件号, 2, 0)<br /> 写出文本 (文件号, “文本2” ＋ #换行符)<br /> 输出调试文本 (“已写入文本2”)<br /> <br /> 移动读写位置 (文件号, 2, 0)<br /> 写出文本 (文件号, “文本3” ＋ #换行符)<br /> 输出调试文本 (“已写入文本3”)<br /> <br /> 关闭文件 (文件号)<br /> 输出调试文本 (“全部写入完成”)

Marvin

1.e (2.75 KB, 下载次数: 1)

2026-7-19 15:26 上传

点击文件名下载附件

精易论坛龙

文件号=打开文件 （“文件目录”，#读写，#无限制） 移到文件尾 （文件号）'还有一个：移到文件首 () 写出文本 (文件号, #换行符,变量1，“ ”，变量2，“ ”，变量3 )

精易论坛龙

文件号=打开文件 （“文件目录”，#读写，#无限制）
移到文件尾 （文件号）'还有一个：移到文件首 ()
写出文本 (文件号, #换行符,保存内容1，“ ”，保存内容2，“ ”，保存内容3 )
可以读取文本，移动到最后，再追加。而不是读取出来再合并字符再保存。