[求助]编码生成JSON - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2356人关注过本帖树形打印复制链接主题：[求助]编码生成JSON

天一生水

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1137 积分：11224 威望：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

加好友

发短信

等级：超级版主帖子：106178 积分：540007 威望：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)

下一主题 >> << 上一主题

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