|
发表于 2025-2-16 22:28:04
|
显示全部楼层
广东省东莞市
.版本 2
.支持库 spec
.子程序 base, 文本型
.局部变量 base64arr, 文本型, , "0"
.局部变量 base64str, 文本型
.局部变量 indicesToRemove, 字节型, , "0"
.局部变量 i, 整数型
.局部变量 index, 字节型
.局部变量 indicesToRemoveLength, 整数型
.局部变量 ii, 双精度小数型
.局部变量 newData, 文本型
.局部变量 str, 文本型
.局部变量 json, 类_json
' base64str = 到文本 (编码_BASE64解码 (#常量1, ))
base64str = #常量1
str = 编码_Utf8到Ansi (编码_BASE64解码 (base64str, ))
.如果真 (json.解析 (str, , ))
调试输出 (str)
返回 (str)
.如果真结束
文本_逐字分割 (base64str, base64arr)
indicesToRemove = { 0, 1, 2, 4, 5, 36, 47, 48, 59, 96, 107 }
indicesToRemoveLength = 取数组成员数 (indicesToRemove)
.计次循环首 (indicesToRemoveLength, i)
ii = indicesToRemoveLength - i + 1
index = indicesToRemove [ii]
' 调试输出 (index)
.如果真 (index ≥ 0 且 index < 取数组成员数 (base64arr))
删除成员 (base64arr, index + 1, 1)
.如果真结束
.计次循环尾 ()
newData = 数组_合并 (base64arr, “”)
调试输出 (newData)
str = 编码_Utf8到Ansi (编码_BASE64解码 (newData, ))
调试输出 (str)
返回 (str)
|
评分
-
参与人数 2 | 好评 +1 |
精币 +3 |
荣誉 +1 |
收起
理由
|
笨潴
| |
|
+ 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
番茄吧
| + 1 |
+ 3 |
|
YYDS~! |
查看全部评分
|