如何将这个改成多线程呢？

╰洛克王国攻略

如何将这个改成多线程呢？

.版本 2

.子程序 dudz
.局部变量 文本数组, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 wb, 文本型
.局部变量 a1, 文本型
.局部变量 pan, 文本型

文本数组 ＝ 分割文本 (编辑框13.内容, #换行符, )
.如果真 (取数组成员数 (文本数组) ＞ 0)
    .计次循环首 (取数组成员数 (文本数组), n)
        a1 ＝ 到文本 (文本数组 [n])
        pan ＝ 网页_访问S (a1, 1)
        .如果真 (寻找文本 (pan, “不存在”, , 假) ＝ -1)
            a2 ＝ 文本_取出中间文本 (pan, “<title>”, “_免费高速下载”)
            a2 ＝ 子文本替换 (a2, “[”, “”, , , 真)
            a2 ＝ 子文本替换 (a2, “]”, “”, , , 真)
            a2 ＝ 去html代码子程序 (a2, “.*?.com”)
            编辑框14.加入文本 (a2 ＋ “$$” ＋ 文本数组 [n] ＋ #换行符)
        .如果真结束

        输出调试文本 (n)
    .计次循环尾 ()

.如果真结束




补充内容 (2018-5-23 23:00):
编辑框里面都是一些网址，一行一个

锋大大大

lhpkk1

把文本数组设为程序集变量.
许可证设为程序集变量.整数型（加入许可证是为了保证编辑框14加入文本的顺序是按编辑框13的顺序填入的）
没测试，自己试下



版本 2
.支持库 EThread

.子程序 多线程
.局部变量 n, 整数型
.局部变量 线程句柄, 整数型, , "0"
.局部变量 文本数组, 文本型, , "0"

局部变量 文本数组, 文本型, , "0"
文本数组 ＝ 分割文本 (编辑框13.内容, #换行符, )
许可证 ＝ 创建进入许可证 ()
.如果 (取数组成员数 (文本数组) ＞ 0)
    .计次循环首 (取数组成员数 (文本数组), n)
        进入许可区 (许可证)
        启动线程 (&子程序, n, 线程句柄 [n])
        退出许可区 (许可证)
    .计次循环尾 ()
    信息框 (“已完成解析”, 0, , )
.否则
    信息框 (“编辑框13是空的”, 0, , )
.如果结束
删除进入许可证 (许可证)

.子程序 子程序
.参数 n
.局部变量 wb, 文本型
.局部变量 a1, 文本型
.局部变量 pan, 文本型

局部变量 n, 整数型
a1 ＝ 到文本 (文本数组 [n])
pan ＝ 网页_访问S (a1, 1)
.如果真 (寻找文本 (pan, “不存在”, , 假) ＝ -1)
    a2 ＝ 文本_取出中间文本 (pan, “<title>”, “_免费高速下载”)
    a2 ＝ 子文本替换 (a2, “[”, “”, , , 真)
    a2 ＝ 子文本替换 (a2, “]”, “”, , , 真)
    a2 ＝ 去html代码子程序 (a2, “.*?.com”)
    编辑框14.加入文本 (a2 ＋ “$$” ＋ 文本数组 [n] ＋ #换行符)
.如果真结束

钟情

用线程池            

╰洛克王国攻略

锋大大大 发表于 2018-5-23 23:23

您的例子不错，但是输出的是没有按顺序的，全是乱序输出的？
请问要怎么改呢？

╰洛克王国攻略

lhpkk1 发表于 2018-5-23 23:28
把文本数组设为程序集变量.
许可证设为程序集变量.整数型（加入许可证是为了保证编辑框14加入文本的顺序是 ...

非常感谢您的回复，但是您这个有问题，显示 程序数组成员引用下标超出定义范围

.计次循环首 (取数组成员数 (文本数组), n)
        进入许可区 (许可证)
        启动线程 (&子程序, n, 线程句柄 [n])
        退出许可区 (许可证)
    .计次循环尾 ()

这段 的启动线程 这里！

锋大大大

╰洛克王国攻略 发表于 2018-5-24 07:50
您的例子不错，但是输出的是没有按顺序的，全是乱序输出的？
请问要怎么改呢？

加 许可证就可以，

╰洛克王国攻略

锋大大大 发表于 2018-5-24 08:23
加 许可证就可以，

怎么加呢？

锋大大大

╰洛克王国攻略 发表于 2018-5-24 09:33
怎么加呢？

许可证 ＝ 创建进入许可证 ()
.如果 (取数组成员数 (文本数组) ＞ 0)
    .计次循环首 (取数组成员数 (文本数组), n)
        进入许可区 (许可证)
        启动线程 (&子程序, n, 线程句柄 [n])
        退出许可区 (许可证)
    .计次循环尾 ()

╰洛克王国攻略

锋大大大 发表于 2018-5-24 09:40
许可证 ＝ 创建进入许可证 ()
.如果 (取数组成员数 (文本数组) ＞ 0)
    .计次循环首 (取数组成员数 ( ...

显示 程序数组成员引用下标超出定义范围