LispFunction JSON获取值
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")) '
**** Hidden Message *****
您需要定义一个匹配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 } ")；
}
你的代码没有成功，因为JSLISTA是一个JSON数组，但是从你的代码中我成功地解决了它。
非常感谢您。
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
页:
[1]