LispFunction JSON获取值

FELIX · 发表于 2021-4-22 23:50:12

[code]Dim JSLISTA = JsonConvert.DeserializeObject(JSON)
      For Each LL As String In JSLISTA
         'LL = {"id":9,"nserie0":"X9999","uname":"XXXXXX","cname":"YYYYYYY"}
         'ERROR = Conversion of type 'JObject' to type 'String' is not valid
         MsgBox(LL("id") & " - " & LL("nserie0") & " - " & LL("uname") & " - " & LL("cname")) '

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

n.yuan · 发表于 2021-4-23 08:45:44

您需要定义一个匹配JSON数据结构的类型/类:类似于(抱歉，用C#编写的代码):
public Class my object
{
public int id { set；get}
公共字符串nserie0 { setget}
公共字符串uname { setget}
公共字符串cname { setget}
}
在反序列化JSON字符串时，您需要
var jsList = JsonConvert。反序列化对象
(JSON string)；foreach(jsList中的var项)
{
MessageBox。show($ " id:{ item . id }-nserie0:{ item . nserie0 }-uname:{ item . uname }-cname:{ item . cname } ")；
}

FELIX · 发表于 2021-4-23 12:22:44

你的代码没有成功，因为JSLISTA是一个JSON数组，但是从你的代码中我成功地解决了它。
非常感谢您。

copy

Dim JSLISTA = JsonConvert.DeserializeObject(JSON) 'JSON / JSLISTA >>> ARRAY <<<
For Each JSL As Linq.JObject In JSLISTA
      MessageBox.Show($"id: {JSL.Item("id")} - nserie0: {JSL.Item("nserie0")} - uname: {JSL.Item("uname")} - cname: {JSL.Item("cname")}")
Next

LispFunction JSON获取值

发表回复

精选推荐