Visual FoxPro, VB.NET...

Наибольший вклад в теги

Все теги (3)

Лучшие ответы пользователя

Все ответы (4)
  • VB.Net и XML. Вытащить значения?

    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 запросы использовать можно
    Ответ написан
    Комментировать

Лучшие вопросы пользователя

Все вопросы (1)