抖音作品评论cha询 修改版分享

陈枫

学习一下6666666666666666

清风徐来2

评论时间不准

果心豆腐酱

多取点评论，然后排序下，就能看出来了。取的评论越多，重复越多。
还有你那个保存

还有这个是保存列表的。比你那个好用，你那个写了一大堆，我都看不懂了，还不能重新导入会列表框里

  

子程序名	返回值类型	公开	备 注
_按钮4_被单击

变量名	类 型	静态	数组	备 注
计次	整数型
文件号	整数型
文本	文本型
计次2	整数型
启动	整数型

启动 ＝ 取启动时间 ()
文件号 ＝ 打开文件 (取运行目录 () ＋ “\评论数据.txt”, , )
计次循环首 (超级列表框1.取表项数 (), 计次)
计次循环首 (超级列表框1.取列数 (), 计次2)
如果 (计次2 ＝ 1)
文本 ＝ 超级列表框1.取标题 (计次 － 1, 计次2 － 1)
文本 ＝ 文本 ＋ 字符 ( #Tab键 ) ＋ 超级列表框1.取标题 (计次 － 1, 计次2 － 1)

计次循环尾 ()
如果 (计次 ＝ 1)
写出字节集 (文件号, 到字节集 (文本))
写出字节集 (文件号, 到字节集 ( #换行符 ＋ 文本))

文本 ＝ “”
计次循环尾 ()
关闭文件 (文件号)
调试输出 (取启动时间 () － 启动)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮4_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 计次2, 整数型<br /> .局部变量 启动, 整数型<br /> <br /> 启动 ＝ 取启动时间 ()<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\评论数据.txt”, , )<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 计次)<br />     .计次循环首 (超级列表框1.取列数 (), 计次2)<br />         .如果 (计次2 ＝ 1)<br />             文本 ＝ 超级列表框1.取标题 (计次 － 1, 计次2 － 1)<br />         .否则<br />             文本 ＝ 文本 ＋ 字符 (#Tab键) ＋ 超级列表框1.取标题 (计次 － 1, 计次2 － 1)<br />         .如果结束<br /> <br /> <br />     .计次循环尾 ()<br />     .如果 (计次 ＝ 1)<br />         写出字节集 (文件号, 到字节集 (文本))<br />     .否则<br />         写出字节集 (文件号, 到字节集 (#换行符 ＋ 文本))<br />     .如果结束<br /> <br />     文本 ＝ “”<br /> .计次循环尾 ()<br /> 关闭文件 (文件号)<br /> 调试输出 (取启动时间 () － 启动)

kingchain

不错 谢谢分享

君九

学习了666

一指温柔

感谢分享！！！

qq261583065

置顶帖 修改了 保存方法

ytbihay

学习了6666666666666

qq261583065

果心豆腐酱 发表于 2023-9-21 02:26
\

还是没有对重复内容处理，不能取出完整的评论内容。

我测试后没发现你出现的那个问题

dy评论采集_修正.rar (233.97 KB, 下载次数: 117)

2023-9-21 08:11 上传

点击文件名下载附件



这是保存的数据
评论数据.txt (20.52 KB, 下载次数: 8)

2023-9-21 08:09 上传

点击文件名下载附件

elpaims1

6666666666666