TX文档文本解析(可用于云更新)

dat恶人

调用了精易模块这里就不多说了

  

子程序名	返回值类型	公开	备 注
取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=" rel="nofollow" rel="nofollow" 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 /> 返回 (返回文本)

代码放这里了,有要的自己拿
例程(代码都一样):
TX文档解析.e (2 MB, 下载次数: 70)

2023-9-22 21:07 上传

点击文件名下载附件
例程

lnbpwy2020

sz173510443

111111111111

胖子葛格

感谢大神分享~！

ywhywh1

大哥能不能做个取TX在线表格的？

悸动的青春

能不能来个tx云文档创建的接口，返回地址

nike2005

学习学习

Aat慕

感谢大佬分享

Akari

技能已get√

芝麻5288

TX文档文本解析(可用于云更新)