怎么把网站的TXT里面的网址添加到高级列表框

zhangsheng

比如我某一个网址的TXT有很多网址，然后把添加到高级列表框，怎么实现 在后台更新

床头小钻风

变量 节目源 为 文本型(2,100) '定义节目源文件'
事件 主窗口.创建完毕()
        多线程1.开始取网络文件("http://lfzb.3vfree.net/zhiboyuan.txt")
结束 事件

事件 多线程1.取网络文件完毕(文件 为 字节型())  '更新节目表方面是没问题了
        变量 节目信息 为 文本型 '用来装整个文本
        变量 节目数组 为 文本型()'装着分好组的整个文本
        变量 节目条目 为 文本型()'装从数组取出来的条目,分别出名字和地址
        变量 a 为 整数型 '多少条节目
        变量 b 为 整数型 '计次变量
        节目信息 = 字节到文本(文件,"UTF-8")
        节目数组= 分割文本(节目信息,"\n")
        a=取数组成员数(节目数组)
        列表框1.清空项目()
        判断循环首 a>b
                节目条目=分割文本(节目数组(b),",")
                节目源(0,b)=节目条目(0)
                节目源(1,b)=节目条目(1)
                列表框1.添加项目(b+1&"  "&节目条目(0))
                b=b+1
        判断循环尾
        利用多线程，每次运行运行会把指定信息存到全局变量里，实现更新节目表

jcstudio

很简单，多线程取TXT文本，
然后正则匹配，或循环取指定文本。

zhangsheng

jcstudio 发表于 2020-4-12 20:53
很简单，多线程取TXT文本，
然后正则匹配，或循环取指定文本。

有没有个简单的例子呢 ？

chengwei5714869

自己多看看自带例程，还有群共享很多例程，里面大多数都是取线程源码，匹配正则表达式的

jcstudio

zhangsheng 发表于 2020-4-12 21:38
有没有个简单的例子呢 ？

多线程1.开始取网页源码2("https://xxxxxxxxxxxxxxxxxxx/temq.txt","UTF-8")'TXT网络存放地址

事件 多线程1.取网页源码2完毕(源码 为 文本型)
    变量 地址  为 文本型
    变量 标题  为 文本型
    创建表达式("",真,真)'根据你网络文本内容创建表达式
    开始匹配(源码)
    判断循环首 匹配下一个()
    地址 = 取子匹配文本(1)
    标题 = 取子匹配文本(2)
    高级列表框1.添加项目("",标题,地址,"","")
    判断循环尾       
结束 事件

yudave

进来看看了解一下

wanchenfeng

如果没解决可以联系q1144605726，有偿解决