|
发表于 2013-12-6 21:35:23
|
显示全部楼层
重庆市重庆市
上个图和代码吧
[e]
.版本 2.支持库 json.支持库 iext.程序集 窗口程序集1.子程序 _按钮1_被单击.局部变量 json, JSON.局部变量 json2, JSON.局部变量 i, 整数型.局部变量 sy, 整数型.如果 (json.解析 (编辑框1.内容)) .计次循环首 (json.成员数 (), i) 处理事件 () json2 = json.取成员 (i - 1) sy = 超级列表框2.插入表项 (, , , , , ) 超级列表框2.置标题 (sy, 0, 序1 (json2.取属性 (“User”).到文本 ())) 超级列表框2.置标题 (sy, 1, 序1 (json2.取属性 (“U”).到文本 ())) 超级列表框2.置标题 (sy, 2, 序1 (json2.取属性 (“Card”).到文本 ())) 超级列表框2.置标题 (sy, 3, 序1 (json2.取属性 (“P”).到文本 ())) 超级列表框2.置标题 (sy, 4, 序1 (json2.取属性 (“E”).到文本 ())) 超级列表框2.置标题 (sy, 5, 序1 (json2.取属性 (“S”).到文本 ())) 超级列表框2.置标题 (sy, 6, 序1 (json2.取属性 (“Ev”).到文本 ())) 超级列表框2.置标题 (sy, 7, 序1 (json2.取属性 (“WT”).到文本 ())) .计次循环尾 ().否则.如果结束.子程序 序1, 文本型.参数 wbb, 文本型返回 (子文本替换 (wbb, #引号, “”, , , 真))
[/e] |
-
群森软件
|