开服网采集易语言源码

开服网采集易语言源码

@peid王思聪

.版本 2
.支持库 iext
.支持库 spec

.子程序 _按钮4_被单击
.局部变量 返回数据, 文本型
.局部变量 正则, 正则表达式类
.局部变量 数据, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 i, 整数型
.局部变量 表项, 整数型

超级列表框1.全部删除 ()

返回数据 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“http://kf.kaifu.com/web-2019-04-14.html”)))
调试输出 (返回数据)

正则.创建 (#常量2, 返回数据, 假, 真, 真, 真)

数据 ＝ 正则.取匹配数量 ()

.计次循环首 (数据, i)
    表项 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (表项, 0, 到文本 (表项 ＋ 1))
    超级列表框1.置标题 (表项, 1, 正则.取子匹配文本 (i, 1))
    超级列表框1.置标题 (表项, 2, 正则.取子匹配文本 (i, 2))
    超级列表框1.置标题 (表项, 3, 正则.取子匹配文本 (i, 3))
    超级列表框1.置标题 (表项, 4, 正则.取子匹配文本 (i, 4))
    超级列表框1.置标题 (表项, 5, 正则.取子匹配文本 (i, 5))
    超级列表框1.置标题 (表项, 6, 正则.取子匹配文本 (i, 6))
    超级列表框1.置标题 (表项, 7, 正则.取子匹配文本 (i, 7))
.计次循环尾 ()