Json数据生成小例子源码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 json, 类_Json
.程序集变量 _json, 类_Json

.子程序 __启动窗口_创建完毕

json.置属性数值 (“int”, 20161020.2041)  ' 基本演示
json.置属性 (“Text”, “测试文本”, )
编辑框1.内容 ＝ json.取数据文本 ()

.子程序 _按钮1_被单击

' 成员演示
json.清除 ()
_json.清除 ()
_json.置属性 (“test”, “测试1”, )
json.加成员 (_json.取数据文本 (), “成员”, 真)
_json.清除 ()
_json.置属性 (“test”, “测试2”, )
json.加成员 (_json.取数据文本 (), “成员”, 真)
_json.清除 ()
_json.置属性 (“test”, “测试3”, )
json.加成员 (_json.取数据文本 (), “成员”, 真)
编辑框1.内容 ＝ json.取数据文本 ()
' 编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “”, “”, , , 真)

@东坡