关于易语言正则，不用模块，求解答

Question

是这样的，网址是：http://all.17k.com/

我想用正则把他匹配出来，刚刚学易语言，希望得到帮助，不用模块，谁能帮我？在线等。。。。

Answer 1

帮你写了一个源码去下载吧，要使用精易模块，

处理正则表达式用的纯代码写的

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

.程序集 窗口程序集_启动窗口
.程序集变量 页, 整数型
.程序集变量 总页, 整数型

.子程序 获取源码
.参数 URL, 文本型
.局部变量 临时源码, 文本型

临时源码 ＝ 编码_utf8到gb2312 (网页_取网页源码 (URL))
临时源码 ＝ 子文本替换 (临时源码, #转空, “”, , , 真)
获取数据 (临时源码)

.子程序 获取数据
.参数 网页源码, 文本型
.局部变量 表达式, 正则表达式DEELX
.局部变量 搜索, 搜索结果DEELX, , "0"
.局部变量 i, 整数型
.局部变量 a, 整数型
.局部变量 索引, 整数型

超级列表框1.全部删除 ()
表达式.创建 (#表达式, , )
搜索 ＝ 表达式.搜索全部 (网页源码, )
.计次循环首 (取数组成员数 (搜索), i)
    索引 ＝ 超级列表框1.插入表项 (, 搜索 [i].取子匹配文本 (1), , , , )
    超级列表框1.置标题 (索引, 1, 搜索 [i].取子匹配文本 (3))
    超级列表框1.置标题 (索引, 2, 搜索 [i].取子匹配文本 (6))
    超级列表框1.置标题 (索引, 3, 搜索 [i].取子匹配文本 (8))
    超级列表框1.置标题 (索引, 4, 搜索 [i].取子匹配文本 (12))
    超级列表框1.置标题 (索引, 5, 搜索 [i].取子匹配文本 (11))
    超级列表框1.置标题 (索引, 6, 搜索 [i].取子匹配文本 (13))
    超级列表框1.置标题 (索引, 7, 搜索 [i].取子匹配文本 (9))
.计次循环尾 ()

.子程序 __启动窗口_创建完毕
.局部变量 临时源码, 文本型

临时源码 ＝ 编码_utf8到gb2312 (网页_取网页源码 (“http://all.17k.com/”))
总页 ＝ 到数值 (文本_取出中间文本 (临时源码, “下一页</span></a> 共”, “页”))
页 ＝ 1

获取源码 (“http://all.17k.com/”)

.子程序 _第一页_被单击

获取源码 (“http://all.17k.com/all/0_0__0__” ＋ 到文本 (页) ＋ “.html”)

.子程序 _上一页_被单击

.如果真 (页 ＞ 1)
    页 ＝ 页 － 1
    获取源码 (“http://all.17k.com/all/0_0__0__” ＋ 到文本 (页) ＋ “.html”)
.如果真结束


.子程序 _下一页_被单击

.如果真 (页 ＜ 总页)
    页 ＝ 页 ＋ 1
    获取源码 (“http://all.17k.com/all/0_0__0__” ＋ 到文本 (页) ＋ “.html”)
.如果真结束


.子程序 _最后页_被单击

页 ＝ 总页
获取源码 (“http://all.17k.com/all/0_0__0__” ＋ 到文本 (总页) ＋ “.html”)

.子程序 _跳转_被单击

.如果真 (到数值 (页码.内容) ＞ 0)
    页 ＝ 到数值 (页码.内容)
    获取源码 (“http://all.17k.com/all/0_0__0__” ＋ 到文本 (页) ＋ “.html”)
.如果真结束

Answer 2

先取到网页源码然后自己用原文修改写一个正则表达式把子表达式计次循环取出追问

有源码吗

本回答被提问者采纳

Answer 3

不用模块，哪里用正则。。。