线程池文本取出居然有一段空白

南风窗

线程池文本取出居然有一段空白……
第一次导入，地区完全显示；第二次导入用线程池cha询，地区不能够完全显示，有一段空白。请易友看看是哪里的问题并帮助处理。感谢感谢！！




补充内容 (2018-10-13 18:08):
这个是错误的，7楼才是真正目标。

ljaihong

列子来了，收好！

两只老虎

论坛炸了，附件下载不了。直接发代码吧

南风窗

两只老虎 发表于 2018-10-13 14:48
论坛炸了，附件下载不了。直接发代码吧

？，可以下载啊。论坛没问题

两只老虎

还用了特殊支持库，没你支持库没办法帮你了，最好贴代码吧

南风窗

.版本 2
.支持库 iext
.支持库 lanyuku
.支持库 spec
.支持库 EThread
.支持库 ethreadnew

.程序集 窗口程序集_启动窗口
.程序集变量 线程数, 整数型
.程序集变量 线程句柄, 整数型

.子程序 _按钮1_被单击

线程_启动 (&子程序1)

.子程序 子程序1
.局部变量 文本组, 文本型, , "0"
.局部变量 i, 整数型

文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (文本组), i)
    超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (i － 1, 0, 到文本 (i))
    超级列表框1.置标题 (i － 1, 1, 文本组 [i])
.计次循环尾 ()

.子程序 _超级列表框1_当前表项被改变
.局部变量 数据, 文本型

超级列表框1.获取焦点 ()
数据 ＝ 文本_取出中间文本 (网页_访问S (“http://www.ip138.com/ips1388.asp?ip=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “&action=2”), “本站数据：”, “</li><li>”)
超级列表框1.置标题 (超级列表框1.现行选中项, 4, 数据)

.子程序 _按钮2_被单击
.局部变量 计次, 整数型
.局部变量 数据, 文本型

.计次循环首 (超级列表框1.取表项数 (), 计次)
    数据 ＝ 文本_取出中间文本 (网页_访问S (“http://www.ip138.com/ips1388.asp?ip=” ＋ 超级列表框1.取标题 (计次 － 1, 1) ＋ “&action=2”), “本站数据：”, “</li><li>”, , )
    超级列表框1.置标题 (计次 － 1, 4, 数据)
.计次循环尾 ()

.子程序 启动线程_文本, 逻辑型
.参数 子程序指针, 子程序指针
.参数 传递文本, 文本型, 可空
.参数 线程句柄, 整数型, 可空
.局部变量 内存指针, 整数型
.局部变量 返回值, 逻辑型

内存指针 ＝ 申请内存 (取字节集长度 (到字节集 (传递文本)), 真)
写到内存 (传递文本, 内存指针, )
返回值 ＝ 启动线程 (子程序指针, 内存指针, 线程句柄)
延迟 (100)
释放内存 (内存指针)
返回 (返回值)

.子程序 __启动窗口_创建完毕

线程_置CPU (-1, 1)
' 线程池.启动 (20, &IP查询线程, )
线程句柄 ＝ 创建线程池 (5, 50, &IP查询线程, 10000, 1048576)

.子程序 IP查询线程
.参数 参数, 整数型
.局部变量 许可证号, 线程许可证
.局部变量 ip, 文本型
.局部变量 用户名, 文本型
.局部变量 国家, 文本型

许可证号 ＝ 线程_创建许可证 ()
线程_进入许可区 (许可证号)
线程_初始化COM库 ()
移到文件首 (参数)
读入数据 (参数, ip)
关闭文件 (参数)
用户名 ＝ 文本_取出中间文本 (网页_访问S (“http://” ＋ ip ＋ “:81/%5ccgi-bin/get_params.cgi”), “var ntp_svr=” ＋ #引号, #引号 ＋ “;”, , )
置用户名 (ip, 用户名)
国家 ＝ 文本_取出中间文本 (网页_访问S (“http://www.ip138.com/ips1388.asp?ip=” ＋ ip ＋ “&action=2”), “本站数据：”, “</li><li>”, , )
置国家 (ip, 国家)
线程_取消COM库 ()
线程_退出许可区 (许可证号)
线程_删除许可证 (许可证号)

.子程序 置用户名
.参数 ip, 文本型
.参数 用户名, 文本型
.局部变量 表项, 整数型

表项 ＝ 超级列表框1.查找表项 (ip, , , 1)
.如果真 (表项 ≠ -1)
    超级列表框1.置标题 (表项, 2, 用户名)
.如果真结束


.子程序 置国家
.参数 ip, 文本型
.参数 国家, 文本型
.局部变量 表项, 整数型

表项 ＝ 超级列表框1.查找表项 (ip, , , 1)
.如果真 (表项 ≠ -1)
    超级列表框1.置标题 (表项, 3, 国家)
.如果真结束


.子程序 加入线程
.参数 ip, 文本型
.局部变量 参数数据, 整数型

参数数据 ＝ 打开内存文件 ()
写出数据 (参数数据, ip)
加入工作 (线程句柄, 参数数据)


.子程序 _按钮3_被单击
.局部变量 i, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)
    ' 调试输出 (超级列表框1.取标题 (i － 1, 1))
    加入线程 (超级列表框1.取标题 (i － 1, 1))
    处理事件 ()
.计次循环尾 ()

jr21066

没仔细看代码.只是说个小建议.

只要是后边计算依赖于前边结果的.而且前边结果是有可能发生变化的.都应该加入判断
比如网页访问是有可能失败的.要先判断一下是否访问成功再继续下一步操作.

南风窗

汗，1楼是错误的，这个才对。

呵呵仙

没有支持库!!无法调试!!应该是你的启动线程_文本()有问题.建议直接传递局部变量,可用这个试试!
https://bbs.125.la/forum.php?mod=viewthread&tid=14200968&extra=

补充内容 (2018-10-13 22:03):
不好意思,表错情!!你好像没用到这个子程序!!^_^