炒鸡方便的直接置入json文本命令

xinhan2012

生成文本

暂时只写了置文本的，想要数值的自己改一下吧。

用精易模块的时候，发现没有那么方便直接置文本的命令，所以自己鼓捣了一个，因为基于精易模块写的，所有代码很少，我直接贴出来吧，就不上传文件了。

.版本 2
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 json, 类_json
.局部变量 i, 整数型
.计次循环首 (11, i)
    置json属性 (“data.a[” ＋ 到文本 (i － 1) ＋ “].name”, “名称” ＋ 到文本 (i), json)
    置json属性 (“data.a[” ＋ 到文本 (i － 1) ＋ “].value”, “数值” ＋ 到文本 (i), json)
    置json属性 (“data.b[” ＋ 到文本 (i － 1) ＋ “].name”, “名称” ＋ 到文本 (i), json)
    置json属性 (“data.b[” ＋ 到文本 (i － 1) ＋ “].value”, “数值” ＋ 到文本 (i), json)
    置json属性 (“data.c[” ＋ 到文本 (i － 1) ＋ “].name”, “名称” ＋ 到文本 (i), json)
    置json属性 (“data.c[” ＋ 到文本 (i － 1) ＋ “].value”, “数值” ＋ 到文本 (i), json)
    置json属性 (“data.d[” ＋ 到文本 (i － 1) ＋ “].name”, “名称” ＋ 到文本 (i), json)
    置json属性 (“data.d[” ＋ 到文本 (i － 1) ＋ “].value”, “数值” ＋ 到文本 (i), json)
.计次循环尾 ()
输出调试文本 (json.取xx文本 ())
返回 (0)  ' 可以根据您的需要返回任意数值
.子程序 置json属性
.参数 name, 文本型, , 属性名
.参数 value, 文本型, , 值
.参数 json, 类_json, 参考, json对象
.局部变量 i, 整数型
.局部变量 index, 整数型
.局部变量 局_json, 类_json
.局部变量 属性数组, 文本型, , "0"
属性数组 ＝ 分割文本 (子文本替换 (name, “[”, “.”, , , 真), “.”, )
.如果真 (取数组成员数 (属性数组) ＝ 1)
    json.置属性 (属性数组 [1], value, )
    返回 ()
.如果真结束
index ＝ 取数组成员数 (属性数组)
.如果真 (寻找文本 (属性数组 [index], “]”, , 假) ≠ -1)
    属性数组 [index] ＝ “[” ＋ 属性数组 [index]
.如果真结束
局_json.置属性 (属性数组 [index], value, )
value ＝ 局_json.取xx文本 ()
局_json.清除 ()
.计次循环首 (index － 2, i)
    .如果真 (寻找文本 (属性数组 [index － i], “]”, , 假) ≠ -1)
        属性数组 [index － i] ＝ “[” ＋ 属性数组 [index － i]
    .如果真结束
    局_json.置属性对象 (属性数组 [index － i], value)
    value ＝ 局_json.取xx文本 ()
    局_json.清除 ()
.计次循环尾 ()
json.置属性 (属性数组 [1], value, 真)





至于用途在哪，看怎么用了，直接存放xx也是不错的滴

bianyuan456

已经顶贴，感谢您对论坛的支持！

王小宝

顶帖                                                          ！！！！！1

wjswzj0

支持开源~！感谢分享

xinhan2012

applepear 发表于 2020-3-12 13:37
炒鸡是什么来的。没有附件下载

源码都在帖子里了，直接复制粘贴到易语言就OK了

applepear

炒鸡是什么来的。没有附件下载

杨明煜

好东西.................

xinhan2012

取数-据文本被屏蔽了，自己修改下