|
发表于 2021-12-27 09:55:34
|
显示全部楼层
安徽省合肥市
可以自己加啊,比如我就不喜欢json一个一个生成
直接加了这个
.版本 2
.子程序 置通用属性, 逻辑型, 公开
.参数 属性名, 文本型
.参数 值, 文本型
.局部变量 i, 整数型
.局部变量 index, 整数型
.局部变量 局_json, 类_json
.局部变量 属性数组, 文本型, , "0"
属性数组 = 分割文本 (子文本替换 (属性名, “[”, “.”, , , 真), “.”, )
.如果真 (取数组成员数 (属性数组) = 1)
返回 (置属性 (属性数组 [1], 值, ))
.如果真结束
index = 取数组成员数 (属性数组)
.如果真 (寻找文本 (属性数组 [index], “]”, , 假) ≠ -1)
属性数组 [index] = “[” + 属性数组 [index]
.如果真结束
局_json.置属性 (属性数组 [index], 值, )
值 = 局_json.取数据文本 ()
局_json.清除 ()
.计次循环首 (index - 2, i)
.如果真 (寻找文本 (属性数组 [index - i], “]”, , 假) ≠ -1)
属性数组 [index - i] = “[” + 属性数组 [index - i]
.如果真结束
局_json.置属性对象 (属性数组 [index - i], 值)
值 = 局_json.取数据文本 ()
局_json.清除 ()
.计次循环尾 ()
返回 (置属性 (属性数组 [1], 值, 真))
|
|