TX文档文本解析(可用于云更新) - 精易论坛

子程序名	返回值类型	公开	备注
取TX文本内容	文本型
参数名	类型	参考	可空	数组	备注
链接	文本型

变量名	类型	静态	数组	备注
临时文本	文本型
临时文本2	文本型
text	文本型
返回文本	文本型
json	类_json
是否可以	逻辑型
int	整数型
去除数量	整数型
x	整数型
i	整数型
错误原因	JsonError
返回的json文本	文本型

返回的json文本＝编码_utf8到gb2312 (子文本替换 (到文本 (网页_访问 (“https://docs.qq.com/dop-api/opendoc?id=” ＋文本_取右边 (链接, “/”) ＋ “&normal=0&t=” ＋时间_取现行时间戳 (假), 0, , , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64)”)), 到文本 ({ 13 }), 到文本 ({ 10 }), , , 真))

如果 (寻找文本 (返回的json文本, “attribs”, , 假) ＝ 1)

临时文本＝子文本替换 (返回的json文本, “attribs”, “”, , 1, 真) ＋到文本 ({ 10 }) ＋ “attribs” ' 防止attribs在第一位

x ＝ 7

临时文本＝返回的json文本
临时文本2 ＝临时文本

判断循环首 (取反 (是否可以))

如果真 (文本_取出现次数 (临时文本2, “text”) ＝ -1)

跳出循环 ()

text ＝子文本替换 (文本_取出中间文本 (临时文本2, “text”, “text”), “ ”, “”, , , 真)

临时文本2 ＝子文本替换 (临时文本2, “text”, “w”, , 1, 真)

去除数量＝去除数量＋ 3

' 调试输出 (到字节集 (text), 到字节集 (“”), 到字节集 (“ ”), 到字节集 (#换行符))

如果真 (到字节集 (text) ＝ { 10 })

int ＝寻找文本 (临时文本2, “text”, , 假) ＋ 4 ' 将第二给text过掉

判断循环首 (取文本中间 (临时文本2, int, 1) ≠ “{”)

int ＝ int ＋ 1

' 调试输出 (取文本中间 (临时文本2, int, 1))

判断循环尾 ()

是否可以＝真

int ＝ int ＋去除数量＋ x

判断循环尾 ()
临时文本2 ＝临时文本
' 调试输出 (取文本中间 (返回的json文本, int, 1))
去除数量＝ 0

计次循环首 (文本_取出现次数 (返回的json文本, “attribs”), ) ' 防止多个attribs

' 调试输出 (临时文本2)

i ＝寻找文本 (临时文本2, “attribs”, , 假) － 2

' 调试输出 (取文本中间 (临时文本2, i, 7))

如果真 (取文本中间 (临时文本2, i, 1) ＝ “}” 或取文本中间 (临时文本2, i － 1, 1) ＝ “}”)

i ＝ i ＋去除数量＋ x

如果真 (取文本中间 (临时文本2, i － 1, 1) ＝ “}”)

i ＝ i － 1

临时文本＝取文本中间 (返回的json文本, int, i － int ＋ 1)

跳出循环 ()

临时文本2 ＝子文本替换 (临时文本2, “attribs”, “w”, , 1, 真)

去除数量＝去除数量＋ 6

计次循环尾 ()
' 调试输出 (临时文本)
' 临时文本＝子文本替换 (临时文本, “\”, “/”, , , 真)
json.解析 (子文本替换 (临时文本, “\r\u000f\u001e\u001e\u001e\u001e\u001e\u001e\u001e”, “”, , , 真), 真, 错误原因)
返回文本＝ json.取通用属性 (“commands[0].mutations[0].s”)

如果真 (返回文本＝ “”)

输出调试文本 (返回的json文本)
返回文本＝子文本替换 (返回文本, 到文本 ({ 13 }), #换行符, , , 真)
返回 (返回文本)

.版本 2<br />
<br />
.子程序 取TX文本内容, 文本型<br />
.参数 链接, 文本型<br />
.局部变量 临时文本, 文本型<br />
.局部变量 临时文本2, 文本型<br />
.局部变量 text, 文本型<br />
.局部变量 返回文本, 文本型<br />
.局部变量 json, 类_json<br />
.局部变量 是否可以, 逻辑型<br />
.局部变量 int, 整数型<br />
.局部变量 去除数量, 整数型<br />
.局部变量 x, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 错误原因, JsonError<br />
.局部变量 返回的json文本, 文本型<br />
<br />
返回的json文本 ＝ 编码_utf8到gb2312 (子文本替换 (到文本 (网页_访问 (“<a href="https://docs.qq.com/dop-api/opendoc?id=" target="_blank">https://docs.qq.com/dop-api/opendoc?id=</a>” ＋ 文本_取右边 (链接, “/”) ＋ “&normal=0&t=” ＋ 时间_取现行时间戳 (假), 0, , , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64)”)), 到文本 ({ 13 }), 到文本 ({ 10 }), , , 真))<br />
.如果 (寻找文本 (返回的json文本, “attribs”, , 假) ＝ 1)<br />
    临时文本 ＝ 子文本替换 (返回的json文本, “attribs”, “”, , 1, 真) ＋ 到文本 ({ 10 }) ＋ “attribs”  ' 防止attribs在第一位<br />
    x ＝ 7<br />
.否则<br />
    临时文本 ＝ 返回的json文本<br />
.如果结束<br />
临时文本2 ＝ 临时文本<br />
.判断循环首 (取反 (是否可以))<br />
    .如果真 (文本_取出现次数 (临时文本2, “text”) ＝ -1)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    text ＝ 子文本替换 (文本_取出中间文本 (临时文本2, “text”, “text”), “ ”, “”, , , 真)<br />
    临时文本2 ＝ 子文本替换 (临时文本2, “text”, “w”, , 1, 真)<br />
    去除数量 ＝ 去除数量 ＋ 3<br />
    ' 调试输出 (到字节集 (text), 到字节集 (“”), 到字节集 (“ ”), 到字节集 (#换行符))<br />
    .如果真 (到字节集 (text) ＝ { 10 })<br />
        int ＝ 寻找文本 (临时文本2, “text”, , 假) ＋ 4  ' 将第二给text过掉<br />
        .判断循环首 (取文本中间 (临时文本2, int, 1) ≠ “{”)<br />
            int ＝ int ＋ 1<br />
            ' 调试输出 (取文本中间 (临时文本2, int, 1))<br />
        .判断循环尾 ()<br />
        是否可以 ＝ 真<br />
        int ＝ int ＋ 去除数量 ＋ x<br />
    .如果真结束<br />
<br />
.判断循环尾 ()<br />
临时文本2 ＝ 临时文本<br />
' 调试输出 (取文本中间 (返回的json文本, int, 1))<br />
去除数量 ＝ 0<br />
.计次循环首 (文本_取出现次数 (返回的json文本, “attribs”), )  ' 防止多个attribs<br />
    ' 调试输出 (临时文本2)<br />
    i ＝ 寻找文本 (临时文本2, “attribs”, , 假) － 2<br />
    ' 调试输出 (取文本中间 (临时文本2, i, 7))<br />
    .如果真 (取文本中间 (临时文本2, i, 1) ＝ “}” 或 取文本中间 (临时文本2, i － 1, 1) ＝ “}”)<br />
        i ＝ i ＋ 去除数量 ＋ x<br />
        .如果真 (取文本中间 (临时文本2, i － 1, 1) ＝ “}”)<br />
            i ＝ i － 1<br />
        .如果真结束<br />
        临时文本 ＝ 取文本中间 (返回的json文本, int, i － int ＋ 1)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    临时文本2 ＝ 子文本替换 (临时文本2, “attribs”, “w”, , 1, 真)<br />
    去除数量 ＝ 去除数量 ＋ 6<br />
.计次循环尾 ()<br />
' 调试输出 (临时文本)<br />
' 临时文本 ＝ 子文本替换 (临时文本, “\”, “/”, , , 真)<br />
json.解析 (子文本替换 (临时文本, “\r\u000f\u001e\u001e\u001e\u001e\u001e\u001e\u001e”, “”, , , 真), 真, 错误原因)<br />
返回文本 ＝ json.取通用属性 (“commands[0].mutations[0].s”)<br />
.如果真 (返回文本 ＝ “”)<br />
    输出调试文本 (返回的json文本)<br />
.如果真结束<br />
返回文本 ＝ 子文本替换 (返回文本, 到文本 ({ 13 }), #换行符, , , 真)<br />
返回 (返回文本)