知乎视频解析附带易语言源码

知乎视频解析附带易语言源码

@小明无敌

.版本 2
.支持库 eGrid
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 b, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 c, 文本型
.局部变量 d, 文本型
.局部变量 json, 类_JSON_
.局部变量 图片地址, 文本型
.局部变量 ii, 整数型
.局部变量 视频数, 整数型
.局部变量 清晰度节点, JSON节点, , "0"
.局部变量 下载地址文本, 文本型
.局部变量 iii, 整数型

.变量循环首 (高级表格1.行数, 2, -1, iii)
    高级表格1.删除行 (iii － 1)
.变量循环尾 ()

超级列表框1.全部删除 ()
a ＝ 到文本 (编码_Utf8到Ansi (网页_访问_对象 (编辑框2.内容, , , , , “user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.121 Safari/537.36”, , , , , , , , , , , , )))
文本_取中间_批量 (a, #常量1, #引号, b, , , , , , , )
_启动窗口.标题 ＝ 文本_取出中间文本 (a, #常量2, #引号, , )
.计次循环首 (取数组成员数 (b), i)
    c ＝ “https://lens.zhihu.com/api/v4/videos/” ＋ b [i]
    d ＝ 编码_usc2到ansi (到文本 (编码_Utf8到Ansi (网页_访问_对象 (c, , , , , “user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.121 Safari/537.36”, , , , , , , , , , , , ))))
    json.初始化 ()
    json.解析文本 (d, , )
    图片地址 ＝ json.取项目值 (“cover_url”, , , 真, )
    调试输出 (图片地址, i, c)
    高级表格1.插入行 (到文本 (i), i)
    高级表格1.置数据 (i, 1, #表格常量.图片型, 网页_访问_对象 (图片地址, , , , , “user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.121 Safari/537.36”, , , , , , , , , , , , ))
    高级表格1.置数据 (i, 3, #表格常量.文本型, json.取项目值 (“title”, , , 真, ))
    高级表格1.置行高 (i, 100)
    高级表格1.置列宽 (i, 100)
    视频数 ＝ json.取子项目数 (“playlist”, , )
    json.取项目所有节点 (“playlist”, , 清晰度节点, )
    下载地址文本 ＝ “”
    .计次循环首 (取数组成员数 (清晰度节点), ii)
        .如果真 (清晰度节点 [ii].层次 ＝ 3)
            调试输出 (清晰度节点 [ii].名称, json.取项目值 (“playlist.” ＋ 清晰度节点 [ii].名称 ＋ “.play_url”, , , 真, ))
            下载地址文本 ＝ json.取项目值 (“playlist.” ＋ 清晰度节点 [ii].名称 ＋ “.play_url”, , , 真, ) ＋ “||” ＋ 下载地址文本
        .如果真结束

    .计次循环尾 ()
    高级表格1.置数据 (i, 2, #表格常量.文本型, 下载地址文本)
.计次循环尾 ()
高级表格1.置列宽 (3, 200)

.子程序 __启动窗口_创建完毕
.局部变量 json, 类_JSON_
.局部变量 d, 文本型
.局部变量 c, JSON节点, , "0"
.局部变量 i, 整数型

高级表格1.置数据 (0, 0, #表格常量.文本型, “序号”)
高级表格1.置数据 (0, 1, #表格常量.文本型, “图片”)
高级表格1.置数据 (0, 2, #表格常量.文本型, “下载地址”)
高级表格1.置数据 (0, 3, #表格常量.文本型, “备注”)
高级表格1.置列类型 (1, #表格常量.图片型)
高级表格1.置图片显示方式 (1, #表格常量.拉伸)

.子程序 _高级表格1_被单击
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.局部变量 行, 整数型
.局部变量 列, 整数型
.局部变量 a, 文本型
.局部变量 b, 文本型, , "0"
.局部变量 文本内容, 文本型
.局部变量 i, 整数型
.局部变量 z, 整数型

超级列表框1.全部删除 ()
文本内容 ＝ 高级表格1.取数据 (高级表格1.取光标行号 (), 2)
a ＝ 子文本替换 (文本内容, “||”, #换行符, , , 真)
b ＝ 分割文本 (文本内容, “||”, )
.计次循环首 (取数组成员数 (b), i)
    z ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (z, 0, 到文本 (z ＋ 1))
    超级列表框1.置标题 (z, 1, 文本_取出中间文本 (b [i], “https://vdn2.vzuu.com/”, “/”, , ))
    超级列表框1.置标题 (z, 2, b [i])
.计次循环尾 ()
调试输出 (高级表格1.取数据 (高级表格1.取光标行号 (), 2))
a ＝ 子文本替换 (文本内容, “||”, #换行符, , , 真)
编辑框1.内容 ＝ a


.子程序 _超级列表框1_左键单击表项

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