.计次循环首 (json.取子项目数 (“”, , ), l1)
标签 = “”
文件名 = 编码_utf8到gb2312 (json.取项目值 (“[” + 到文本 (l1 - 1) + “].name”, , , , ))
目录 = 取运行目录 () + “\data\” + 文件名
.如果真 (目录_创建 (目录) = 假)
文件名 = 时间_到时间戳 (, , )
目录 = 取运行目录 () + “\data\” + 文件名
目录_创建 (目录)
' 失败 = 失败 + json.取项目值 (“[” + 到文本 (l1 - 1) + “].id”, , , , ) + #换行符
.如果真结束
.计次循环首 (json.取子项目数 (“[” + 到文本 (l1 - 1) + “].tags”, , ), l2)
.如果 (json.取子项目数 (“[” + 到文本 (l1 - 1) + “].tags”, , ) = l2)
标签 = 标签 + json.取项目值 (“[” + 到文本 (l1 - 1) + “].tags[” + 到文本 (l2 - 1) + “]”, , , , ) + “,” + json.取项目值 (“[” + 到文本 (l1 - 1) + “].Category.name”, , , , )
.否则
标签 = 标签 + json.取项目值 (“[” + 到文本 (l1 - 1) + “].tags[” + 到文本 (l2 - 1) + “]”, , , , ) + “,”
.如果结束
.计次循环尾 ()
.如果真 (标签 = “”)
标签 = json.取项目值 (“[” + 到文本 (l1 - 1) + “].Category.name”, , , , )
.如果真结束
文本 = json.取项目值 (“[” + 到文本 (l1 - 1) + “].name”, , , , ) + #换行符 + json.取项目值 (“[” + 到文本 (l1 - 1) + “].note”, , , , ) + #换行符 + json.取项目值 (“[” + 到文本 (l1 - 1) + “].url”, , , , ) + #换行符 + 标签
规则 = 网页_访问_对象 (json.取项目值 (“[” + 到文本 (l1 - 1) + “].file_url”, , , , ))
写到文件 (目录 + “\” + 文件名 + “.txt”, 到字节集 (文本))
写到文件 (目录 + “\” + 文件名 + “hibbba.com.shortcut”, 规则)
标签2.标题 = 到文本 (l1)
.计次循环尾 ()
提示框 (“完成”)
调试输出 (“完成”)
写到文件 (取运行目录 () + “\1.txt”, 到字节集 (失败))
上一篇 自制登录模式滑块验证码
下一篇 超级列表框插入表项图片