采用json格式超级列表框保存与读取源码

.计次循环首 (超级列表框.取表项数 (), i)
写入值 ＝ “”
.计次循环首 (超级列表框.取列数 (), j)
' 写入值 ＝ 写入值 ＋ 超级列表框.取列标题 (j － 1) ＋ “：” ＋ 超级列表框.取标题 (i － 1, j － 1) ＋ “；”
子json.置属性 (超级列表框.取列标题 (j － 1), 编码_URL编码 (超级列表框.取标题 (i － 1, j － 1), , ), )
调试输出 (超级列表框.取列标题 (j － 1))
.计次循环尾 ()
调试输出 (子json.取数据文本 ())
' json.置属性 (“data[” ＋ 到文本 (i － 1) ＋ “]”, 子json.取数据文本 (), 真)
' json.置成员 (i － 1, 子json., 真)
' json.加成员 (“data”, 子json.取数据文本 (), 真)
json.加成员 (子json.取数据文本 (), “data”, 真)
.计次循环尾 ()