- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求教一段json解析代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190724)
-- 发布时间：2024/2/29 18:30:00
-- [求助]求教一段json解析代码
接口返回来一段结果数据，格式如下
{"status":"0","message":"","result":"[{\\"Row\\":5,\\"Column\\":1,\\"ItemNumber\\":\\"1000.01\\",\\"ItemName\\":\\"货币资金\\",\\"ItemDataTypeNumber\\":\\"2\\",\\"ItemDataTypeName\\":\\"期末数\\",\\"Year\\":2023,\\"Period\\":10,\\"Amount\\":9758072.27,\\"ItemFormula\\":\\"Item(1000.01,0,0,2)\\"},{\\"Row\\":5,\\"Column\\":2,\\"ItemNumber\\":\\"1000.01\\",\\"ItemName\\":\\"货币资金\\",\\"ItemDataTypeNumber\\":\\"1\\",\\"ItemDataTypeName\\":\\"年初数\\",\\"Year\\":2023,\\"Period\\":10,\\"Amount\\":1323988.8,\\"ItemFormula\\":\\"Item(1000.01,0,0,1)\\"}]"}
我参照帮忙文档进行解析，
解析代码如下，但是解析不成功，没有进入循环，请教是哪里弄错了。
Dim jo As JObject = JObject.Parse(json) \'json变量存储了接口返回的数据
For Each jt As JToken In jo("result")
Output.Show(jt("Row").ToString & "|" & jt("ItemName").ToString)
Next
For Each jt As JToken In jo("result")
Output.Show(jt("Row").ToString & "|" & jt("ItemName").ToString)
Next
-- 发布时间：2024/2/29 20:28:00
--
Dim jo As JObject = JObject.Parse(json) \'json变量存储了接口返回的数据
For Each jt As JToken In jo("result")
Dim jo2 As JObject = JObject.Parse(jt.ToString)
Output.Show(jo2("Row").ToString & "|" & jo2("ItemName").ToString)
Next
Output.Show(jo2("Row").ToString & "|" & jo2("ItemName").ToString)
Next
-- 发布时间：2024/3/1 9:04:00
--
没有用呀，根本进不去for循环呀
-- 发布时间：2024/3/1 9:13:00
--
Dim jo As JObject = JObject.Parse(json) \'json变量存储了接口返回的数据
Dim ja As JArray = Jarray.Parse(jo("result").ToString)
For Each jt As JToken In ja
Output.Show(jt("Row").ToString & "|" & jt("ItemName").ToString)
Next
-- 发布时间：2024/3/1 9:29:00
--
报错，未讲对象引用设置到对象的实例
-- 发布时间：2024/3/1 9:39:00
--
这种提示一般是名称用错了，或者这个节点没有数据
-- 发布时间：2024/3/1 9:53:00
--
代码和执行画面入下，数据肯定是有的，有很多
至于名称错了，帮忙看下代码，具体哪里没对
-- 发布时间：2024/3/1 9:59:00
--
[此贴子已经被作者于2024/3/1 10:00:24编辑过]
-- 发布时间：2024/3/1 10:00:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错
-- 发布时间：2024/3/1 10:04:00
--
Dim ja As JArray = JArray.Parse(ResultData("Result").Tostring)
运行到这句代码报错，未将对象引用设置到对象的实例
[此贴子已经被作者于2024/3/1 10:04:27编辑过]