精易论坛

标题: JSON导入导出 [打印本页]

作者: liudi1990    时间: 2017-10-20 21:33
标题: JSON导入导出
本帖最后由 liudi1990 于 2017-10-20 23:25 编辑

今天在论坛里面逛了逛,发现POST好像很火热。要POST经常会用到JSON,JSON解析成数据大家都不陌生了,但是数据转JSON还有些疑问,于是呢我帮大家写了一个JSON双向转换的小程序供大家参考!本人菜鸟一枚,初来乍到,还请大神多多包含!那下面就给大家上源码:
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  

子程序名返回值类型公开备 注
_转换为JSON格式_被选择  
变量名类 型静态数组备 注
临时变量类_json 
json类_json 
计数整数型 
JSON_文本文本型 
文件号整数型 
如果真 (通用对话框1.打开 ())
文件号 = 打开文件 (通用对话框1.文件名, #写出, #无限制 )
计次循环首 (超级列表框1.取表项数 (), 计数)
临时变量.置属性 (“设备编号”, 超级列表框1.取标题 (计数 - 1, 0), )
临时变量.置属性 (“设备名称”, 超级列表框1.取标题 (计数 - 1, 1), )
临时变量.置属性 (“设备IP地址”, 超级列表框1.取标题 (计数 - 1, 2), )
临时变量.置属性 (“设备安装位置”, 超级列表框1.取标题 (计数 - 1, 3), )
json.加成员 (临时变量.取数据文本 (), “设备信息”, )
计次循环尾 ()
写出文本 (文件号, json.取数据文本 ())
关闭文件 (文件号)

子程序名返回值类型公开备 注
_导入JSON到列表框_被选择  
变量名类 型静态数组备 注
json类_json 
计数整数型 
属性名数组文本型0
临时变量类_json 
JSON_文本文本型 
文件号整数型 
如果真 (通用对话框1.打开 ())
文件号 = 打开文件 (通用对话框1.文件名, #读入, #无限制 )
JSON_文本 = 读入文本 (文件号, )
关闭文件 (文件号)
json.解析 (JSON_文本)
超级列表框1.全部删除 ()
计次循环首 (json.成员数 (“设备信息”), 计数)
临时变量 = json.取成员 (计数 - 1, “设备信息”)
超级列表框1.插入表项 (-1, 临时变量.取通用属性 (“设备编号”, ), , , , )
超级列表框1.置标题 (计数 - 1, 1, 临时变量.取通用属性 (“设备名称”, ))
超级列表框1.置标题 (计数 - 1, 2, 临时变量.取通用属性 (“设备IP地址”, ))
超级列表框1.置标题 (计数 - 1, 3, 临时变量.取通用属性 (“设备安装位置”, ))
计次循环尾 ()


i支持库列表   支持库注释   
iext扩展界面支持库一




JSON导入导出.zip

175.85 KB, 下载次数: 44, 下载积分: 精币 -2 枚


作者: liudi1990    时间: 2017-10-20 21:35
不好意思忘记打包了,各位又要多花一枚精币。。。
作者: liudi1990    时间: 2017-10-20 21:37
为啥我发帖总是有乱码?
作者: JYrenw20170507    时间: 2017-10-21 10:23
这个效率怎么样呀.亲.
作者: 落款hMZ    时间: 2017-10-26 03:02
提示: 作者被禁止或删除 内容自动屏蔽
作者: ﹎老氓子℡    时间: 2017-10-31 19:53
学习学习Js  一点都不懂呢,
作者: k5223215    时间: 2018-1-31 00:18
75.85 KB, 下载次数: 30, 下载积分: 精币 -1 枚
作者: whh365    时间: 2018-1-31 14:58
http://www.aoshitang.com/ssoLogin.action?jsoncallback=jQuery17109726212797518913_1517271629002&funName=indexLogin&username=wbx976&token=1ba58dedf2b3f9954b0520bbafaf1e583d966e5de8bd513d0ed7349e060ce4f53d00e55bc97ae615d75a9ca1da0cfbc902a39d26834538e624e9008d403942a788feae66bec2246012d0c637b3d7ab2089e3727a4a661c44034b0f695cb1a84399e58d488be0c3f17a55250cfd86453a69b46a27836682e7982ec9895715689a&remember=true&_=1517271663968




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4