在VB.net中获取JSON对象的值

时间:2014-01-04 17:25:03

标签: json vb.net

我将在C#中使用以下代码:

    var tokenJson = JsonConvert.SerializeObject(tokenJsonString);

    var jsonResult = JsonConvert.DeserializeObject<Dictionary<string, dynamic>>(jsonString);
    var firstItem = jsonResult["data"][0];

但是,我有一个VB.NET客户端,我不知道如何翻译它。我尝试了不同的在线工具。

我有这样的JSON响应:

"{\"token\":\"1edd6006-678a-4e6a-ab65-4fa60efa8632\"}"

我只想要令牌的价值。在VB.NET中;)

3 个答案:

答案 0 :(得分:4)

试试这个:

 Dim tokenJson = JsonConvert.SerializeObject(tokenJsonString)

 Dim jsonResult = JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(jsonString)
 Dim firstItem = jsonResult.Item("data").Item(0)

干杯

答案 1 :(得分:0)

选择的遮阳篷为您提供行{“ token”:“ 1edd6006-678a-4e6a-ab65-4fa60efa8632”} 遇到相同的问题,并且可以获取令牌的确切值,您可以这样做:

Dim firstItem = jsonResult.Item("data").Item(0).Value(Of String)("token")

输出:“ 1edd6006-678a-4e6a-ab65-4fa60efa8632”

希望有帮助

答案 2 :(得分:0)

示例JSON:

{
  "fuits": [
    
  ],
  "vehicles": [
    {
      "cars": [
        {
          "skoda": "2Lacks",
          "maruti": 400000,
          "neon": "3 Lacks",
          
        },
        {
          
        }
      ]
    }
  }

如果您想使用skoda在上述VB.NET中的示例json中访问JObject.Parse的值,则将其写为:

Dim wallet As String = jsonobject("vehicles")(0)("cars")(0)("skoda").ToString()

现在2Lacks中有wallet