在好例子网,分享、交流、成长!
您当前所在位置:首页Others 开发实例一般编程问题 → 韭菜公社爬虫源码

韭菜公社爬虫源码

一般编程问题

下载此实例
  • 开发语言:Others
  • 实例大小:1.13M
  • 下载次数:2
  • 浏览次数:53
  • 发布时间:2025-02-15
  • 实例类别:一般编程问题
  • 发 布 人:st4455
  • 文件格式:.e
  • 所需积分:1
 相关标签: 爬虫 源码

实例介绍

【实例简介】韭菜公社爬虫源码
【实例截图】
【核心代码】.版本 2
.支持库 gregn6
.支持库 RegEx
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 程序_主报表, 报表

.子程序 _按钮1_被单击


.' 如果真 (局_正则.创建 (“code:(.*?),name:(.*?),article:.*?price:(.*?,)day:.*?expound:(.*?,)is_crawl:.*?user:”, 假) = 假)
    ' 信息框 (“正则创建失败,请检查正则表达式语句是否有误!”, #错误图标, , )
.如果真结束

.' 如果真 (局_正则.创建 (“{code:(.*?),name:(.*?),article:.*?price:(.*?,)day:.*?expound:(.*?,)is_crawl:.*?user:{user_id:c,avatar:g,nickname:h}}},”, 网页源码1, 假, 真, 真) = 假)
    ' 信息框 (“正则创建失败,请检查正则表达式语句是否有误!”, #错误图标, , )

.如果真结束
' 局_匹配数 = 局_正则.取匹配数量 ()
.' 如果真 (局_匹配数 = 0)
    ' 信息框 (“匹配失败,请检检查正则语句是否有误,数量:0”, #错误图标, , )

.如果真结束
' 局_子匹配数 = 局_正则.取子匹配数量 ()
.' 计次循环首 (局_匹配数, 局_计次)
    ' 索引 = 超级列表框1.插入表项 (, , , , , )
    ' 超级列表框1.置标题 (索引, 0, 取文本右边 (子文本替换 (局_正则.取子匹配文本 (局_计次, 1), #引号, , , , 真), 6))
    ' 超级列表框1.置标题 (索引, 1, 子文本替换 (局_正则.取子匹配文本 (局_计次, 2), #引号, , , , 真))
    ' 超级列表框1.置标题 (索引, 2, 到文本 (到数值 (子文本替换 (局_正则.取子匹配文本 (局_计次, 3), “,”, , , , 真)) ÷ 100))
    ' 超级列表框1.置标题 (索引, 3, 子文本替换 (局_正则.取子匹配文本 (局_计次, 4), “\n”, #换行符, , , 真))
    .' 如果 (局_子匹配数 > 0)
        ' ' 输出调试文本 (“匹配文本 ” + 到文本 (局_计次) + “ 中的子匹配文本 1:” + 局_正则.取子匹配文本 (局_计次, 1, ))
    .否则
        ' ' 输出调试文本 (“匹配文本 ” + 到文本 (局_计次) + “ :” + 局_正则.取匹配文本 (局_计次, ))
    .如果结束

.' 计次循环尾 ()
程序_主报表.挂接事件 (报表事件1)
查询显示器1.刷新 ()

.子程序 __启动窗口_创建完毕

查询显示器1.停止 ()
程序_主报表.从文件加载报表 (取运行目录 () + “\网页.grf”)
查询显示器1.设置关联报表 (程序_主报表)
查询显示器1.启动 ()


.子程序 _报表事件1_请求记录数据
.局部变量 局_解析数组, 文本型, , "0"
.局部变量 局_解析, 文本型
.局部变量 i, 整数型
.局部变量 网页返回数据, 字节集
.局部变量 网页源码1, 文本型
.局部变量 网页源码2, 文本型
.局部变量 索引, 整数型
.局部变量 局_结果, 搜索结果, , "0"
.局部变量 局_正则1, 正则表达式类, , , 此类为精易模块里面的正则类,精易模块下载地址:http://ec.125.la/
.局部变量 局_匹配数1, 整数型
.局部变量 局_计次1, 整数型
.局部变量 局_子匹配数1, 整数型
.局部变量 局_正则2, 正则表达式类, , , 此类为精易模块里面的正则类,精易模块下载地址:http://ec.125.la/
.局部变量 局_匹配数2, 整数型
.局部变量 局_计次2, 整数型
.局部变量 局_子匹配数2, 整数型
.局部变量 异动原因, 文本型
.局部变量 UserAgent, 文本型
.局部变量 web源码, 文本型

' 网页返回数据 = 网页_访问_对象 (编辑框1.内容)
' 网页源码1 = 编码_Utf8到Ansi (网页返回数据)
UserAgent = “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/115.0.0.0 Safari/537.36 Edg/115.0.1901.200”
网页源码1 = 网页_访问S (编辑框1.内容, 0, , , , UserAgent, , , , , , , , , , , , , , , )

编辑框2.内容 = 网页源码1

.如果真 (局_正则2.创建 (“isshow=(.*?).name=(.*?);(.*?)}}}]”, 网页源码1, 假, 假, 真, 真) = 假)
    信息框 (“正则创建失败,请检查正则表达式语句是否有误!”, #错误图标, , )
.如果真结束

.' 如果真 (局_正则2.创建 (“action_field_id:.?.?,name:(.*?),date:.*?code:.*?,isshow:”, 网页源码1, 假, 假, 真, 真) = 假)
    ' 信息框 (“正则创建失败,请检查正则表达式语句是否有误!”, #错误图标, , )
.如果真结束

局_匹配数2 = 局_正则2.取匹配数量 ()
调试输出 (局_正则2.取匹配数量 ())

.计次循环首 (局_匹配数2, 局_计次2)
    网页源码2 = 局_正则2.取匹配文本 (局_计次2)
    调试输出 (局_正则2.取子匹配文本 (局_计次2, 2))
    异动原因 = 子文本替换 (子文本替换 (局_正则2.取子匹配文本 (局_计次2, 2), #引号, , , , 真), “\u002F”, “/”, , , 真)
    .' 如果 (取文本长度 (局_正则2.取子匹配文本 (局_计次2, 1)) > 30)
        ' 异动原因 = “公告”
    .否则
        ' 异动原因 = 子文本替换 (子文本替换 (局_正则2.取子匹配文本 (局_计次2, 1), #引号, , , , 真), “\u002F”, “/”, , , 真)
    .如果结束

    ' 调试输出 (网页源码2)
    .如果真 (局_正则1.创建 (“code:(.*?),name:(.*?),article:.*?price:(.*?),day:.*?expound:(.*?),is_crawl:.*?user:”, 网页源码2, 假, 假, 真, 真) = 假)
        信息框 (“正则创建失败,请检查正则表达式语句是否有误!”, #错误图标, , )
    .如果真结束

    局_匹配数1 = 局_正则1.取匹配数量 ()
    .如果真 (局_匹配数1 = 0)
        信息框 (“匹配失败,请检检查正则语句是否有误,数量:0”, #错误图标, , )
    .如果真结束
    .计次循环首 (局_匹配数1, 局_计次1)
        程序_主报表.获取明细网格 ().获取数据集 ().追加 ()
        程序_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (“异动原因”).字符值 = 异动原因
        程序_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (“异动序号”).字符值 = 到文本 (局_计次1)
        程序_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (“代码”).字符值 = 取文本右边 (子文本替换 (局_正则1.取子匹配文本 (局_计次1, 1), #引号, , , , 真), 6)
        程序_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (“股票名称”).字符值 = 子文本替换 (局_正则1.取子匹配文本 (局_计次1, 2), #引号, , , , 真)
        程序_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (“价格”).字符值 = 到文本 (到数值 (子文本替换 (局_正则1.取子匹配文本 (局_计次1, 3), “,”, , , , 真)) ÷ 100)
        局_解析数组 = 分割文本 (局_正则1.取子匹配文本 (局_计次1, 4), “\n”, )
        局_解析 = “”
        ' 调试输出 (局_解析数组 [1])
        .计次循环首 (取数组成员数 (局_解析数组) - 1, i)
            局_解析 = 局_解析 + 子文本替换 (子文本替换 (子文本替换 (子文本替换 (局_解析数组 [i + 1], “\n”, , , , 真), “\r”, , , , 真), #引号, , , , 真), “\u002F”, “/”, , , 真) + #换行符
        .计次循环尾 ()
        程序_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (“板块”).字符值 = 子文本替换 (子文本替换 (子文本替换 (局_解析数组 [1], #引号, , , , 真), “\r”, , , , 真), “\u002F”, “/”, , , 真)
        程序_主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (“解析”).字符值 = 局_解析
        程序_主报表.获取明细网格 ().获取数据集 ().提交 ()
    .计次循环尾 ()

.计次循环尾 ()



标签: 爬虫 源码

实例下载地址

韭菜公社爬虫源码

不能下载?内容有错? 点击这里报错 + 投诉 + 提问

好例子网口号:伸出你的我的手 — 分享

网友评论

发表评论

(您的评论需要经过审核才能显示)

查看所有0条评论>>

小贴士

感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明

;
报警