MKM_Matt Ответов: 1

Попытка получить элемент из JSON


Мне нужно, чтобы иметь возможность читать элементы из JSON. Я могу успешно получить адрес электронной почты и статус, но я не могу перейти вниз к LOADEDFROM, проходя через merge_fields

Корень: {{
"члены": [
{
"email_address": "user@domain.com",
"статус": "подписано",
"merge_fields": {
"FIRST_NAME": "Фред",
"LAST_NAME": "Bloggs",
"WEBSTATUS": "SETPASSWORD",
"LOADEDFROM": "K2"
}
}
]
}}

Что я уже пробовал:

Dim json As String = responseFromServer
Дим сер, как создание экземпляра = создание экземпляра.Анализировать(в формате JSON)
Dim data As List (of JToken) = ser.Дети().Список

Для каждого элемента как JProperty в данных
пункт.CreateReader()
Для каждого члена как JObject в item. Values
Dim u As String = members ("email_address")
Dim d As String = members ("status")
- как мне получить бит" LOADEDFROM"???
Следующий
Следующий

Попробовал несколько комбинаций обхода, но с треском провалился, мне всегда кажется, что я получаю = nothing или недопустимые ссылки. Заранее спасибо.

1 Ответов

Рейтинг:
9

Richard Deeming

Что-то вроде этого должно сработать:

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


MKM_Matt

Ты-звезда Ричарда. Работает по мере необходимости.