自媒体视频采集器源码 视频分类批量下载软件

因为没有发成品所以一些细节并没有处理好，比如说一些数组还是需要去判断一下，防止成品发布后网站数据有改动后出现数组错误。

.如果真 (局_Json.解析 (参_Json) ≠ 真)
信息框 (“错误位置于插入列表数据，Json数据解析出错，请联系作者修复！”, 0, “发生错误”, )
返回 ()
.如果真结束
.计次循环首 (局_Json.成员数 (“res”), 局_计次)
.如果 (到整数 (编辑框_过滤.内容) ＞ 0)
局_时长 ＝ 局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].exData.totalTimeStr”) ' 时长
.如果真 (时长转换 (局_时长) ＞ 到整数 (编辑框_过滤.内容))
局_索引 ＝ 超级列表框1.插入表项 (, , , , , )
集_编号 ＝ 到文本 (超级列表框1.取表项数 () ＋ 1 － 1)
.如果真 (到整数 (集_编号) ＜ 10)
集_编号 ＝ “0” ＋ 到文本 (超级列表框1.取表项数 () ＋ 1 － 1)
.如果真结束
超级列表框1.置标题 (局_索引, 0, 集_编号)
局_标题 ＝ 标题处理 (局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].t”)) ' 标题
局_日期 ＝ 时间转换 (局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].p”)) ' 日期
局_观看 ＝ 局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].exData.playCnt”) ' 观看
局_VID ＝ 局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].vid”) ' VID
超级列表框1.置标题 (局_索引, 1, 局_标题) ' 标题
超级列表框1.置标题 (局_索引, 2, 局_日期) ' 日期
超级列表框1.置标题 (局_索引, 3, 局_时长) ' 时长
超级列表框1.置标题 (局_索引, 4, 局_观看) ' 观看
超级列表框1.置标题 (局_索引, 5, 局_VID) ' VID
超级列表框1.置标题 (局_索引, 6, “等待解析”)
超级列表框1.置标题 (局_索引, 7, “等待下载”)
.如果真结束

.否则
局_索引 ＝ 超级列表框1.插入表项 (, , , , , )
集_编号 ＝ 到文本 (超级列表框1.取表项数 () ＋ 1 － 1)
.如果真 (到整数 (集_编号) ＜ 10)
集_编号 ＝ “0” ＋ 到文本 (超级列表框1.取表项数 () ＋ 1 － 1)
.如果真结束
超级列表框1.置标题 (局_索引, 0, 集_编号)
局_标题 ＝ 标题处理 (局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].t”)) ' 标题
局_时长 ＝ 局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].exData.totalTimeStr”) ' 时长
局_日期 ＝ 时间转换 (局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].p”)) ' 日期
局_观看 ＝ 局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].exData.playCnt”) ' 观看
局_VID ＝ 局_Json.取通用属性 (“res[” ＋ 到文本 (局_计次 － 1) ＋ “].vid”) ' VID
超级列表框1.置标题 (局_索引, 1, 局_标题) ' 标题
超级列表框1.置标题 (局_索引, 2, 局_日期) ' 日期
超级列表框1.置标题 (局_索引, 3, 局_时长) ' 时长
超级列表框1.置标题 (局_索引, 4, 局_观看) ' 观看
超级列表框1.置标题 (局_索引, 5, 局_VID) ' VID
超级列表框1.置标题 (局_索引, 6, “等待解析”)
超级列表框1.置标题 (局_索引, 7, “等待下载”)
.如果结束

.计次循环尾 ()
局_Json.清除 ()