JSON导入导出

liudi1990

今天在论坛里面逛了逛，发现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	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _转换为JSON格式_被选择<br /> .局部变量 临时变量, 类_json<br /> .局部变量 json, 类_json<br /> .局部变量 计数, 整数型<br /> .局部变量 JSON_文本, 文本型<br /> .局部变量 文件号, 整数型<br /> <br /> .如果真 (通用对话框1.打开 ())<br /> <br />     文件号 ＝ 打开文件 (通用对话框1.文件名, #写出, #无限制)<br /> <br /> <br />     .计次循环首 (超级列表框1.取表项数 (), 计数)<br />         临时变量.置属性 (“设备编号”, 超级列表框1.取标题 (计数 － 1, 0), )<br />         临时变量.置属性 (“设备名称”, 超级列表框1.取标题 (计数 － 1, 1), )<br />         临时变量.置属性 (“设备IP地址”, 超级列表框1.取标题 (计数 － 1, 2), )<br />         临时变量.置属性 (“设备安装位置”, 超级列表框1.取标题 (计数 － 1, 3), )<br />         json.加成员 (临时变量.取数据文本 (), “设备信息”, 真)<br />     .计次循环尾 ()<br /> <br />     写出文本 (文件号, json.取数据文本 ())<br />     关闭文件 (文件号)<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _导入JSON到列表框_被选择<br /> .局部变量 json, 类_json<br /> .局部变量 计数, 整数型<br /> .局部变量 属性名数组, 文本型, , "0"<br /> .局部变量 临时变量, 类_json<br /> .局部变量 JSON_文本, 文本型<br /> .局部变量 文件号, 整数型<br /> <br /> <br /> .如果真 (通用对话框1.打开 ())<br />     文件号 ＝ 打开文件 (通用对话框1.文件名, #读入, #无限制)<br />     JSON_文本 ＝ 读入文本 (文件号, )<br />     关闭文件 (文件号)<br />     json.解析 (JSON_文本)<br /> <br />     超级列表框1.全部删除 ()<br /> <br />     .计次循环首 (json.成员数 (“设备信息”), 计数)<br /> <br />         临时变量 ＝ json.取成员 (计数 － 1, “设备信息”)<br /> <br />         超级列表框1.插入表项 (-1, 临时变量.取通用属性 (“设备编号”, 假), , , , )<br />         超级列表框1.置标题 (计数 － 1, 1, 临时变量.取通用属性 (“设备名称”, 假))<br />         超级列表框1.置标题 (计数 － 1, 2, 临时变量.取通用属性 (“设备IP地址”, 假))<br />         超级列表框1.置标题 (计数 － 1, 3, 临时变量.取通用属性 (“设备安装位置”, 假))<br />     .计次循环尾 ()<br /> <br /> <br /> .如果真结束

whh365

http://www.aoshitang.com/ssoLogin.action?jsoncallback=jQuery17109726212797518913_1517271629002&funName=indexLogin&username=wbx976&token=1ba58dedf2b3f9954b0520bbafaf1e583d966e5de8bd513d0ed7349e060ce4f53d00e55bc97ae615d75a9ca1da0cfbc902a39d26834538e624e9008d403942a788feae66bec2246012d0c637b3d7ab2089e3727a4a661c44034b0f695cb1a84399e58d488be0c3f17a55250cfd86453a69b46a27836682e7982ec9895715689a&remember=true&_=1517271663968

k5223215

75.85 KB, 下载次数: 30, 下载积分: 精币 -1 枚

﹎老氓子℡

学习学习Js  一点都不懂呢,

落款hMZ

https://125.confly.eu.org/forum.php?mod=viewthread&tid=14039199

JYrenw20170507

这个效率怎么样呀.亲.

liudi1990

为啥我发帖总是有乱码？

liudi1990

不好意思忘记打包了，各位又要多花一枚精币。。。