M1905播放器易语言源码
.版本 2
.支持库 iext
.子程序 采集数据
.局部变量 正则, 正则对象类
.局部变量 搜索文本, 文本型
.局部变量 搜索结果, 整数型
.局部变量 I, 整数型
.局部变量 表项, 整数型
.局部变量 T, 整数型
.计次循环首 (263, T)
搜索文本 = UTF8转ANSI (访问网页 (“http://www.m1905.com/vod/list/n_1/o1u1p” + 当前页 + “.html”))
正则.创建 (#列表常量)
搜索结果 = 正则.搜索全部 (搜索文本)
.计次循环首 (正则.取搜索数目 (), I)
表项 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, 删首尾空 (正则.取子匹配文本 (I, 2)))
超级列表框1.置标题 (表项, 1, 删首尾空 (正则.取子匹配文本 (I, 1)))
_启动窗口.标题 = “M1905播放器 已经载入:” + 到文本 (超级列表框1.取表项数 ())
.计次循环尾 ()
当前页 = 到文本 (T + 1)
.计次循环尾 ()