以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]编码生成JSON  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=163008)

--  作者:天一生水
--  发布时间:2021/4/20 16:15:00
--  [求助]编码生成JSON
老师好!
我想得到下图中的格式,name不带引号,具体的值是单引号,并且name和value成为一行。需要怎样修改代码?


图片点击可在新窗口打开查看此主题相关图片如下:截屏图片.jpg
图片点击可在新窗口打开查看

代码:
Dim jo As New JObject
Dim ja As New JArray
jo("dept") = "销售部"
jo("mpr") = "赵刚"
jo("staff") =  ja \'
ja.Add(New JObject) \'给数组添加两个对象成员
ja.Add(New JObject)
ja(0)("value") = 36
ja(0)("name") = "李云龙"
ja(1)("value") = 26
ja(1)("name") = "黄晓明"
Output.Show(jo.ToString)

输出结果:
{
  "dept": "销售部",
  "mpr": "赵刚",
  "staff": [
    {
      "value": 36,
      "name": "李云龙"
    },
    {
      "value": 26,
      "name": "黄晓明"
    }
  ]
}

--  作者:有点蓝
--  发布时间:2021/4/20 16:25:00
--  
上面红框这种不是json,是js对象。理论上在js里都可以用的,不需要顾忌是否有双引号。

如果要做自己替换一下,比如

dim  s as string = jo.ToString
s = s.replace("""value""","value").replace("""name""","name") \'.replace(xxxxx
msgbox(s)