实践未成功，谁能把我这个采取网页的源码补完整啊，采集一页能办到，要是一翻页的...

ldj777

    源程序放附件中了。。。。。。。


.版本 2
.支持库 internet
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 页码, 整数型
.局部变量 局_正则, 正则表达式类
.局部变量 总页数, 整数型
.局部变量 局_网页源码, 文本型

.计次循环首 (总页数, i)
    局_网页源码 ＝ 编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://www.9909950.com/forum-40-” ＋ 到文本 (页码) ＋ “.html”)))
    输出调试文本 (局_网页源码)
    正则_匹配批量 (局_网页源码)
    总页数 ＝ 局_正则.取匹配数量 (局_网页源码)
    i ＝ i ＋ 1
.计次循环尾 ()


.子程序 正则_匹配批量, 整数型, , 本子程序采用【精易编程助手】生成。成功返回匹配的数量，失败返回0。
.参数 源文本, 文本型, , 欲被匹配的文本
.局部变量 局_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：www.3600gz.cn/thread-1177-1-1.html
.局部变量 局_匹配数, 整数型
.局部变量 局_刚插入的位置, 整数型
.局部变量 局_文本, 文本型
.局部变量 局_计次, 整数型
.如果真 (局_正则.创建 (#常_匹配的文本, 源文本, 假, 假, 真, 真) ＝ 假)
    信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, )
    返回 (0)
.如果真结束
局_匹配数 ＝ 局_正则.取匹配数量 ()
.如果真 (局_匹配数 ＝ 0)
    信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, )
    返回 (0)
.如果真结束
.计次循环首 (局_匹配数, 局_计次)
    局_刚插入的位置 ＝ 超级列表框1.插入表项 (, 局_正则.取子匹配文本 (局_计次, 2), , , , )
    局_文本 ＝ 局_正则.取子匹配文本 (局_计次, 1)
    局_文本 ＝ 取文本左边 (局_文本, 寻找文本 (局_文本, “html”, , 假) ＋ 3)
    超级列表框1.置标题 (局_刚插入的位置, 1, 局_文本)
    输出调试文本 (“匹配文本 ” ＋ 到文本 (局_计次) ＋ “ 中的子匹配文本 1：” ＋ 局_正则.取子匹配文本 (局_计次, 1))
.计次循环尾 ()
返回 (局_匹配数)

.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (超级列表框1.取标题 (超级列表框1.现行选中项, 1))

batcd

计次循环首前面给总页数赋值一下就可以了，不赋值就是0 0就不会进入

wdwlrz

#常_匹配的文本    这个呢？

ldj777

wdwlrz 发表于 2014-11-1 22:47
#常_匹配的文本    这个呢？

程序放附件里了,最好帮改一下我学习一下

wdwlrz

ldj777 发表于 2014-11-1 22:55
程序放附件里了,最好帮改一下我学习一下

附件在哪里。。。

ldj777

附件在这里

ldj777

wdwlrz 发表于 2014-11-1 23:31
附件在哪里。。。

附件在楼下

ldj777

batcd 发表于 2014-11-2 00:51
计次循环首前面给总页数赋值一下就可以了，不赋值就是0 0就不会进入

除手动查看源代码外，如何设置命令自动获取取总页码数？

云上科技靓

不是很明白