Foxtable(狐表)用户栏目专家坐堂 → [求助]编码生成JSON


  共有3441人关注过本帖树形打印复制链接

主题:[求助]编码生成JSON

帅哥哟,离线,有人找我吗?
天一生水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1141 积分:11272 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]编码生成JSON  发帖心情 Post By:2021/4/20 16:15:00 [只看该作者]

老师好!
我想得到下图中的格式,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": "黄晓明"
    }
  ]
}

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)

 回到顶部