多线程保存文本出错！

微微暖风

  

子程序名	返回值类型	公开	备 注
保存数据
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
写入数据	文本型

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

_进入许可区 (保存许可证)
如果真 (文件是否存在 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＝ 假)
写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, {  })
文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, , )
移到文件尾 (文件号)
写文本行 (文件号, 写入数据)
关闭文件 (文件号)
_退出许可区 (保存许可证)

.版本 2<br /> <br /> .子程序 保存数据<br /> .参数 文件名, 文本型<br /> .参数 写入数据, 文本型<br /> .局部变量 文件号, 整数型<br /> <br /> _进入许可区 (保存许可证)<br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＝ 假)<br />     写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, {  })<br /> .如果真结束<br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, , )<br /> 移到文件尾 (文件号)<br /> 写文本行 (文件号, 写入数据)<br /> 关闭文件 (文件号)<br /> _退出许可区 (保存许可证)

各位大哥，上面的代码，用3个线程就错的一塌糊涂，我打算50线程保存，qiuqiu大佬帮忙改一下，多谢了

你送的花开了

直接用鱼刺爱偷懒的模块  输出文本  

zainex

保存许可证这个变量改成全局或程序集变量:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
保存许可证	整数型

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

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

保存许可证 ＝ 创建进入许可证 ()
计次循环首 (3, 数)
启动线程 (&线程, 数, )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
线程
参数名	类 型	参考	可空	数组	备 注
数	整数型

保存数据 (“text”, 到文本 (数))

子程序名	返回值类型	公开	备 注
保存数据
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
写入数据	文本型

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

进入许可区 (保存许可证)
调试输出 (写入数据)
如果真 (文件是否存在 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＝ 假)
写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, {  })
文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, , )
移到文件尾 (文件号)
写文本行 (文件号, 写入数据)
关闭文件 (文件号)
退出许可区 (保存许可证)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 保存许可证, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数, 整数型<br /> <br /> 保存许可证 ＝ 创建进入许可证 ()<br /> .计次循环首 (3, 数)<br />     启动线程 (&线程, 数, )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 线程<br /> .参数 数, 整数型<br /> <br /> 保存数据 (“text”, 到文本 (数))<br /> <br /> <br /> .子程序 保存数据<br /> .参数 文件名, 文本型<br /> .参数 写入数据, 文本型<br /> .局部变量 文件号, 整数型<br /> <br /> 进入许可区 (保存许可证)<br /> 调试输出 (写入数据)<br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＝ 假)<br />     写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, {  })<br /> .如果真结束<br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, , )<br /> 移到文件尾 (文件号)<br /> 写文本行 (文件号, 写入数据)<br /> 关闭文件 (文件号)<br /> 退出许可区 (保存许可证)

开始运行被调试程序
* “2”
* “1”
* “3”
被调试易程序运行完毕

RainCharm

  

子程序名	返回值类型	公开	备 注
保存数据

变量名	类 型	静态	数组	备 注
文件名	文本型
新数据	字节集

如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＝ 假)
写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, {  })
写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, 读入文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＋ 新数据)

.版本 2<br /> <br /> .子程序 保存数据<br /> .局部变量 文件名, 文本型<br /> .局部变量 新数据, 字节集<br /> <br /> <br /> .如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＝ 假)<br />     写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, {  })<br /> .否则<br />     写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, 读入文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＋ 新数据)<br /> .如果结束

试一下这样的，没有看到你其它代码，应该是可以解决问题


补充内容 (2025-10-22 19:22):
楼主可以试一下我这种跟他们那种的写，看一下我是不是坑你了

补充内容 (2025-10-22 19:27):
从头到尾我也没说我写的是多线程，说了让楼主去试一下，能解决问题就行。你要点评没问题而不是踩别人抬高自己

wangchen

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
保存许可证	整数型

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

保存许可证 ＝ 创建进入许可证 ()
启动线程 (&子程序1, 999, )

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
参数	整数型

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

文件名 ＝ “123”
a ＝ 参数
计次循环首 (a, i)
保存数据 (文件名, 到文本 (i))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
保存数据
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
写入数据	文本型

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

进入许可区 (保存许可证)
如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＝ 假)
写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, {  })


文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, , )
移到文件尾 (文件号)
写文本行 (文件号, 写入数据)
关闭文件 (文件号)
退出许可区 (保存许可证)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

删除进入许可证 (保存许可证)

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

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 保存许可证, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 保存许可证 ＝ 创建进入许可证 ()<br /> 启动线程 (&子程序1, 999, )<br /> <br /> .子程序 子程序1<br /> .参数 参数, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 文件名, 文本型<br /> <br /> 文件名 ＝ “123”<br /> <br /> a ＝ 参数<br /> .计次循环首 (a, i)<br />     保存数据 (文件名, 到文本 (i))<br /> .计次循环尾 ()<br /> <br /> .子程序 保存数据<br /> .参数 文件名, 文本型<br /> .参数 写入数据, 文本型<br /> .局部变量 文件号, 整数型<br /> <br /> 进入许可区 (保存许可证)<br /> .如果 (文件是否存在 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”) ＝ 假)<br />     写到文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, {  })<br /> .否则<br /> <br /> .如果结束<br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, , )<br /> 移到文件尾 (文件号)<br /> 写文本行 (文件号, 写入数据)<br /> 关闭文件 (文件号)<br /> 退出许可区 (保存许可证)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 删除进入许可证 (保存许可证)

baitso

像这种从头锁到尾的多线程，与单线程有区别吗？效率又能提升多少？

明天自然醒

如果每个线程都是不同的文件名，那么不需要加锁

如果每个线程操作的是同一个文件，那应该先把数据存进缓冲区，单独拎出来一个线程保存。而不是每个线程都进行IO操作