试图从JSON获取元素 [英] Trying to get element from JSON

问题描述

我需要能够从JSON中读取元素。我可以成功获取电子邮件地址和状态，但我无法导航到LOADEDFROM，通过merge_fields



Root：{{

会员：[

{

email_address：[e-mail]，

状态：已订阅 ，

merge_fields：{

FIRST_NAME：Fred，

LAST_NAME：Bloggs，

WEBSTATUS：SETPASSWORD，

LOADEDFROM：K2

}

}

]

}}



我尝试了什么：



Dim json As String = responseFromServer

Dim ser As JObject = JObject.Parse（json）

Dim data As List（Of JToken）= ser.Children（）。ToList



For Each item As JProperty In data

item.CreateReader（）

对于每个成员作为JObject在item.Values

Dim u As String = members（email_address）

Dim d As String = members（status）

'如何获得LOADEDFROM位？ ？

下一页

下一页



尝试了一些遍历的组合，但惨遭失败，我似乎总是get = nothing或无效引用。在此先感谢。

解决方案

这样的事情应该有效：

 Dim json As  String  = responseFromServer 
 Dim ser As JObject = JObject.Parse（json）
 Dim members As JToken = ser（   members）
 
 For Each Each As JObject In members 
 Dim u As 字符串 =成员（  email_address）
 Dim d As 字符串 =成员（  status） 
 Dim l As  String  = member（  merge_fields）（  LOADEDFROM）
下一步

I need to be able to read the elements from JSON. I can successfully get the email address and status, but I can't navigate down to LOADEDFROM, going through merge_fields

Root: {{
"members": [
{
"email_address": "[e-mail]",
"status": "subscribed",
"merge_fields": {
"FIRST_NAME": "Fred",
"LAST_NAME": "Bloggs",
"WEBSTATUS": "SETPASSWORD",
"LOADEDFROM": "K2"
}
}
]
}}

What I have tried:

Dim json As String = responseFromServer
Dim ser As JObject = JObject.Parse(json)
Dim data As List(Of JToken) = ser.Children().ToList

For Each item As JProperty In data
item.CreateReader()
For Each members As JObject In item.Values
Dim u As String = members("email_address")
Dim d As String = members("status")
'how do I get the "LOADEDFROM" bit???
Next
Next

Tried a few combinations of traversing, but failed miserably, I always seem to get = nothing, or invalid references. Thanks in advance.

解决方案

Something like this should work:

Dim json As String = responseFromServer
Dim ser As JObject = JObject.Parse(json)
Dim members As JToken = ser("members")

For Each member As JObject In members
    Dim u As String = member("email_address")
    Dim d As String = member("status")
    Dim l As String = member("merge_fields")("LOADEDFROM")
Next

这篇关于试图从JSON获取元素的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！