老学长们 帮我看看这个多线程哪里出错了 求求了

68781979

老学长们 帮我看看这个多线程哪里出错了为啥活动线程数100  速度还是这么慢

求求了！

  

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

线程_启动 (&获取货源商品, , )

子程序名	返回值类型	公开	备 注
获取货源商品

变量名	类 型	静态	数组	备 注
刷新货源商品地址	文本型
总数量	整数型
货源商品表达	正则表达式类

总数量 ＝ 50
运行线程数 ＝ 0
刷新货源商品地址 ＝ “***************x_shop.php?act=getGoodsList ”
获取货源商品数据 ＝ 编码_usc2到ansi (到文本 (网页_访问 (刷新货源商品地址, 1, “shequ=” ＋ 到文本 (组合框4.取项目数值 (组合框4.现行选中项)), fhck, 返回cook, , , , , , , , )))
' 编辑框1.加入文本 (获取货源商品数据)
程序_延时 (500, )
如果 (获取货源商品数据 ≠ “”)
货源商品表达.创建 ( #获取货源商品表达式, 获取货源商品数据, , , , )
货源站商品数量 ＝ 货源商品表达.取匹配数量 ()




调试输出 (货源站商品数量)
' 货源商品表达.取匹配数量 ()
变量循环首 (1, 到整数 (货源站商品数量), 1, 循环变量)
线程_启动 (&启动获取货源商品, 循环变量, )
进入许可区 (许可证)
运行线程数 ＝ 运行线程数 ＋ 1
' 程序_延时 (100, )
退出许可区 (许可证)
判断循环首 (运行线程数 ≥ 总数量)
程序_延时 (100, )
判断循环尾 ()
变量循环尾 ()
判断循环首 (运行线程数 ＞ 0)
程序_延时 (200, )
调试输出 (“mmmmmmmmmm”)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
启动获取货源商品

变量名	类 型	静态	数组	备 注
商品表达	正则表达式类
i	整数型
刷新货源商品地址	文本型
刷新详细商品地址	文本型
详细表达	正则表达式类
获取详细商品数据	文本型
详细表达1	正则表达式类
详细表达2	正则表达式类
商品介绍	文本型

商品表达.创建 ( #获取货源商品表达式, 获取货源商品数据, , , , )
进入许可区 (许可证1)
i ＝ 超级列表框3.插入表项 (, , , , , )
刷新详细商品地址 ＝ “*****************.php?act=getGoodsParam ”
获取详细商品数据 ＝ 编码_usc2到ansi (到文本 (网页_访问 (刷新详细商品地址, 1, “shequ=” ＋ 到文本 (组合框4.取项目数值 (组合框4.现行选中项)) ＋ “&goodsid=” ＋ 商品表达.取子匹配文本 (i ＋ 1, 1, ), fhck, 返回cook, , , , , , , , )))
详细表达.创建 ( #获取详细商品表达式, 获取详细商品数据, , , , )
详细表达1.创建 ( #获取详细商品表达式1, 获取详细商品数据, , , , )
详细表达2.创建 ( #获取详细商品表达式2, 获取详细商品数据, , , , )
超级列表框3.置标题 (i, 4, 详细表达.取子匹配文本 (1, 5, ))
超级列表框3.置标题 (i, 5, 详细表达.取子匹配文本 (1, 6, ))
超级列表框3.置标题 (i, 2, 详细表达1.取子匹配文本 (1, 1, ))
超级列表框3.置标题 (i, 6, 详细表达1.取子匹配文本 (1, 2, ))
超级列表框3.置标题 (i, 7, 详细表达1.取子匹配文本 (1, 3, ))
超级列表框3.置标题 (i, 8, 详细表达2.取子匹配文本 (1, 1, ))
超级列表框3.置标题 (i, 0, 到文本 (i ＋ 1))
超级列表框3.置标题 (i, 1, 商品表达.取子匹配文本 (i ＋ 1, 2, ))
超级列表框3.置标题 (i, 3, 商品表达.取子匹配文本 (i ＋ 1, 1, ))
超级列表框3.保证显示 (i)
退出许可区 (许可证1)
进入许可区 (许可证)
运行线程数 ＝ 运行线程数 － 1
退出许可区 (许可证)

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .子程序 _按钮10_被单击<br /> <br /> 线程_启动 (&获取货源商品, , )<br /> <br /> <br /> <br /> .子程序 获取货源商品<br /> .局部变量 刷新货源商品地址, 文本型<br /> .局部变量 总数量, 整数型<br /> .局部变量 货源商品表达, 正则表达式类<br /> <br /> 总数量 ＝ 50<br /> 运行线程数 ＝ 0<br /> <br /> 刷新货源商品地址 ＝ “***************x_shop.php?act=getGoodsList ”<br /> <br /> <br /> 获取货源商品数据 ＝ 编码_usc2到ansi (到文本 (网页_访问 (刷新货源商品地址, 1, “shequ=” ＋ 到文本 (组合框4.取项目数值 (组合框4.现行选中项)), fhck, 返回cook, , , , , , , , )))<br /> ' 编辑框1.加入文本 (获取货源商品数据)<br /> 程序_延时 (500, )<br /> .如果 (获取货源商品数据 ≠ “”)<br /> <br />     货源商品表达.创建 (#获取货源商品表达式, 获取货源商品数据, , , , )<br />     货源站商品数量 ＝ 货源商品表达.取匹配数量 ()<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> 调试输出 (货源站商品数量)<br /> ' 货源商品表达.取匹配数量 ()<br /> .变量循环首 (1, 到整数 (货源站商品数量), 1, 循环变量)<br /> <br />     线程_启动 (&启动获取货源商品, 循环变量, )<br /> <br />     进入许可区 (许可证)<br />     运行线程数 ＝ 运行线程数 ＋ 1<br />     ' 程序_延时 (100, )<br />     退出许可区 (许可证)<br />     .判断循环首 (运行线程数 ≥ 总数量)<br /> <br />         程序_延时 (100, )<br /> <br /> <br />     .判断循环尾 ()<br /> <br /> .变量循环尾 ()<br /> .判断循环首 (运行线程数 ＞ 0)<br />     程序_延时 (200, )<br />     调试输出 (“mmmmmmmmmm”)<br /> .判断循环尾 ()<br /> <br /> <br /> <br /> .子程序 启动获取货源商品<br /> .局部变量 商品表达, 正则表达式类<br /> .局部变量 i, 整数型<br /> .局部变量 刷新货源商品地址, 文本型<br /> .局部变量 刷新详细商品地址, 文本型<br /> .局部变量 详细表达, 正则表达式类<br /> .局部变量 获取详细商品数据, 文本型<br /> .局部变量 详细表达1, 正则表达式类<br /> .局部变量 详细表达2, 正则表达式类<br /> .局部变量 商品介绍, 文本型<br /> <br /> <br /> 商品表达.创建 (#获取货源商品表达式, 获取货源商品数据, , , , )<br /> 进入许可区 (许可证1)<br /> i ＝ 超级列表框3.插入表项 (, , , , , )<br /> <br /> 刷新详细商品地址 ＝ “*****************.php?act=getGoodsParam ”<br /> <br /> 获取详细商品数据 ＝ 编码_usc2到ansi (到文本 (网页_访问 (刷新详细商品地址, 1, “shequ=” ＋ 到文本 (组合框4.取项目数值 (组合框4.现行选中项)) ＋ “&goodsid=” ＋ 商品表达.取子匹配文本 (i ＋ 1, 1, ), fhck, 返回cook, , , , , , , , )))<br /> <br /> 详细表达.创建 (#获取详细商品表达式, 获取详细商品数据, , , , )<br /> 详细表达1.创建 (#获取详细商品表达式1, 获取详细商品数据, , , , )<br /> 详细表达2.创建 (#获取详细商品表达式2, 获取详细商品数据, , , , )<br /> <br /> 超级列表框3.置标题 (i, 4, 详细表达.取子匹配文本 (1, 5, ))<br /> 超级列表框3.置标题 (i, 5, 详细表达.取子匹配文本 (1, 6, ))<br /> 超级列表框3.置标题 (i, 2, 详细表达1.取子匹配文本 (1, 1, ))<br /> 超级列表框3.置标题 (i, 6, 详细表达1.取子匹配文本 (1, 2, ))<br /> 超级列表框3.置标题 (i, 7, 详细表达1.取子匹配文本 (1, 3, ))<br /> 超级列表框3.置标题 (i, 8, 详细表达2.取子匹配文本 (1, 1, ))<br /> 超级列表框3.置标题 (i, 0, 到文本 (i ＋ 1))<br /> 超级列表框3.置标题 (i, 1, 商品表达.取子匹配文本 (i ＋ 1, 2, ))<br /> 超级列表框3.置标题 (i, 3, 商品表达.取子匹配文本 (i ＋ 1, 1, ))<br /> 超级列表框3.保证显示 (i)<br /> 退出许可区 (许可证1)<br /> <br /> 进入许可区 (许可证)<br /> 运行线程数 ＝ 运行线程数 － 1<br /> 退出许可区 (许可证)

正鑫软件开发

启动获取货源商品         这个子程序里
进入许可区 (许可证1)
i ＝ 超级列表框3.插入表项 (, , , , , )
退出许可区(许可证1)
意思就是 只有这个插入表项需要进入许可证
剩下的就不需要了
超级列表框 只要指定索引,就直接读写了,就不用再进许可证了

DF-Sky

你这个多线程 和单线程 没啥区别
整个线程方法 都被锁了

七彩色工作室

[HTML] 纯文本查看 复制代码

进入许可区 (许可证1)
i ＝ 超级列表框3.插入表项 (, , , , , )
退出许可区(许可证1)

创建行之后就退出许可证，可以让程序稍微快一些；
另外就是超级列表框可以考虑禁止重画，不允许刷新显示，等更新到一定数量的时候在刷新显示