微博热搜实时监控脚本，各大热门事件时时掌握！【附源码】 _ 【抖音】小Q教程

查看: 11922\|回复: 5	微博热搜实时监控脚本，各大热门事件时时掌握！【附源码】 [复制链接]

兄弟客服03

组别管理员
UID684365
帖子4614
精华0
鲜花1039 朵
铜币7356 个
银币1010 个
在线时间236380
注册时间2011-06-13

1^#

字体大小: t T

发表于 2020-12-21 16:11 | |只看楼主

教程最后附按键源码，欢迎新手学习-

在抖音上关注“按键精灵”（抖音号：GUKOOHOT），我们将不定期发布各类办公中、生活里会用到的脚本小技巧，本篇教程小视频，同样会发布出来，欢迎观看！

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

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

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

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

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

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

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

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

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

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

网页上的结构很简单，直接用获取元素内容的命令来获取。

// tr[2] 这里的数字表示了是第2条数据
HotWord = 神梦_网页填表.网页_取元素信息("text", "//*[@id=""pl_top_realtimehot""]/table/tbody/tr[2]/td[2]/a")
HotValue = 神梦_网页填表.网页_取元素信息("text", "//*[@id=""pl_top_realtimehot""]/table/tbody/tr[2]/td[2]/span")

复制代码

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

所以我们需要把每次获取到的关键词和数据都存起来，这样记录表格的时候只记录当前显示的数据，但是临时不显示的热搜词数据也没有丢失
封装一个函数专门用来存取相应关键词的数据。

Dim HotData(50, 14) // 定义全局的热搜存储变量数组
Function 添加数据(word, value)
Dim index
Dim arrRet(14)
For i = 0 To 50
If HotData(i, 0) = word Then
TracePrint "找到已有数据"
index = i
Exit For
ElseIf HotData(i, 0) = false Then
TracePrint "数据到头"
index = i
Exit For
End If
Next
arrRet(0) = word
HotData(index, 0) = word
For i = 1 To 14
arrRet(i) = HotData(index, i) // 把全局变量里的此条数据全部存放进结果
If HotData(index, i) = false Then
HotData(index, i) = value
arrRet(i) = value
Exit For
End If
Next
添加数据 = arrRet
End Function

复制代码

接着把数据写入表格里即可。

Data = 添加数据(HotWord, HotValue)
For i = 2 To 18
If TypeName(Data(i - 2)) <> "Empty" Then
Call LazyOffice.ExcelWrite(2, Index, i, Data(i - 2))
Else
Exit For
End If
Next

复制代码

完整源码下载：

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

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

已有1评分我要评分查看所有评分

本主题由按键精灵总策划果壳王子于 2021/11/13 13:55:20 执行删除帖子操作

按键精灵iOS版，兼容iOS14系统，可打包iOS小精灵，还支持分享收费型脚本哦！——点我查看详情

鹰眼中控，随时访问管控你的移动设备，手机屏幕实时显示，支持远程操作！——点我查看详情

回顶部

发送短消息 UID 3059714 帖子 2 精华 0 鲜花 2 朵铜币 0 个银币 0 个性别在线时间 0 注册时间 2015-02-07 最后登录 2022-01-27 查看公共资料搜索主题搜索帖子 jiangteddy jiangteddy 组别小学一年级 UID3059714 帖子2 精华0 鲜花2 朵铜币0 个银币0 个在线时间0 注册时间2015-02-07	2^# 字体大小: t T 发表于 2020-12-30 13:41 \| \|只看该用户 Import "神梦_网页填表.qml" Import "LazyOffice.dll"


	回顶部

发送短消息 UID 3059714 帖子 2 精华 0 鲜花 2 朵铜币 0 个银币 0 个性别在线时间 0 注册时间 2015-02-07 最后登录 2022-01-27 查看公共资料搜索主题搜索帖子 jiangteddy jiangteddy 组别小学一年级 UID3059714 帖子2 精华0 鲜花2 朵铜币0 个银币0 个在线时间0 注册时间2015-02-07	3^# 字体大小: t T 发表于 2020-12-30 13:42 \| \|只看该用户 Import "神梦_网页填表.qml" Import "LazyOffice.dll" 这两个的附件你没上传啊


	回顶部

发送短消息 UID 4585908 帖子 1 精华 0 鲜花 1 朵铜币 10 个银币 0 个性别在线时间 0 注册时间 2017-08-14 最后登录 2021-03-03 1694719914 查看公共资料搜索主题搜索帖子杨祖平杨祖平组别小学一年级 UID4585908 帖子1 精华0 鲜花1 朵铜币10 个银币0 个在线时间0 注册时间2017-08-14	4^# 字体大小: t T 发表于 2021-03-03 13:37 \| \|只看该用户 666666666666非常好


	回顶部

发送短消息 UID 6729416 帖子 3 精华 0 鲜花 2 朵铜币 12 个银币 2 个性别在线时间 0 注册时间 2019-07-14 最后登录 2023-07-23 查看公共资料搜索主题搜索帖子 781823316 781823316 组别幼儿园 UID6729416 帖子3 精华0 鲜花2 朵铜币12 个银币2 个在线时间0 注册时间2019-07-14	5^# 字体大小: t T 发表于 2021-04-12 11:15 \| \|只看该用户感谢分享


	回顶部

发送短消息 UID 1123090 帖子 3 精华 0 鲜花 1 朵铜币 22 个银币 2 个性别在线时间 80 注册时间 2012-05-02 最后登录 2022-04-08 369496764 查看公共资料搜索主题搜索帖子 znzjk znzjk 组别小学一年级 UID1123090 帖子3 精华0 鲜花1 朵铜币22 个银币2 个在线时间80 注册时间2012-05-02 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	6^# 字体大小: t T 发表于 2021-04-29 12:33 \| \|只看该用户命令见过，但是不知道表示啥意思！


	回顶部

上一主题| 下一主题

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