[求助]json数据修改新增我有一堆数据想放在一个字符串里，又能对指定内容进行修改。该怎么写才好？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]json数据修改新增我有一堆数据想放在一个字符串里，又能对指定内容进行修改。该怎么写才好？

共有4533人关注过本帖树形打印复制链接主题：[求助]json数据修改新增我有一堆数据想放在一个字符串里，又能对指定内容进行修改。该怎么写才好？

有点蓝

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

等级：超级版主帖子：112393 积分：572233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/5 14:27:00 [显示全部帖子]

如果是json数据，解析后直接赋值

Dim json As String = "{'name':'李云龙','card':['工行','建行']}"

Dim jo As JObject = JObject.Parse(json)

jo("name") = "xxxx1"

jo("card")(1) = "xxx2"

msgbox(jo.tostring)

有点蓝

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

等级：超级版主帖子：112393 积分：572233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/5 16:03:00 [显示全部帖子]

Dim json As String = "{'name':'李云龙','card':['工行','建行']}"

Dim jo As JObject = JObject.Parse(json)

jo.Remove("name")

jo("card")(1).Remove

msgbox(jo.tostring)

有点蓝

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

等级：超级版主帖子：112393 积分：572233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/7 22:58:00 [显示全部帖子]

Dim json As String = "{'name':'李云龙','card':['工行','建行']}"

Dim jo As JObject = JObject.Parse(json)

Dim ja As JArray = jo("card")

ja.add("农行")

msgbox(jo.tostring)

主题：[求助]json数据修改新增我有一堆数据想放在一个字符串里，又能对指定内容进行修改。该怎么写才好？