易语言快速解析快手视频和评论采集评论，支持一键导出到txt文件和一键导出到excel文件，源码中需要自己添加cookie，否则无法获取数据，cookie修改位置：在常量中

代码如下：

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 导出数据, 文本型
.局部变量 路径, 文本型

通用对话框1.类型 ＝ 1
通用对话框1.默认文件后缀 ＝ “*.txt”
通用对话框1.过滤器 ＝ “文本文件(*.txt)|*.txt”
通用对话框1.打开 ()
路径 ＝ 通用对话框1.文件名
.如果真 (路径 ＝ “”)
    返回 ()
.如果真结束

.计次循环首 (超级列表框1.取表项数 (), i)
    导出数据 ＝ 导出数据 ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 4) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 5) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 6) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 7) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 8) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 9) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 10) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 11) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 12) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 13) ＋ #换行符 ＋ #换行符
.计次循环尾 ()
.如果 (写到文件 (路径, 到字节集 (导出数据)))
    信息框 (“导出成功”, #信息图标, “提示”, )
.否则
    信息框 (“导出失败”, #错误图标, “提示”, )
    返回 ()
.如果结束


.子程序 _按钮3_被单击
.局部变量 i, 整数型
.局部变量 导出数据, 文本型
.局部变量 路径, 文本型

通用对话框1.类型 ＝ 1
通用对话框1.默认文件后缀 ＝ “*.txt”
通用对话框1.过滤器 ＝ “文本文件(*.txt)|*.txt”
通用对话框1.打开 ()
路径 ＝ 通用对话框1.文件名
.如果真 (路径 ＝ “”)
    返回 ()
.如果真结束
.计次循环首 (超级列表框1.取表项数 (), i)
    导出数据 ＝ 导出数据 ＋ 超级列表框2.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 2) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 3) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 4) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 5) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 6) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 7) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 8) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 9) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 10) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 11) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 12) ＋ “----” ＋ 超级列表框2.取标题 (i － 1, 13) ＋ #换行符 ＋ #换行符
.计次循环尾 ()
.如果 (写到文件 (路径, 到字节集 (导出数据)))
    信息框 (“导出成功”, #信息图标, “提示”, )
.否则
    信息框 (“导出失败”, #错误图标, “提示”, )
    返回 ()
.如果结束


.子程序 _按钮4_被单击
.局部变量 exl, excel表格类
.局部变量 i, 整数型
.局部变量 k, 整数型

exl.创建 ()
.如果真 (exl.打开 (取运行目录 () ＋ “\2.xlsx”, , , , ) ＝ 假)
    信息框 (“请新创建该文件”, #错误图标, , )
    返回 ()
.如果真结束

按钮4.禁止 ＝ 真
exl.创建单元格_工作表对象 ()
.计次循环首 (超级列表框1.取列数 (), k)
    exl.单元格_写数据 (字符 (64 ＋ k) ＋ “1”, 超级列表框1.取列标题 (k))
    ' 调试输出 (字符 (64 ＋ k) ＋ “1”, 超级列表框1.取列标题 (k))
    exl.单元格_置文本加粗 (字符 (64 ＋ k) ＋ “1”)
.计次循环尾 ()

.计次循环首 (超级列表框1.取表项数 (), i)
    exl.单元格_写数据 (“A” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 1))
    exl.单元格_写数据 (“B” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 2))
    exl.单元格_写数据 (“C” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 3))
    exl.单元格_写数据 (“D” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 4))
    exl.单元格_写数据 (“E” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 5))
    exl.单元格_写数据 (“F” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 6))
    exl.单元格_写数据 (“G” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 7))
    exl.单元格_写数据 (“H” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 8))
    exl.单元格_写数据 (“I” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 9))
    exl.单元格_写数据 (“J” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 10))
    exl.单元格_写数据 (“K” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 11))
    exl.单元格_写数据 (“L” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 12))
    exl.单元格_写数据 (“M” ＋ 到文本 (i ＋ 1), 超级列表框1.取标题 (i － 1, 13))
.计次循环尾 ()
exl.保存 ()
按钮4.禁止 ＝ 假

.子程序 _复制整行_被选择




.子程序 _复制无水印_被选择

置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 10))

查看全部代码，请点击 查看全文