Задать вопрос
@66demon666
Сетевой админ, АТС-админ

VB.Net и XML. Вытащить значения?

Нужно вытащить из этого first_name и last_name в переменную VB.Net.
{"response":[{"uid":238005056,"first_name":"Самый-Лучший","last_name":"День"}]}
  • Вопрос задан
  • 2749 просмотров
Подписаться 2 Оценить Комментировать
Решения вопроса 1
Ksardas
@Ksardas
Visual FoxPro, VB.NET...
Это часом не Json?
Вот хорошая Open Source библиотека: Json.NET
Документация

Подключаем, импортируем Imports Newtonsoft.Json.Linq

Dim str = "{'response':[{'uid':238005056,'first_name':'Самый-Лучший','last_name':'День'}]}"

'Парсим Json строку'
Dim JObj As JObject = JObject.Parse(str)
'Парсим значение массив ключа "response"'
Dim JArr As JArray = JArray.Parse(JObj("response").ToString)
'Берём первый элемент массива и парсим как обычную Json строку'
Dim JArrItems As JObject = JObject.Parse(JArr.First.ToString)

'Загоняем в переменные значения ключей "first_name" и "last_name"'
Dim first_name = JArrItems("first_name").ToString,
    last_name = JArrItems("last_name").ToString


Либо можно так
Dim str = "{'response':[{'uid':238005056,'first_name':'Самый-Лучший','last_name':'День'}]}"
Dim JArrItems As JObject = JObject.Parse(JArray.Parse(JObject.Parse(str)("response").ToString).First.ToString)

Dim first_name = JArrItems("first_name").ToString,
    last_name = JArrItems("last_name").ToString


Либо вообще так
Dim str = "{'response':[{'uid':238005056,'first_name':'Самый-Лучший','last_name':'День'}]}"
Dim JObj As JObject = JObject.Parse(str)

Dim first_name = JObj("response")(0)("first_name").ToString,
    last_name = JObj("response")(0)("last_name").ToString


А в .NET 3.5+ и сами LINQ запросы использовать можно
Ответ написан
Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы