多线程采集，求大佬给优化建议

初恋哇

采集的时候超级列表框有的项会直接空出来求大佬看看什么毛病，才学多线程

情话采集.e (927.52 KB, 下载次数: 61)

2020-4-20 22:39 上传

点击文件名下载附件

初恋哇

情话采集.e (929.29 KB, 下载次数: 37)

2020-4-21 03:50 上传

点击文件名下载附件
这是修改过后的，为什么我设置了多线程之后感觉执行的时间没变化呢。。。20线程和100线程处理速度差不多是什么鬼。、。。求大佬解释下

闲草戏茶

多线程采集，求大佬给优化建议

szwkq

+6666666666666666

神一样的程序猿

  

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

全局_工作状态 ＝ 真
计次循环首 (10, )  ' 开几条线程就循环几次
启动线程 (&子程序_采集多线程, , )  ' 启动成功后记得关闭线程句柄，这里就不写了
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_采集多线程

变量名	类 型	静态	数组	备 注
局部_采集索引	整数型
局部_Url	文本型
局部_网页返回	文本型
局_正则	正则表达式类
局_计次	整数型
局部_表项索引	整数型

判断循环首 (全局_工作状态)  ' 点击开始按钮后直接赋值为真，设置全局变量’
进入许可区 ()
局部_采集索引 ＝ 全局_采集索引
全局_采集索引 ＝ 全局_采集索引 ＋ 1
如果真 (全局_采集索引 ＞ 2000)  ' 这里的2000就是翻页2000页
跳出循环 ()
退出许可区 ()
局部_Url ＝ “http://www.ainicr.cn/qh/” ＋ 局部_采集索引 ＋ “.html”
局部_网页返回 ＝ 网页_访问S (局部_Url)
局_正则.创建 ( #正则, 局部_网页返回, , , 真, )  ' 这可以判断下是否成功
计次循环首 (局_正则.取匹配数量 (), 局_计次)
进入许可区 ()
局部_表项索引 ＝ 超级列表框.插入表项 (, , , , , )
退出许可区 ()
超级列表框.置标题 (局部_表项索引, 0, 到文本 (局部_表项索引 ＋ 1))
超级列表框.置标题 (局部_表项索引, 1, 局_正则.取子匹配文本 (局_计次, 1))
计次循环尾 ()
' 源码没有测试，请测试后使用，手打的，不知道对错，
如果真 (全局_工作状态 ＝ 真)
跳出循环 ()
系统_处理事件 ()
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .子程序 开始按钮被单击<br /> <br /> 全局_工作状态 ＝ 真<br /> .计次循环首 (10, )  ' 开几条线程就循环几次<br />     启动线程 (&子程序_采集多线程, , )  ' 启动成功后记得关闭线程句柄，这里就不写了<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序_采集多线程<br /> .局部变量 局部_采集索引, 整数型<br /> .局部变量 局部_Url, 文本型<br /> .局部变量 局部_网页返回, 文本型<br /> .局部变量 局_正则, 正则表达式类<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局部_表项索引, 整数型<br /> <br /> .判断循环首 (全局_工作状态)  ' 点击开始按钮后直接赋值为真，设置全局变量’<br />     进入许可区 ()<br />     局部_采集索引 ＝ 全局_采集索引<br />     全局_采集索引 ＝ 全局_采集索引 ＋ 1<br />     .如果真 (全局_采集索引 ＞ 2000)  ' 这里的2000就是翻页2000页<br />         跳出循环 ()<br />     .如果真结束<br />     退出许可区 ()<br /> <br />     局部_Url ＝ “http://www.ainicr.cn/qh/” ＋ 局部_采集索引 ＋ “.html”<br />     局部_网页返回 ＝ 网页_访问S (局部_Url)<br /> <br />     局_正则.创建 (#正则, 局部_网页返回, , , 真, )  ' 这可以判断下是否成功<br />     .计次循环首 (局_正则.取匹配数量 (), 局_计次)<br />         进入许可区 ()<br />         局部_表项索引 ＝ 超级列表框.插入表项 (, , , , , )<br />         退出许可区 ()<br /> <br />         超级列表框.置标题 (局部_表项索引, 0, 到文本 (局部_表项索引 ＋ 1))<br />         超级列表框.置标题 (局部_表项索引, 1, 局_正则.取子匹配文本 (局_计次, 1))<br />     .计次循环尾 ()<br /> <br />     ' 源码没有测试，请测试后使用，手打的，不知道对错，<br /> <br />     .如果真 (全局_工作状态 ＝ 真)<br />         跳出循环 ()<br />     .如果真结束<br />     系统_处理事件 ()<br /> <br /> <br /> .判断循环尾 ()

神一样的程序猿

我回复的怎么不显示？

神一样的程序猿

下边源码纯手打，未测试，只提供思路，应该只需要精易模块就可以了。只是提供一下多线程思路

  

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

全局_工作状态 ＝ 真
计次循环首 (10, )  ' 开几条线程就循环几次
启动线程 (&子程序_采集多线程, , )  ' 启动成功后记得关闭线程句柄，这里就不写了
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_采集多线程

变量名	类 型	静态	数组	备 注
局部_采集索引	整数型
局部_Url	文本型
局部_网页返回	文本型
局_正则	正则表达式类
局_计次	整数型
局部_表项索引	整数型

判断循环首 (全局_工作状态)  ' 点击开始按钮后直接赋值为真，设置全局变量’
进入许可区 ()
局部_采集索引 ＝ 全局_采集索引
全局_采集索引 ＝ 全局_采集索引 ＋ 1
如果真 (全局_采集索引 ＞ 2000)  ' 这里的2000就是翻页2000页
跳出循环 ()
退出许可区 ()
局部_Url ＝ “http://www.ainicr.cn/qh/” ＋ 局部_采集索引 ＋ “.html”
局部_网页返回 ＝ 网页_访问S (局部_Url)
局_正则.创建 ( #正则, 局部_网页返回, , , 真, )  ' 这可以判断下是否成功
计次循环首 (局_正则.取匹配数量 (), 局_计次)
进入许可区 ()
局部_表项索引 ＝ 超级列表框.插入表项 (, , , , , )
退出许可区 ()
超级列表框.置标题 (局部_表项索引, 0, 到文本 (局部_表项索引 ＋ 1))
超级列表框.置标题 (局部_表项索引, 1, 局_正则.取子匹配文本 (局_计次, 1))
计次循环尾 ()
' 源码没有测试，请测试后使用，手打的，不知道对错，
如果真 (全局_工作状态 ＝ 真)
跳出循环 ()
系统_处理事件 ()
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .子程序 开始按钮被单击<br /> <br /> 全局_工作状态 ＝ 真<br /> .计次循环首 (10, )  ' 开几条线程就循环几次<br />     启动线程 (&子程序_采集多线程, , )  ' 启动成功后记得关闭线程句柄，这里就不写了<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序_采集多线程<br /> .局部变量 局部_采集索引, 整数型<br /> .局部变量 局部_Url, 文本型<br /> .局部变量 局部_网页返回, 文本型<br /> .局部变量 局_正则, 正则表达式类<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局部_表项索引, 整数型<br /> <br /> .判断循环首 (全局_工作状态)  ' 点击开始按钮后直接赋值为真，设置全局变量’<br />     进入许可区 ()<br />     局部_采集索引 ＝ 全局_采集索引<br />     全局_采集索引 ＝ 全局_采集索引 ＋ 1<br />     .如果真 (全局_采集索引 ＞ 2000)  ' 这里的2000就是翻页2000页<br />         跳出循环 ()<br />     .如果真结束<br />     退出许可区 ()<br /> <br />     局部_Url ＝ “http://www.ainicr.cn/qh/” ＋ 局部_采集索引 ＋ “.html”<br />     局部_网页返回 ＝ 网页_访问S (局部_Url)<br /> <br />     局_正则.创建 (#正则, 局部_网页返回, , , 真, )  ' 这可以判断下是否成功<br />     .计次循环首 (局_正则.取匹配数量 (), 局_计次)<br />         进入许可区 ()<br />         局部_表项索引 ＝ 超级列表框.插入表项 (, , , , , )<br />         退出许可区 ()<br /> <br />         超级列表框.置标题 (局部_表项索引, 0, 到文本 (局部_表项索引 ＋ 1))<br />         超级列表框.置标题 (局部_表项索引, 1, 局_正则.取子匹配文本 (局_计次, 1))<br />     .计次循环尾 ()<br /> <br />     ' 源码没有测试，请测试后使用，手打的，不知道对错，<br /> <br />     .如果真 (全局_工作状态 ＝ 真)<br />         跳出循环 ()<br />     .如果真结束<br />     系统_处理事件 ()<br /> <br /> <br /> .判断循环尾 ()

刘亦菲冲天

谢谢分享，学习一下。

uuuc

感谢分享，支持开源

外星星人

默默支持。。。

3382803166

支持开源~！感谢分享

初恋哇

lifeqiuzhi5201 发表于 2020-4-20 23:40
你用线程池来做，这个不用频繁的创建线程

大哥还在的话给看下