以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]json数据修改新增我有一堆数据想放在一个字符串里,又能对指定内容进行修改。该怎么写才好?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143833)

--  作者:zto001
--  发布时间:2019/12/5 13:28:00
--  [求助]json数据修改新增我有一堆数据想放在一个字符串里,又能对指定内容进行修改。该怎么写才好?
我有一堆数据想放在一个字符串里,又能对指定内容进行修改。该怎么写才好?
比如这样
(实在不知道用什么描述,找了个JSON做示例)
"{\'name\':\'李云龙\',\'card\':[\'工行\',\'建行\']}"
我想要修改 name 跟card中的第二个。

怎样才能实现?
[此贴子已经被作者于2020/2/4 23:41:47编辑过]

--  作者:sloyy
--  发布时间:2019/12/5 13:29:00
--  
写成xml文件,对xml进行读写
--  作者:有点蓝
--  发布时间: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)

--  作者:zto001
--  发布时间:2019/12/5 15:51:00
--  
我就是这样的效果。那就用json了
--  作者:zto001
--  发布时间:2019/12/5 15:54:00
--  
还有个问题,如果我删掉name 跟card中的第二个呢?
--  作者:有点蓝
--  发布时间: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)

--  作者:zto001
--  发布时间:2020/2/7 22:11:00
--  
Dim json As String = "{\'name\':\'李云龙\',\'card\':[\'工行\',\'建行\']}"

如何增加card下面的值?增加一个农行


--  作者:有点蓝
--  发布时间: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)