• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.7.1
软件大小:29.2M
更新时间:06-22

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

微博热搜实时监控脚本,各大热门事件时时掌握!【附源码】 [复制链接]

1#
教程最后附按键源码,欢迎新手学习-
在抖音上关注“按键精灵”(抖音号:anjian07),我们将不定期发布各类办公中、生活里会用到的脚本小技巧,本篇教程小视频,同样会发布出来,欢迎观看!

本篇教程来学习通过抓取微博热搜的关键词来建立Excel折线图表,并且进行定时监控,很实用的功能哦!


一、脚本流程

1.建立Excel图表的模板表格(方便后续直接填入数据自动生成图表)
2.操作浏览器来获取微博热搜关键词
3.建立循环定时运行采集和汇总

二、具体实现
1、建立Excel表格模板
在Excel中选择一种折线图样式插入。

您所在的用户组无法下载或查看附件

在图表的设计标签里,找到【选择数据】。

您所在的用户组无法下载或查看附件


直接用鼠标框选出记录数据的范围,点击确定即可(表格细节上可以自行再调整)。

您所在的用户组无法下载或查看附件


2、爬取微博热搜数据
爬取的地址是这个:https://s.weibo.com/top/summary?cate=realtimehot

您所在的用户组无法下载或查看附件


网页上的结构很简单,直接用获取元素内容的命令来获取。
  1. // tr[2] 这里的数字表示了是第2条数据
  2. HotWord = 神梦_网页填表.网页_取元素信息("text", "//*[@id=""pl_top_realtimehot""]/table/tbody/tr[2]/td[2]/a")
  3. HotValue = 神梦_网页填表.网页_取元素信息("text", "//*[@id=""pl_top_realtimehot""]/table/tbody/tr[2]/td[2]/span")
复制代码

3、数据存储和分析
仔细观察微博的热搜词会发现一个问题:每次刷新网页的时候热搜词会随机更换一部分,如果我们单纯的直接按照网页显示的数据来填入表格的话,那会造成部分的热搜词频繁的出现和消失,那就无法实现真正的监控目的。


所以我们需要把每次获取到的关键词和数据都存起来,这样记录表格的时候只记录当前显示的数据,但是临时不显示的热搜词数据也没有丢失
封装一个函数专门用来存取相应关键词的数据。
  1. Dim HotData(50, 14) // 定义全局的热搜存储变量数组

  2. Function 添加数据(word, value)
  3. Dim index
  4. Dim arrRet(14)
  5. For i = 0 To 50
  6. If HotData(i, 0) = word Then
  7. TracePrint "找到已有数据"
  8. index = i
  9. Exit For
  10. ElseIf HotData(i, 0) = false Then
  11. TracePrint "数据到头"
  12. index = i
  13. Exit For
  14. End If
  15. Next

  16. arrRet(0) = word
  17. HotData(index, 0) = word
  18. For i = 1 To 14
  19. arrRet(i) = HotData(index, i) // 把全局变量里的此条数据全部存放进结果
  20. If HotData(index, i) = false Then
  21. HotData(index, i) = value
  22. arrRet(i) = value
  23. Exit For
  24. End If
  25. Next

  26. 添加数据 = arrRet
  27. End Function
复制代码

接着把数据写入表格里即可。
  1. Data = 添加数据(HotWord, HotValue)

  2. For i = 2 To 18
  3. If TypeName(Data(i - 2)) <> "Empty" Then
  4. Call LazyOffice.ExcelWrite(2, Index, i, Data(i - 2))
  5. Else
  6. Exit For
  7. End If
  8. Next
复制代码
完整源码下载:
您所在的用户组无法下载或查看附件



关注按键精灵抖音号,我们将不定期发布各类办公中、生活里会用到的脚本小技巧哦~





本主题由 管理员 兄弟客服03 于 2020/12/21 16:13:48 执行 设置高亮 操作
发新话题 回复该主题