<转帖>JimStone(谢栋) - JSON模块：STJson(开源+示例) - 纯核心库打造

半夏时光

原帖地址是http://bbs.eyuyan.com/read.php?tid=365575
这个模块中的object键值对象是通过易语言自带的  数据结构  支持库的  表  实现的，我上上一篇 Redis协议的贴子里有人提到过易语言的键值实现，用表对象 差不多是仅有的可靠的选择，保证没有使用 正则这些的哦。
对于超大文件解析神马的应该也问题不大，几百K，几M神马的应该没太大压力，几十M上百M没试过，速度应该也是很快的，只是，树形框控件加载就不行了，所以示例窗口里边的那个不适合太大量的数据塞进去，要测试大数据，就把显示在树形框里的方法注释掉，自己调试输出处理结果这些的。
多简单多好用的示例：

  

变量名	类 型	静态	数组	备 注
json	STJson

编辑框2.内容 ＝ json.ToJsonString (json.Parse (编辑框1.内容))

.版本 2<br /> .局部变量 json, STJson<br /> 编辑框2.内容 ＝ json.ToJsonString (json.Parse (编辑框1.内容))

这行代码的作用是这样的，解析 编辑框1 的内容到JSON对象，然后，将JSON对象输出为文本(默认参数输出为阅读友好的文本)。结果如下
构造JSON对象

  

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
json	STJson

变量名	类 型	静态	数组	备 注
root	STJsonValue
children	STJsonValue
list	STJsonValue
jsonString	文本型

' // 创建数组
list.Add (json.CreateStringValue (“猛龙”))
list.Add (json.CreateStringValue (“过”))
list.Add (json.CreateStringValue (“小沟”))
' // 创建对象
children.Put (“Jim”, json.CreateStringValue (“好孩子”))
children.Put (“Stone”, json.CreateStringValue (“大娃娃”))
' // 根对象
root.Put (“string_value”, json.CreateStringValue (“I'm a good Boy” ＋ #引号 ＋ #换行符 ＋ “  DD”))
root.Put (“bool_value”, json.CreateBoolValue (真))
root.Put (“long_value”, json.CreateLongValue (1))
root.Put (“double_value”, json.CreateDoubleValue (1.8))
' // 测试删除
root.Put (“test”, json.CreateNullValue ())
root.Remove (“test”)  ' 删除对象成员
list.Add (json.CreateStringValue (“小白白”))
list.RemoveAt (list.Size ())  ' 删除数组成员
' /** 空 **/
root.Put (“empty”, json.CreateNullValue ())
' /** 数组(列表) **/
root.Put (“list”, list)
' /** 子对象 **/
root.Put (“children”, children)
jsonString ＝ json.ToJsonString (root) ‘// 这里生成的就是JSON格式文本了，这个方法有 4 个参数，可以控制生成的格式

.版本 2<br /> <br /> .程序集变量 json, STJson<br /> <br /> <br /> .局部变量 root, STJsonValue<br /> .局部变量 children, STJsonValue<br /> .局部变量 list, STJsonValue<br /> .局部变量 jsonString, 文本型<br /> <br /> ' // 创建数组<br /> list.Add (json.CreateStringValue (“猛龙”))<br /> list.Add (json.CreateStringValue (“过”))<br /> list.Add (json.CreateStringValue (“小沟”))<br /> <br /> ' // 创建对象<br /> children.Put (“Jim”, json.CreateStringValue (“好孩子”))<br /> children.Put (“Stone”, json.CreateStringValue (“大娃娃”))<br /> <br /> ' // 根对象<br /> root.Put (“string_value”, json.CreateStringValue (“I'm a good Boy” ＋ #引号 ＋ #换行符 ＋ “  DD”))<br /> root.Put (“bool_value”, json.CreateBoolValue (真))<br /> root.Put (“long_value”, json.CreateLongValue (1))<br /> root.Put (“double_value”, json.CreateDoubleValue (1.8))<br /> <br /> ' // 测试删除<br /> root.Put (“test”, json.CreateNullValue ())<br /> root.Remove (“test”)  ' 删除对象成员<br /> list.Add (json.CreateStringValue (“小白白”))<br /> list.RemoveAt (list.Size ())  ' 删除数组成员<br /> <br /> ' /** 空 **/<br /> root.Put (“empty”, json.CreateNullValue ())<br /> ' /** 数组(列表) **/<br /> root.Put (“list”, list)<br /> ' /** 子对象 **/<br /> root.Put (“children”, children)<br /> <br /> jsonString ＝ json.ToJsonString (root) ‘// 这里生成的就是JSON格式文本了，这个方法有 4 个参数，可以控制生成的格式

生成JSON方法：json对象(STJson) 的 ToJsonString 方法为将 json值对象(STJsonValue) 转换为 JSON 文本。json对象包含了 创建 文本、数值、逻辑型、文本型 和 空 的 JSON 值对象。
解析JSON的内容

版权说明

     可以自由使用，不需要付费神马的。

    如果要修改本模块的代码，请在模块说明中保留原作者(JimStone(谢栋) - 神2)相关信息。
   
    如果有人想对本库(模块)的方法名称等进行翻译，翻译后发布时务请必保留原作者(Me....me...me)的相关信息。
    如果问我为毛是英文的，这个主要是个人命名习惯，见谅见谅。

魔方软件

先占个沙发，没好评了。

柠萌

大神就是大神！~

岩途

搬运工

花小远

        支持开源~！感谢分享

浪漫

好东西哈！！！！

mythleng

支持开源，谢谢分享

冰主

什么的，什么的。。。

q949881419

哈哈 不错不错

robbe

这个看着不错，最恶心用js对象