压缩JSON

CompressJson是Foxtable提供的一个用于压缩JSON字符串的函数，该函数的参数可以是一个JObject或JArray，也可以是一个JSON字符串。

我们知道JObject等的ToString方法，输出的JSON字符串是经过格式化的，存在空格缩进和换行，以方便阅读。

例如：

Dim json As String = "{'touser':['zhansan', 'lisi'],'msgtype':'text'}"
Dim jo As JObject = JObject.Parse(json)
Output.Show(jo.ToSTring)

输出结果为：

{
  "touser": [
    "zhansan",
    "lisi"
  ],
  "msgtype": "text"
}

如果用CompressJson函数输出，则会压缩掉多余的空格和换行，例如：

Dim json As String = "{'touser':['zhansan', 'lisi'],'msgtype':'text'}"
Dim jo As JObject = JObject.Parse(json)
Output.Show(CompressJson(jo))

输出结果为：

{"touser":["zhansan","lisi"],"msgtype":"text"}

如果你需要在数据库中存储JSON字符串，先用CompressJson压缩一下比较合适。