捧腹网_首页_笑话

城南花未开

本次带来的是捧腹网的简单显示网页信息

正则还有源码都在下面

源码；

.版本 2
.支持库 spec


.程序集 程序集1


.子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码


' 调试输出 (编码_utf8到gb2312 (随机笑话 (“随机笑话”)))
调试输出 (编码_utf8到gb2312 (指定笑话 (“指定笑话1”)))
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 返回值被忽略。


.子程序 _临时子程序


' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。




.子程序 搜索, 文本型, , 本子程序采用【精易编程助手】生成。成功返回匹配的数量，失败返回0。
.参数 源文本, 文本型, , 欲被匹配的文本
.局部变量 局_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：http://ec.125.la/
.局部变量 局_匹配数, 整数型
.局部变量 局_计次, 整数型


.如果真 (局_正则.创建 (“<div class=#引号content-img clearfix pt10 relative#引号>([\s\S]*?)</div>”, 源文本, 假, 假, 真, 真) ＝ 假)
    信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , )
    返回 (“”)
.如果真结束
局_匹配数 ＝ 局_正则.取匹配数量 ()
.如果真 (局_匹配数 ＝ 0)
    信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , )
    返回 (“”)
.如果真结束
.计次循环首 (局_匹配数, 局_计次)
    返回 (局_正则.取子匹配文本 (局_计次, 1))
.计次循环尾 ()
返回 (“”)


.子程序 随机笑话, 文本型
.参数 消息数据, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 随机, 整数型
.局部变量 i, 整数型


.如果真 (消息数据 ＝ “随机笑话”)
    随机 ＝ 取随机数 (1, 99)


    分割 ＝ 分割文本 (搜索 (到文本 (网页_访问_对象 (“https://www.pengfu.com/index_” ＋ 到文本 (随机) ＋ “.html”))), #换行符, )


    随机 ＝ 取随机数 (1, 取数组成员数 (分割))
    返回 (分割 [随机])


.如果真结束
返回 (“”)


.子程序 指定笑话, 文本型
.参数 消息数据, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 随机, 整数型
.局部变量 i, 整数型


.如果真 (寻找文本 (消息数据, “指定笑话”, , 假) ≠ -1)
    分割 ＝ 分割文本 (搜索 (到文本 (网页_访问_对象 (“https://www.pengfu.com/index_” ＋ 文本_取右边 (消息数据, “指定笑话”) ＋ “.html”))), #换行符, )
    随机 ＝ 取随机数 (1, 取数组成员数 (分割))
    返回 (分割 [随机])


.如果真结束
返回 (“”)
对开发有兴趣欢迎联系

Nkomol

请直接发e上来