共14 条记录, 每页显示 10 条, 页签: [1] [2]

标题：[求助]求教一段json解析代码

1楼

xubing051018 发表于：2024/2/29 18:30:00

接口返回来一段结果数据，格式如下

{"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

2楼

有点蓝 发表于：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

3楼

xubing051018 发表于：2024/3/1 9:04:00

没有用呀，根本进不去for循环呀

4楼

有点蓝 发表于：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)

5楼

xubing051018 发表于：2024/3/1 9:29:00

报错，未讲对象引用设置到对象的实例

6楼

有点蓝 发表于：2024/3/1 9:39:00

这种提示一般是名称用错了，或者这个节点没有数据

7楼

xubing051018 发表于：2024/3/1 9:53:00

代码和执行画面入下，数据肯定是有的，有很多

至于名称错了，帮忙看下代码，具体哪里没对

8楼

xubing051018 发表于：2024/3/1 9:59:00

[此贴子已经被作者于2024/3/1 10:00:24编辑过]

9楼

有点蓝 发表于：2024/3/1 10:00:00

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

10楼

xubing051018 发表于：2024/3/1 10:04:00

Dim ja As JArray = JArray.Parse(ResultData("Result").Tostring)

运行到这句代码报错，未将对象引用设置到对象的实例

[此贴子已经被作者于2024/3/1 10:04:27编辑过]

共14 条记录, 每页显示 10 条, 页签: [1] [2]