|
楼主 |
发表于 2016-10-12 22:32:04
|
显示全部楼层
山西省运城市
.版本 2
.支持库 spec
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 编码_URL解码, 文本型, 公开
.参数 URL, 文本型
.参数 是否UTF8, 逻辑型, 可空, 先将文本串解码为文本,再从UTF8转成GBK编码
编辑框1.内容 = “编码_URL解码”
.子程序 _按钮1_被单击
.局部变量 kla, 文本型
.局部变量 正则, 正则表达式类
kla = 网页_访问S (“http://wbqd.jnkte.com/dweg.php?gdmc=” + 编辑框1.内容)
调试输出 (kla)
正则_匹配批量1 (kla)
.子程序 正则_匹配批量1, 整数型, , 本子程序采用【精易编程助手】生成。成功返回匹配的数量,失败返回0。
.参数 源文本, 文本型, , 欲被匹配的文本
.局部变量 局_正则, 正则表达式类, , , 此类为精易模块里面的正则类,精易模块下载地址:www.3600gz.cn/thread-1177-1-1.html
.局部变量 局_匹配数, 整数型
.局部变量 局_计次, 整数型
.局部变量 n, 整数型
.如果真 (局_正则.创建 (#常量1, 源文本, 假, 假, 真, 真) = 假)
信息框 (“正则创建失败,请检查正则表达式语句是否有误!”, #错误图标, , )
返回 (0)
.如果真结束
局_匹配数 = 局_正则.取匹配数量 ()
.如果真 (局_匹配数 = 0)
信息框 (“匹配失败,请检检查正则语句是否有误,数量:0”, #错误图标, , )
返回 (0)
.如果真结束
到首记录 ()
超级列表框1.表项 = 取空白字节集 (0)
.计次循环首 (局_匹配数, 局_计次)
n = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n, 0, 局_正则.取子匹配文本 (局_计次, 1))
超级列表框1.置标题 (n, 1, 局_正则.取子匹配文本 (局_计次, 2))
超级列表框1.置标题 (n, 2, 局_正则.取子匹配文本 (局_计次, 3))
超级列表框1.置标题 (n, 3, 局_正则.取子匹配文本 (局_计次, 4))
超级列表框1.置标题 (n, 4, 局_正则.取子匹配文本 (局_计次, 5))
超级列表框1.置标题 (n, 5, 局_正则.取子匹配文本 (局_计次, 6))
输出调试文本 (“匹配文本 ” + 到文本 (局_计次) + “ 中的子匹配文本 1:” + 局_正则.取子匹配文本 (局_计次, 1))
.计次循环尾 ()
返回 (局_匹配数) |
|