http://blog.8s.cm/index.php/archives/14/

演示截图

JSon[普通型]

首先呢就是创建一个【公用模块】，然后以下是公用模块里面的函数，直接复制就行了。

静态 函数 json(源码 为 文本型,类名 为 文本型)为 文本型
    变量 取出值 为 文本型
    源码 = UCS2解码(源码)
    取出值 = 取指定文本2(源码,代码转字符(34) & 类名 & 代码转字符(34) & ":" & 代码转字符(34) , 代码转字符(34))
    如果 取出值 = "" 则
        取出值 = 取指定文本2(源码,代码转字符(34) & 类名 & 代码转字符(34) & ":" , ",")
    结束 如果
    如果 取出值 = "" 则
        取出值 = 取指定文本2(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , "}")
    结束 如果
    如果 取出值 = "" 则
        取出值 = 取指定文本2(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , "]")
    结束 如果
    json=取出值
结束 函数 

接下来调用这个函数很简单：
例如：【公用模块.json(源码,"code")】，就是这么简单直接调用！
这边就是举个例子，实际操作按照你们自己json项名来写就行了

 Json[数组型]

还是创建一个【公用模块】，然后以下是公用模块里面的函数，直接复制就行了。

静态 函数 json2(源码 为 文本型,类名 为 文本型)为 文本型()
    变量 取出值 为 文本型()
    源码 = UCS2解码(源码)
    取出值 = 取指定文本(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" & 代码转字符(34) , 代码转字符(34))
    如果 取数组成员数(取出值) = 0 则
        取出值 = 取指定文本(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , ",")
    结束 如果
    如果 取数组成员数(取出值) = 0 则
    取出值 = 取指定文本(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , "}")
    结束 如果
    如果 取数组成员数(取出值) = 0 则
    取出值 = 取指定文本(源码, 代码转字符(34) & 类名 & 代码转字符(34) & ":" , "]")
    结束 如果
    json2=取出值
结束 函数 

接下来调用这个函数很简单：
例如：【公用模块.json2(源码,"XX")】，就是这么简单直接调用！
这边就是举个例子，实际操作按照你们自己json项名来写就行了
不过数组他是文本型()，所以例如在列表框里面使用就要像【公用模块.json2(源码,"XX")(计次)】这样子，还是看不懂的看我下面代码。

变量 循环变量 为 整数型 = 0 判断循环首 循环变量<取数组成员数(公用模块.json2(源码,"id"))
    列表框1.添加项目（公用模块.json2(源码,"id")(循环变量)）
循环变量 = 循环变量 +1 判断循环尾