多线程问题

hulala889

  

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

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

计次循环首 (10000, i)
启动线程 (&子程序1, i, )
计次循环尾 ()

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

进入许可区 (许可证)
写入文本 (到文本 (i))
退出许可区 (许可证)

子程序名	返回值类型	公开	备 注
写入文本	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型

变量名	类 型	静态	数组	备 注
局_文本	文本型

局_文本 ＝ 读配置项 (全_文件路径, “文本列表”, 参_文本, )
判断 (局_文本 ＝ “”)
写配置项 (全_文件路径, “文本列表”, 参_文本, 时间_取现行时间戳 (真))
返回 (真)
返回 (假)

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

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (10000, i)<br />     启动线程 (&子程序1, i, )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 子程序1<br /> .参数 i, 整数型<br /> <br /> 进入许可区 (许可证)<br /> <br /> 写入文本 (到文本 (i))<br /> <br /> 退出许可区 (许可证)<br /> <br /> <br /> .子程序 写入文本, 逻辑型<br /> .参数 参_文本, 文本型<br /> .局部变量 局_文本, 文本型<br /> <br /> 局_文本 ＝ 读配置项 (全_文件路径, “文本列表”, 参_文本, )<br /> .判断开始 (局_文本 ＝ “”)<br />     写配置项 (全_文件路径, “文本列表”, 参_文本, 时间_取现行时间戳 (真))<br />     返回 (真)<br /> .默认<br />     返回 (假)

为什么每次写个两三千就停止了，不知道是线程没执行完毕还是什么原因，

bysy

能运行那么多线程？

笨来无一悟

不信你测试一下速度 你这写法比单线程都慢很多很多很多

519948746

写文本的速度瓶颈应该在磁盘上  所以是否多线程意义不大,另外只能写几千行 是因为大约在1800-2000个线程以后就启动新线程失败了.

dnxl

线程锁是为了让线程排队执行某个操作，你这样的多线程有意义么，还不如单线程循环

po1718

这样的多线程没有意义，还不如单线程

po1718

po1718 发表于 2025-6-5 16:04
这样的多线程没有意义，还不如单线程

你看看进程管理器，句柄也暴增，

你的猫

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
许可证	整数型
线程句柄数组	整数型	0
文件号	整数型

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

许可证 ＝ 创建进入许可证 ()  ' ★ 关键：创建许可证
文件号 ＝ 打开文件 ("data.txt", #改写, )  ' 改用高效文件写入

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

删除进入许可证 (许可证)  ' ★ 关键：销毁许可证
关闭文件 (文件号)

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

变量名	类 型	静态	数组	备 注
i	整数型
线程句柄	整数型

重定义数组 (线程句柄数组, 假, 0)
计次循环首 (10000, i)
启动线程 (&子程序1, i, 线程句柄)
加入成员 (线程句柄数组, 线程句柄)
计次循环尾 ()
' 等待所有线程完成
计次循环首 (取数组成员数 (线程句柄数组), i)
等待线程 (线程句柄数组[i], -1)
计次循环尾 ()
信息框 ("所有线程执行完成", 0, , )

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

进入许可区 (许可证)
' 直接写入文件（比写配置项快100倍）
移到文件尾 (文件号)
写出文本 (文件号, 到文本 (i) + #换行符 )
退出许可区 (许可证)

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

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 许可证, 整数型<br /> .程序集变量 线程句柄数组, 整数型, , "0"<br /> .程序集变量 文件号, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> 许可证 ＝ 创建进入许可证 ()  ' ★ 关键：创建许可证<br /> 文件号 ＝ 打开文件 ("data.txt", #改写, )  ' 改用高效文件写入<br /> <br /> .子程序 __启动窗口_将被销毁<br /> 删除进入许可证 (许可证)  ' ★ 关键：销毁许可证<br /> 关闭文件 (文件号)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 线程句柄, 整数型<br /> <br /> 重定义数组 (线程句柄数组, 假, 0)<br /> .计次循环首 (10000, i)<br />     启动线程 (&子程序1, i, 线程句柄)<br />     加入成员 (线程句柄数组, 线程句柄)<br /> .计次循环尾 ()<br /> <br /> ' 等待所有线程完成<br /> .计次循环首 (取数组成员数 (线程句柄数组), i)<br />     等待线程 (线程句柄数组<i>, -1)<br /> .计次循环尾 ()<br /> <br /> 信息框 ("所有线程执行完成", 0, , )<br /> <br /> .子程序 子程序1<br /> .参数 i, 整数型<br /> <br /> 进入许可区 (许可证)<br /> ' 直接写入文件（比写配置项快100倍）<br /> 移到文件尾 (文件号)<br /> 写出文本 (文件号, 到文本(i) + #换行符)<br /> 退出许可区 (许可证)