多线程，如何取任务数量

aayangpu

现在的情况，就是不知道，怎么给任务总数量赋值。因为文本有点大，所以读入文件不能用，用的快速文本对象。刚学编程没几天，各位大哥见谅。  
现在的情况是， 已经实现多线程，但是，执行任务重复。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_队列	鱼刺类_队列
集_线程池	鱼刺类_线程池
集_临界许可	鱼刺类_临界许可
集_工作日志	文本型

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

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

变量名	类 型	静态	数组	备 注
网址内容	文本型
文件号	整数型
结果	文本型
快速文本	快速文本对象
文件内容	逻辑型
文件数组	文本型		0
i	整数型
自己网址	文本型
提交网址	文本型
方式	整数型
提交数据	文本型
局_分配到的任务	文本型

如果真 (集_队列.弹出文本 (局_分配到的任务) ＝ 假)
返回 ()
文件内容 ＝ 快速文本.从文件读 (取运行目录 () ＋ “\5.txt”)
文件数组 ＝ 快速文本.分割文本 ( #换行符, )
计次循环首 (取数组成员数 (文件数组), i)
自己网址 ＝ 文件数组 [i]
提交网址 ＝ “https://url5.co/?t=1715525879”
方式 ＝ 1
提交数据 ＝ “name=” ＋ 自己网址 ＋ “&time=Mx&button=%E7%AB%8B%E5%8D%B3%E6%9F%A5%E8%A9%A2”
结果 ＝ UTF8到文本 (网页_访问 (提交网址, 方式, 提交数据, , , #常量1, , , , , , , , ))
网址内容 ＝ 文本_取出中间文本 (结果, “target”, “”, , )
调试输出 (网址内容)
编辑框1.加入文本 (网址内容 ＋ #换行符 )
判断 (网址内容 ≠ “”)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\网址.txt”, #改写, #无限制 )
移到文件尾 (文件号)
写文本行 (文件号, 自己网址 ＋ “---” ＋ 网址内容)
调试输出 (“正常”)

文件号 ＝ 打开文件 (取运行目录 () ＋ “\失败网址.txt”, #改写, #无限制 )
移到文件尾 (文件号)
写文本行 (文件号, 自己网址 ＋ “---” ＋ 网址内容)
调试输出 (“失败”)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\总数网址数据.txt”, #改写, #无限制 )
移到文件尾 (文件号)
写文本行 (文件号, 自己网址 ＋ “---” ＋ 网址内容)
延迟 (50)
计次循环尾 ()
集_临界许可.进入 ()  ' 加【写锁】，防止共享资源崩溃。具体说明请看例程 2.临界许可
集_工作日志 ＝ 集_工作日志 ＋ “线程” ＋ 到文本 (参_附加参数) ＋ “: 完成” ＋ 局_分配到的任务 ＋ #换行符
集_临界许可.退出 ()

子程序名	返回值类型	公开	备 注
主线程

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

' 创建4个线程，共同完成1000个任务
n ＝ 1000            [size=5]（这个地方的任务数量如何等于，文本内容中的数组数量，我怎么赋值，软件都提示错误。这个地方的赋值，不等于主线程的 任务数量，导致 多线程，一直重复，主线程。）[/size]
调试输出 (n)
计次循环首 (n, i)
集_队列.压入文本 (“任务” ＋ 到文本 (i), )  ' 先把所有任务的特征，给加入队伍里面，然后排队执行
计次循环尾 ()
集_线程池.创建 (4, , , 假)  ' 创建线程池
计次循环首 (n, i)
集_线程池.投递任务 (&子线程, i, )  ' 一次性把所有任务都投到线程池里面，线程池内部应该实现也是一个队伍，依次执行投递的线程
计次循环尾 ()
调试输出 (“线程全部投递完毕”)
集_线程池.等待任务动态 ()  ' 这句话可写可不写
判断循环首 (集_线程池.取_是否完全空闲 () ＝ 假)  ' 等待任务全部执行完
_延时 (300)
判断循环尾 ()
编辑框1.内容 ＝ 集_工作日志
调试输出 (“线程全部执行完毕”)

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

启动线程 (&主线程, , )

i支持库列表	支持库注释
commobj	通用对象支持库
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_队列, 鱼刺类_队列<br /> .程序集变量 集_线程池, 鱼刺类_线程池<br /> .程序集变量 集_临界许可, 鱼刺类_临界许可<br /> .程序集变量 集_工作日志, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 子线程<br /> .参数 参_附加参数, 整数型<br /> .局部变量 网址内容, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 快速文本, 快速文本对象<br /> .局部变量 文件内容, 逻辑型<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 自己网址, 文本型<br /> .局部变量 提交网址, 文本型<br /> .局部变量 方式, 整数型<br /> .局部变量 提交数据, 文本型<br /> .局部变量 局_分配到的任务, 文本型<br /> <br /> .如果真 (集_队列.弹出文本 (局_分配到的任务) ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 文件内容 ＝ 快速文本.从文件读 (取运行目录 () ＋ “\5.txt”)<br /> 文件数组 ＝ 快速文本.分割文本 (#换行符, )<br /> .计次循环首 (取数组成员数 (文件数组), i)<br />     自己网址 ＝ 文件数组 <i><br />     提交网址 ＝ “https://url5.co/?t=1715525879”<br />     方式 ＝ 1<br />     提交数据 ＝ “name=” ＋ 自己网址 ＋ “&time=Mx&button=%E7%AB%8B%E5%8D%B3%E6%9F%A5%E8%A9%A2”<br /> <br />     结果 ＝ UTF8到文本 (网页_访问 (提交网址, 方式, 提交数据, , , #常量1, , , , , , , , ))<br /> <br /> <br />     网址内容 ＝ 文本_取出中间文本 (结果, “target”, “”, , )<br />     调试输出 (网址内容)<br />     编辑框1.加入文本 (网址内容 ＋ #换行符)<br /> <br />     .判断开始 (网址内容 ≠ “”)<br /> <br />         文件号 ＝ 打开文件 (取运行目录 () ＋ “\网址.txt”, #改写, #无限制)<br /> <br />         移到文件尾 (文件号)<br /> <br />         写文本行 (文件号, 自己网址 ＋ “---” ＋ 网址内容)<br />         调试输出 (“正常”)<br /> <br />     .默认<br />         文件号 ＝ 打开文件 (取运行目录 () ＋ “\失败网址.txt”, #改写, #无限制)<br />         移到文件尾 (文件号)<br />         写文本行 (文件号, 自己网址 ＋ “---” ＋ 网址内容)<br />         调试输出 (“失败”)<br /> <br />     .判断结束<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\总数网址数据.txt”, #改写, #无限制)<br />     移到文件尾 (文件号)<br />     写文本行 (文件号, 自己网址 ＋ “---” ＋ 网址内容)<br /> <br />     延迟 (50)<br /> <br /> .计次循环尾 ()<br /> 集_临界许可.进入 ()  ' 加【写锁】，防止共享资源崩溃。具体说明请看例程 2.临界许可<br /> 集_工作日志 ＝ 集_工作日志 ＋ “线程” ＋ 到文本 (参_附加参数) ＋ “: 完成” ＋ 局_分配到的任务 ＋ #换行符<br /> 集_临界许可.退出 ()<br /> <br /> .子程序 主线程<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> ' 创建4个线程，共同完成1000个任务<br /> n ＝ 1000            <font size="5">（这个地方的任务数量如何等于，文本内容中的数组数量，我怎么赋值，软件都提示错误。这个地方的赋值，不等于主线程的 任务数量，导致 多线程，一直重复，主线程。）</font><br /> 调试输出 (n)<br /> .计次循环首 (n, i)<br />     集_队列.压入文本 (“任务” ＋ 到文本 (i), )  ' 先把所有任务的特征，给加入队伍里面，然后排队执行<br /> .计次循环尾 ()<br /> <br /> 集_线程池.创建 (4, , , 假)  ' 创建线程池<br /> <br /> .计次循环首 (n, i)<br />     集_线程池.投递任务 (&子线程, i, )  ' 一次性把所有任务都投到线程池里面，线程池内部应该实现也是一个队伍，依次执行投递的线程<br /> .计次循环尾 ()<br /> <br /> 调试输出 (“线程全部投递完毕”)<br /> <br /> 集_线程池.等待任务动态 ()  ' 这句话可写可不写<br /> .判断循环首 (集_线程池.取_是否完全空闲 () ＝ 假)  ' 等待任务全部执行完<br />     _延时 (300)<br /> .判断循环尾 ()<br /> <br /> 编辑框1.内容 ＝ 集_工作日志<br /> 调试输出 (“线程全部执行完毕”)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 启动线程 (&主线程, , )

观音

  

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
pool	鱼刺类_线程池Ex
critical	鱼刺类_临界许可

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

线程_启动 (&startWork)

子程序名	返回值类型	公开	备 注
startWork

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

' pool.取_执行线程数 ()  你要的命令
pool.创建 (5, 5, )
计次循环首 (100, i)
处理事件 ()
pool.投递任务 (&working, i)
判断循环首 (取反 (pool.取_是否有空闲 ()))
程序_延时 (50)
判断循环尾 ()
计次循环尾 ()
处理事件 ()
判断循环首 (取反 (pool.取_是否完全空闲 ()))
程序_延时 (50)
判断循环尾 ()
pool.销毁 ()  ' 不销毁的话下次修改最大线程数会没有反应

.版本 2<br /> <br /> .程序集变量 pool, 鱼刺类_线程池Ex<br /> .程序集变量 critical, 鱼刺类_临界许可<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 线程_启动 (&startWork)<br /> <br /> .子程序 startWork<br /> .局部变量 i, 整数型<br /> <br /> 'pool.取_执行线程数 ()  你要的命令<br /> pool.创建 (5, 5, )<br /> .计次循环首 (100, i)<br />     处理事件 ()<br />     pool.投递任务 (&working, i)<br />     .判断循环首 (取反 (pool.取_是否有空闲 ()))<br />         程序_延时 (50)<br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> 处理事件 ()<br /> .判断循环首 (取反 (pool.取_是否完全空闲 ()))<br />     程序_延时 (50)<br /> .判断循环尾 ()<br /> pool.销毁 ()  ' 不销毁的话下次修改最大线程数会没有反应

补充内容 (2024-5-17 13:17):
这个是标准最简单的 多线程投递代码 可以无脑参考

aayangpu

观音 发表于 2024-5-17 13:17
[e=0].版本 2

.程序集变量 pool, 鱼刺类_线程池Ex

我的任务是一个  计次循环首， 这种，写下来，多线程，还是会重复执行，多线程。 我想要不重复执行，计次循环首里面的任务。

观音

aayangpu 发表于 2024-5-17 13:30
我的任务是一个  计次循环首， 这种，写下来，多线程，还是会重复执行，多线程。 我想要不重复执行，计次 ...

按照我理解的 你说的跟你代码写的 完全不是一个东西 自己研究一下逻辑吧   任务数量应该是文件数量
我就简单看了一下 你的代码和说的太乱了

aayangpu

观音 发表于 2024-5-17 13:35
按照我理解的 你说的跟你代码写的 完全不是一个东西 自己研究一下逻辑吧   任务数量应该是文件数量
我就 ...

任务数量是，文件数量，我的文件是大文本数据。 用的快速访问对象。   这个数组，不能复制给，任务数量。

aayangpu

aayangpu 发表于 2024-5-17 14:28
任务数量是，文件数量，我的文件是大文本数据。 用的快速访问对象。   这个数组，不能复制给，任务数量。 ...

正常应该是可以赋值的，但是我不会。

萧啊萧

观音 发表于 2024-5-17 13:17
[e=0].版本 2

.程序集变量 pool, 鱼刺类_线程池Ex

100是线程数量吗

aayangpu

萧啊萧 发表于 2024-5-19 00:18
100是线程数量吗

线程，是文本导入的数组。 但是不知道怎么赋值。