json - 使用 NewtonSoft 获取特定的 Json 字段

Question

我使用的是 newtonsoft，我需要在 Json 响应中获取两个特定字段:

{
    "id": "1233323",
    "quoteOptions": [{
        "copay": "20%",
        "deductables": [{
            "deductable": "$250",
            "quoteOptions": [{
                "pricingAndLimits": {
                    "reimbursement": "80%",
                    "copay": "20%",
                    "deductable": "$250",
                    "limit": "$4,000",
                    "annualPremium": "$413.00",
                    "monthlyPremium": "$34.00"
                }
            }]
        }]
    }]
}

我需要在旧版 Intranet (VB.NET) 上执行此操作。我特别需要获取monthlyPremium 字段和id 字段。
我试过

Dim json As String = Result
Dim ser As JObject = JObject.Parse(json)
Dim data As List(Of JToken) = ser.Children().ToList
Dim output As String = ""
Dim Premium As String = ser("quoteOptions")("deductables")("quoteOptions")("pricingAndLimits")("monthlyPremium")

但是我在“免赔额”(不存在)处收到错误消息。
谢谢 :)

Answer 1

我让它像这样工作:

Money = ser("quoteOptions")(0)("deductables")(0)("quoteOptions")(0)("pricingAndLimits")("monthlyPremium")

谢谢CrlueD