|
楼主 |
发表于 2015-9-11 16:15:32
|
显示全部楼层
内蒙古自治区赤峰市
.版本 2
.支持库 spec
.支持库 iext
.子程序 获取, , , 在线视频获取“http://www.99ybyb.com/html/part/82.html”
.局部变量 获取列表, 文本型
.局部变量 地址, 文本型
.局部变量 计次, 整数型
.局部变量 索引, 整数型
.局部变量 正则, 正则表达式类
.局部变量 页数文本, 文本型
.局部变量 页, 整数型
地址 = “http://www.55ggxx.com/html/part/82.html”
获取列表 = 编码_URL解码 (到文本 (网页_访问 (地址)))
正则.创建 (#常量3, 获取列表)
页数文本 = 正则.取子匹配文本 (正则.取匹配数量 (), 1)
调试输出 (页数文本)
正则.创建 (#常量1, 获取列表)
.计次循环首 (正则.取匹配数量 (), 计次)
索引 = 列表窗口.超级列表框1.插入表项 (, , , , , )
列表窗口.超级列表框1.置标题 (索引, 0, 编码_URL解码 (正则.取子匹配文本 (计次, 3)))
列表窗口.超级列表框1.置标题 (索引, 1, 编码_URL解码 (正则.取子匹配文本 (计次, 2)))
列表窗口.超级列表框1.置标题 (索引, 2, “http://www.55ggxx.com” + 正则.取子匹配文本 (计次, 1))
.计次循环尾 ()
.计次循环首 (到整数 (页数文本) - 1, 页)
地址 = “http://www.55ggxx.com/html/part/82” + “_” + 到文本 (页 + 1) + “.html”
获取列表 = 编码_URL解码 (到文本 (网页_访问 (地址)))
正则.创建 (#常量1, 获取列表)
调试输出 (正则.取匹配数量 ())
.计次循环首 (正则.取匹配数量 (), 计次)
索引 = 列表窗口.超级列表框1.插入表项 (, , , , , )
列表窗口.超级列表框1.置标题 (索引, 0, 编码_URL解码 (正则.取子匹配文本 (计次, 3)))
列表窗口.超级列表框1.置标题 (索引, 1, 编码_URL解码 (正则.取子匹配文本 (计次, 2)))
列表窗口.超级列表框1.置标题 (索引, 2, “http://www.55ggxx.com” + 正则.取子匹配文本 (计次, 1))
.计次循环尾 ()
.计次循环尾 ()
' 透明标签2.标题 = “播放列表[双击播放]--[” + 到文本 (超级列表框EX1.取总项目数 ()) + “]”
' 获取列表.可视 = 假
|
|