写到文件问题

毛利率

    .计次循环首 (取数组成员数 (strs), i)
        书名ID ＝ 文本_取出中间文本 (strs [i], “id” ＋ #引号 ＋ “:”, “,” ＋ #引号)
        书名 ＝ 文本_取出中间文本 (strs [i], “name” ＋ #引号 ＋ “:” ＋ #引号, #引号)
        已购章节 ＝ 文本_取出中间文本 (strs [i], “已购章节：”, #引号)
        .如果真 (书名 ≠ “”)
            写到文件 (取运行目录 () ＋ “\已购章节.txt”, 到字节集 (到文本 (读入文件 (取运行目录 () ＋ “\已购章节.txt”)) ＋ user ＋ “----” ＋ pass ＋ “----” ＋ ftoken ＋ “----书名ID：” ＋ 书名ID ＋ “-” ＋ 书名 ＋ “-购买章节：” ＋ 已购章节 ＋ #换行符))
        .如果真结束

    .计次循环尾 ()


开始写入正常的，运行一段时间后，前面写的数据就没了。
例如：10000的数据，写到一半，前面8千就没了，只保留了后面2千数据这样子

suyunsq

用变量储存前面的内容，等到全部记录完再一次性写出文件

ksksksks

多线程的 吗   
要不我看看

LEOONL

你没必要每次读然后写，你每次打开程序的时候，用一个文本变量读入，然后每次写的时候 文本=文本+新增内容， 然后写到文件（，到字节集（文本））

afu45

  

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

文件号 ＝ 打开文件 (, , )
移到文件尾 (文件号)
计次循环首 (, )
写出文本 (文件号, “来了老弟”)
计次循环尾 ()
关闭文件 (文件号)

.版本 2<br /> <br /> .局部变量 文件号, 整数型<br /> <br /> 文件号 ＝ 打开文件 (, , )<br /> 移到文件尾 (文件号)<br /> .计次循环首 (, )<br />     写出文本 (文件号, “来了老弟”)<br /> .计次循环尾 ()<br /> 关闭文件 (文件号)

Huaz

  

子程序名	返回值类型	公开	备 注
多线程写出文本
参数名	类 型	参考	可空	数组	备 注
内容	文本型
文件名	文本型

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

进入许可区 (写出文件许可证)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\采集保存\” ＋ 路径名称 ＋ “\” ＋ 文件名, 5, 1)
移到文件尾 (文件号)
写出文本 (文件号, 内容 ＋ #换行符 )
关闭文件 (文件号)
退出许可区 (写出文件许可证)
返回 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 多线程写出文本<br /> .参数 内容, 文本型<br /> .参数 文件名, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 文件号, 整数型<br /> <br /> 进入许可区 (写出文件许可证)<br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\采集保存\” ＋ 路径名称 ＋ “\” ＋ 文件名, 5, 1)<br /> 移到文件尾 (文件号)<br /> 写出文本 (文件号, 内容 ＋ #换行符)<br /> 关闭文件 (文件号)<br /> <br /> <br /> <br /> <br /> 退出许可区 (写出文件许可证)<br /> <br /> <br /> <br /> <br /> 返回 ()

jtg827

写到文件 (, )，等同于新建一个文件写入字节集，以前的内容当然不存在了
你只能用：
.版本 2

文件号=打开文件 (, , )
写出字节集 (文件号, )