多线程post且导入超级列表框问题

一生坚守 · 发表于 2014-5-9 21:56:32

超级列表框获取数据小了30%左右，应该怎样修改。

子程序名	返回值类型	公开	备注
取附近用户信息
参数名	类型	参考	可空	数组	备注
计次1	整数型

变量名	类型	静态	数组	备注
返回文本	文本型
文本	文本型		0

..局部变量计次, 整数型

变量名	类型	静态	数组	备注
超级列表框表项数	整数型

返回文本＝编码_usc2到ansi (到文本 (网页_访问 (“http://s.ablued.cn/users?sort_by=distance&longitude=118.688858&latitude=32.150276&filters=%7B%7D&start=” ＋到文本 (100 × 计次1) ＋ “&limit=100”, 0, , , , Authorization)))
返回文本＝文本_取出中间文本 (返回文本, “[”, “]”)
文本_取中间_批量 (返回文本, “{”, “}”, 文本)
进入许可区 (许可证1)
超级列表框表项数＝超级列表框1.取表项数 ()

计次循环首 (取数组成员数 (文本), 计次2)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框表项数＋计次2 － 1, 0, 到文本 (超级列表框表项数＋计次2))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 1, 文本_取出中间文本 (文本 [计次], “uid” ＋ #引号＋ “:”, “,”))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 2, 文本_取出中间文本 (文本 [计次], “name” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,”))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 3, 文本_取出中间文本 (文本 [计次], “age” ＋ #引号＋ “:”, “,”))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 4, 文本_取出中间文本 (文本 [计次], “height” ＋ #引号＋ “:”, “,”))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 5, 文本_取出中间文本 (文本 [计次], “weight” ＋ #引号＋ “:”, “,”))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 6, 文本_取出中间文本 (文本 [计次], “distance” ＋ #引号＋ “:”, “,”))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 7, 文本_取出中间文本 (文本 [计次], “hot” ＋ #引号＋ “:”, “,”))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 8, 文本_取出中间文本 (文本 [计次], “description” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号 ))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 9, 文本_取出中间文本 (文本 [计次], “city_settled” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,”))
超级列表框1.置标题 (超级列表框表项数＋计次－ 1, 10, 文本_取出中间文本 (文本 [计次], “role” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,”))

计次循环尾 ()
退出许可区 (许可证1)

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

变量名	类型	静态	数组	备注
计次1	整数型
j	整数型

如果真 (单选框_时间.选中 ≠ 真且单选框_附近.选中 ≠ 真)
信息框 (“请勾选单选框”, 0, )

如果真 (编辑框1.内容＝ “” 或编辑框2.内容＝ “”)
信息框 (“请填写编辑框”, 0, )

超级列表框1.全部删除 ()
许可证1 ＝创建进入许可证 ()

计次循环首 (到整数 (编辑框2.内容) －到整数 (编辑框1.内容) ＋ 1, 计次1)
启动线程 (&取附近用户信息, 计次1, j)

计次循环尾 ()

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

.版本 2<br />
.支持库 EThread<br />
.支持库 iext<br />
<br />
.子程序 取附近用户信息<br />
.参数 计次1, 整数型<br />
.局部变量 返回文本, 文本型<br />
.局部变量 文本, 文本型, , "0"<br />
..局部变量 计次, 整数型<br />
.局部变量 超级列表框表项数, 整数型<br />
<br />
<br />
<br />
返回文本 ＝ 编码_usc2到ansi (到文本 (网页_访问 (“http://s.ablued.cn/users?sort_by=distance&longitude=118.688858&latitude=32.150276&filters=%7B%7D&start=” ＋ 到文本 (100 × 计次1) ＋ “&limit=100”, 0, , , , Authorization)))<br />
<br />
返回文本 ＝ 文本_取出中间文本 (返回文本, “[”, “]”)<br />
文本_取中间_批量 (返回文本, “{”, “}”, 文本)<br />
<br />
<br />
进入许可区 (许可证1)<br />
超级列表框表项数 ＝ 超级列表框1.取表项数 ()<br />
.计次循环首 (取数组成员数 (文本), 计次2)<br />
超级列表框1.插入表项 (, , , , , )<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次2 － 1, 0, 到文本 (超级列表框表项数 ＋ 计次2))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 1, 文本_取出中间文本 (文本 [计次], “uid” ＋ #引号 ＋ “:”, “,”))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 2, 文本_取出中间文本 (文本 [计次], “name” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 3, 文本_取出中间文本 (文本 [计次], “age” ＋ #引号 ＋ “:”, “,”))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 4, 文本_取出中间文本 (文本 [计次], “height” ＋ #引号 ＋ “:”, “,”))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 5, 文本_取出中间文本 (文本 [计次], “weight” ＋ #引号 ＋ “:”, “,”))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 6, 文本_取出中间文本 (文本 [计次], “distance” ＋ #引号 ＋ “:”, “,”))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 7, 文本_取出中间文本 (文本 [计次], “hot” ＋ #引号 ＋ “:”, “,”))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 8, 文本_取出中间文本 (文本 [计次], “description” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 9, 文本_取出中间文本 (文本 [计次], “city_settled” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”))<br />
超级列表框1.置标题 (超级列表框表项数 ＋ 计次 － 1, 10, 文本_取出中间文本 (文本 [计次], “role” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”))<br />
<br />
.计次循环尾 ()<br />
<br />
退出许可区 (许可证1)<br />
<br />
<br />
<br />
.子程序 _按钮_采集_被单击<br />
.局部变量 计次1, 整数型<br />
.局部变量 j, 整数型<br />
<br />
.如果真 (单选框_时间.选中 ≠ 真 且 单选框_附近.选中 ≠ 真)<br />
<br />
信息框 (“请勾选单选框”, 0, )<br />
.如果真结束<br />
.如果真 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)<br />
信息框 (“请填写编辑框”, 0, )<br />
<br />
.如果真结束<br />
<br />
超级列表框1.全部删除 ()<br />
<br />
许可证1 ＝ 创建进入许可证 ()<br />
<br />
.计次循环首 (到整数 (编辑框2.内容) － 到整数 (编辑框1.内容) ＋ 1, 计次1)<br />
<br />
启动线程 (&取附近用户信息, 计次1, j)<br />
<br />
.计次循环尾 ()

补充内容 (2014-5-10 11:53):
进入许可区网页访问前打不到多线程效果放在网页访问后返回文本一直变造成返回数据丢失