正文

‘抖音字体倒’抖音各种漂亮字体怎么弄的?

/ / 阅读

你好，我是公众号三分钟学堂的郭立元。

提供实时收集抖音(抖音)直播数据的教程。其中包括点赞量、在线人数、1号礼物数、直播评论数、评论内容等。

脚本思路

抖音直播间的文字内容是可以通过节点内容提取的，所以脚本的思路基本就是获取xml，然后从中提取想要的内容。

点赞量、在线人数、榜1的礼物数这些数据都是相对静态的，而评论信息是动图变化的，那么我们着重讲一下采集评论信息这部分。

采集评论的方法

①打开抖音直播间，可以手动打开，也可以使用代码跳转到指定id的直播间。

②根据节点id找到评论内容：

Import "j; j Dim Ret,Info() Ret = j("By.res('com.;).text($('.*：.*'))", "node") If Ret Then Info = j("node") If info Then For i = 1 To UBOUND(Info[1]) + 1 TracePrint "公屏信息",Info[1][i] next End If End If

代码中我填一个正则匹配，过滤掉了“某某某 来了”这类系统评论内容。

②写入到文本

写入文本有一个难点，每次在获取到评论内容以后，先要判断是不是重复内容，如果不是重复内容在把它写入进文本。

处理方法是这样的~

获取到评论信息，先不要写入文本，先要判断文本是不是空的，如果是就不用判断重复直接写入，如果不是的话，看看有没有5条信息，这里之所以是5，是因为直播间一般最多同时显示四五条信息，再多就会被挤出屏幕。

如果文本内信息数在5条信息以内，直接遍历文本中所有信息，和获取到评论进行比对，没有重复直接写入到文本第1行，否则直接pass掉。

如果文本内容信息数超过了5条，那么只去比对前五条信息，这么做的好处就是可以节省时间。随着我们写入信息，文本中的内容会越来越多，那么如果遍历所有文本进行比对，会非常耗时。

扩展思路


除了采集评论以外，还要有别的信息采集：点赞量、在线人数、榜1的礼物数，这些数据的采集方法和采集评论差不多，也是从xml中提取，不过我们不需要实时采集，可以每隔10秒钟采集一次，当然也可以每5分钟采集一次。

这里有涉及到一个知识点：定时执行代码。

Dim t=TickCount() TracePrint "开始计时" Do Delay 1000 //执行你的代码 If TickCount()-t>5000 Then TracePrint "到时间了" Exit Do End If Loop

通过定时功能，我们每10秒把采集的点赞量、在线人数、榜1的礼物数、留言数写入到另外一个文本里面。

关于脚本

这个脚本可以帮我们记录一个直播间开播的实时数据，分析直播的数据情况，当然也可以针对固定内容的评论进行回复。