以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  有更有效的方法来更新JSON文件吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153199)

--  作者：fczhaobo --  发布时间：2020/8/3 21:08:00 --  有更有效的方法来更新JSON文件吗？ 有一个json文件，想替换里面的单项值，如何修改呢？

--  作者：有点蓝 --  发布时间：2020/8/3 21:16:00 --   Dim json As String = "{\'name\':\'李云龙\',\'age\':\'36\'}" Dim jo As JObject = JObject.Parse(json) jo("name") = “李四” Output.Show(jo.tostring)

--  作者：fczhaobo --  发布时间：2020/8/3 22:18:00 --   Dim jo As JObject = Jobject.Parse(jsontxt) If jo("BLOCKS") IsNot Nothing Then     For Each jt As JToken In jo("BLOCKS")         i  = Tables("语音识别临时表").FindRow("结束编码=\'" & jt("time_end").ToString & "\'")         r=Tables("语音识别临时表").Rows(i)         jt("text")=r("识别内容")         jt.ToString         jo.ToString     Next End If FileSys.WriteAllText("e:\\test\\table.txt",jo.Tostring, False, Encoding.UTF8)

--  作者：fczhaobo --  发布时间：2020/8/3 22:20:00 --   目的是在一个json里根据数据库的内容进行更新，然后重新生成一个JSON，老是出错 此主题相关图片如下：微信图片_20200803221838.png

--  作者：fczhaobo --  发布时间：2020/8/3 22:21:00 --    jt("text")=r("识别内容") 就是这行出错，请老师给看看 [此贴子已经被作者于2020/8/3 22:21:35编辑过]

--  作者：有点蓝 --  发布时间：2020/8/3 22:28:00 --   jt("text")=cstr(r("识别内容"))

--  作者：fczhaobo --  发布时间：2020/8/3 22:35:00 --   解决了，谢谢