如何在记次循环首上加上多线程啊

ldj777

创建目录 (“d:\777”)
.计次循环首 (超级列表框1.取表项数 (), i)
    m1 ＝ HTTP读文件 (“https://gmap.bocsys.cn/gormp/dat ... YPE=&ID_NUMBER=” ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “&CUSNAM=&MOBILE_NO=&BOC_EMPLOYEE_FLAG=&CUSTOMER_STATUS=&CREATE_DT=”)
    m2 ＝ m2 ＋ m1
.计次循环尾 ()
.判断开始 (取字节集长度 (读入文件 (“d:\777\批量.csv”)) ＝ 0)
    写到文件 (“d:\777\批量.csv”, m2)


.默认
    m2= 到字节集 (#换行符)+m2
    写到文件 (“d:\777\批量.csv”, m2)
.判断结束



信息框 (“下载完毕”, 48, )
调试输出 (超级列表框1.取表项数 ())

MY寂寞的夜

线程运用.rar (4.13 KB, 下载次数: 20)

2014-11-4 12:39 上传

点击文件名下载附件 学学 这个

MY寂寞的夜

计次循环首 怎么加线程？

你只能
计次循环首  启动线程 去 控制 访问网页  和 保存内容

MY寂寞的夜

MY寂寞的夜 发表于 2014-11-4 12:25
计次循环首 怎么加线程？

你只能

不会玩线程 就好不要  不要玩
会崩溃

浪子小刀

是想同时访问超级列表框的地址吧
看看这个例子，自己改造一下
http://bbs.125.la/thread-13653338-1-1.html

ldj777

这是整个程序，看看多线程应该在看哪里加？、
.版本 2
.支持库 internet
.支持库 iext
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 temp, 字节集


创建目录 (“d:\777”)

temp ＝ HTTP读文件 (“https://gmap.bocsys.cn/gormp/dat ... YPE=&ID_NUMBER=” ＋ 编辑框1_id.内容 ＋ “&CUSNAM=&MOBILE_NO=&BOC_EMPLOYEE_FLAG=&CUSTOMER_STATUS=&CREATE_DT=”)

写到文件 (“d:\777\789.csv”, temp)
信息框 (“下载完毕”, 0, )


.子程序 _按钮2_被单击
.局部变量 导入文本, 文本型
.局部变量 n, 整数型
.局部变量 处理文本, 文本型, , "0"
.局部变量 索引, 整数型


.如果真 (通用对话框1.打开 () ＝ 真)
    导入文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
    处理文本 ＝ 分割文本 (导入文本, #换行符, )

.如果真结束
.计次循环首 (取数组成员数 (处理文本), n)
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 处理文本 [n])
.计次循环尾 ()

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



创建目录 (“d:\777”)

.计次循环首 (超级列表框1.取表项数 (), i)

    m1 ＝ HTTP读文件 (“https://gmap.bocsys.cn/gormp/dat ... YPE=&ID_NUMBER=” ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “&CUSNAM=&MOBILE_NO=&BOC_EMPLOYEE_FLAG=&CUSTOMER_STATUS=&CREATE_DT=”)
    m2 ＝ m2 ＋ m1
.计次循环尾 ()

.判断开始 (取字节集长度 (读入文件 (“d:\777\批量.csv”)) ＝ 0)
    写到文件 (“d:\777\批量.csv”, m2)
.默认
    m2 ＝ 到字节集 (#换行符) ＋ m2
.判断结束

写到文件 (“d:\777\批量.csv”, m2)
信息框 (“下载完毕”, 48, )
调试输出 (超级列表框1.取表项数 ())