以文本方式查看主题 - 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) |