大神们，怎么用多线程循环提取四个网址的数据

wdkeete

求助大神，现在从数据库存里读出币种型号后，循环从四个网址获取不同价格参数，一条一条处理速度太慢了，怎么用多线程处理快速处理啊。
EOSUSDT
SUSHIUSDT
BALUSDT
BTTUSDT
KNCUSDT
SRMUSDT....有七十多个型号，

循环从这四个地方读取数据，网址可能打不开，要香港服务器，
https://api.huobi.pro/market/detail/merged?symbol=eosusdt
https://api.hbdm.com/linear-swap-ex/market/detail/merged?contract_code=EOS-USD
https://api.binance.com/api/v3/ticker/bookTicker?symbol=EOSUSDT
https://fapi.binance.com/fapi/v1/ticker/bookTicker?symbol=EOSUSDT

.版本 2
.支持库 eDB

.子程序 _取价格
.局部变量 正则, 正则表达式类
.局部变量 计次假, 整数型
.局部变量 symbol, 文本型
.局部变量 bid, 文本型
.局部变量 ask, 文本型

记录集1.打开 (“select * from zjf where xsno=0 order by id asc”, #SQL语句, )
记录集1.到首记录 ()
.判断循环首 (记录集1.尾记录后 ＝ 假)
    记录集1.读文本 (“tname”, 临时)
    输出调试文本 (临时)

    临时2 ＝ 子文本替换 (临时, “USDT”, “-USD”, , , 真)
    临时x ＝ 到小写 (临时)

    文本 ＝ 网页_取网页源码 (“https://api.huobi.pro/market/detail/merged?symbol=” ＋ 临时x)
    计次假 ＝ 到整数 (文本_寻找文本 (文本, “invalid”))
    .如果 (计次假 ＞ 1)
        记录集1.写文本 (“hbxb”, “”)
        记录集1.写文本 (“hbxs”, “”)

    .否则
        文本 ＝ 子文本替换 (文本, “[”, “”, , , 真)
        正则.创建 (#常量正则, 文本)
        bid ＝ 正则.取子匹配文本 (1, 1)
        ask ＝ 正则.取子匹配文本 (1, 2)
        记录集1.写文本 (“hbxb”, bid)
        记录集1.写文本 (“hbxs”, ask)
    .如果结束

    文本 ＝ 网页_取网页源码 (“https://api.hbdm.com/linear-swap-ex/market/detail/merged?contract_code=” ＋ 临时2)
    计次假 ＝ 到整数 (文本_寻找文本 (文本, “invalid”))
    .如果 (计次假 ＞ 1)
        记录集1.写文本 (“hbqb”, “”)
        记录集1.写文本 (“hbqs”, “”)

    .否则
        文本 ＝ 子文本替换 (文本, “[”, “”, , , 真)
        正则.创建 (#常量正则, 文本)
        bid ＝ 正则.取子匹配文本 (1, 1)
        ask ＝ 正则.取子匹配文本 (1, 2)
        记录集1.写文本 (“hbqb”, bid)
        记录集1.写文本 (“hbqs”, ask)

    .如果结束

    文本 ＝ 网页_取网页源码 (“https://api.binance.com/api/v3/ticker/bookTicker?symbol=” ＋ 临时)
    计次假 ＝ 到整数 (文本_寻找文本 (文本, “bidPrice”))
    .如果 (计次假 ＞ 1)
        正则.创建 (#常量正则2, 文本)
        bid ＝ 正则.取子匹配文本 (1, 1)
        ask ＝ 正则.取子匹配文本 (1, 2)
        记录集1.写文本 (“baxb”, bid)
        记录集1.写文本 (“baxs”, ask)

    .否则
        记录集1.写文本 (“baxb”, “”)
        记录集1.写文本 (“baxs”, “”)
    .如果结束

    文本 ＝ 网页_取网页源码 (“https://fapi.binance.com/fapi/v1/ticker/bookTicker?symbol=” ＋ 临时)
    计次假 ＝ 到整数 (文本_寻找文本 (文本, “bidPrice”))
    .如果 (计次假 ＞ 1)
        正则.创建 (#常量正则2, 文本)
        bid ＝ 正则.取子匹配文本 (1, 1)
        ask ＝ 正则.取子匹配文本 (1, 2)
        记录集1.写文本 (“baqb”, bid)
        记录集1.写文本 (“baqs”, ask)

    .否则
        记录集1.写文本 (“baqb”, “”)
        记录集1.写文本 (“baqs”, “”)
    .如果结束

    记录集1.到下一条 ()
.判断循环尾 ()
记录集1.更新 ()
记录集1.关闭 ()
a ＝ a ＋ 1
提示.内容 ＝ “执行完毕” ＋ 到文本 (a)

wdkeete

没人回取消