使用 VB.net 在 json API 中搜索

Question

大家好，我想在 json 字符串中搜索并获取属性之一的值，我有以下代码

    Dim ser As JObject = JObject.Parse(reader.ReadToEnd())

    Dim data As List(Of JToken) = ser.Children().ToList

    Response.Write(ser)

这是我的输出

{ "成功": true, "结果": { "access_token": "T1RLAQLTD+AB7uveLzir/oF8EKbu32EJIRDHKkx5O/W2+ri3cbWT8uOuAADAF7OJij6m20nPrYZzWRwNlDA99fzg/pnN7eL8XiWS9pkvapQtPDhiPHupNJOettLKPJRuekAO0zBgptPAkYt1G6etINlTjHLpW2kVOxeAqH7t3mSzXmScSQvgQwMC2d4FBdZu2jKgSf86ret2i0eHydFW91vJ1eWI9LkZFPrHBXPzlQJZ9GyvFpF2IEVo2D23y3xMYYEVI410ZRKLnTLvTcrH12s/8wYNc8jKLMWKcNNjiKnDm8i0WJS7eOU7iXKu", "token_type": "bearer", "expires_in": 604800 } }

我想获得那个“access_token”的价值，谢谢

Answer 1

不先使用 ToList() 也可以得到：

Dim myAccessToken as String = ser("result")("access_token").Value(Of String)()

我还没有检查过，但我认为这应该可以。