|
发表于 2017-5-14 18:44:05
|
显示全部楼层
广东省深圳市
.版本 2
.支持库 internet
.支持库 spec
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 临时表项, 整数型
.局部变量 网址, 文本型
.局部变量 正则, 正则表达式类
.局部变量 正则1, 正则表达式类
.局部变量 文章标题, 文本型
.局部变量 发布时间, 文本型
.局部变量 源码, 文本型
' 超级列表框1.全部删除 ()
' 当前 = “http://www.yijianyue.cn/forum-45-” + 编辑框1.内容 + “.html”
网址 = “http://www.yijianyue.cn/forum-45-” + 编辑框1.内容 + “.html”
源码 = 到文本 (HTTP读文件 (网址))
调试输出 (源码)
正则1.创建 (#文章标题, 源码)
正则.创建 (#发布时间, 源码)
调试输出 (正则.取匹配数量 ())
.计次循环首 (正则.取匹配数量 (), i)
临时表项 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (临时表项, 0, 正则.取子匹配文本 (i, 1) + 正则1.取子匹配文本 (i, 1))
超级列表框1.置标题 (临时表项, 1, 正则.取子匹配文本 (i, 2))
超级列表框1.置标题 (临时表项, 2, 正则.取子匹配文本 (i, 3))
超级列表框1.置标题 (临时表项, 3, “文哥娱乐网”)
.计次循环尾 ()
' 启动线程 (&发布时间, , )
|
|