誤差解析JSON使用Json.Net

Question

我使用這個代碼來解析我的JSON字符串，它拋出一個異常，錯誤的是：

「」類型的未處理的異常出現在Myapp.exe附加信息：無法轉換類型爲'Newtonsoft.Json.Linq.JProperty'的對象以鍵入'Newtonsoft.Json.Linq.JObject'。

我已經正確地導入了Json.Net，並且這個非常相同的代碼在不同的子工作，並解析得很好。

這裏是我的代碼：

Dim o As JObject = JObject.Parse(responseContent) 
Dim results As List(Of JToken) = o.Children().ToList 
For Each item As JProperty In results 
    item.CreateReader() 
    Select Case item.Name 
     Case "response" 
      Dim BatteryCharge As String 
      For Each subitem As JObject In item.Values 
       BatteryCharge = subitem("battery_level") 
       MessageBox.Show(BatteryCharge) 
      Next 
    End Select 
Next 

的JSON字符串看起來像這一點，現在我只需要但獲取battery_level，如果你能告訴我如何將更多，如果我需要，這將是巨大的。

{ "response": { "charging_state": "Complete", // "Charging", ?? "charge_to_max_range": false, // current std/max-range setting "max_range_charge_counter": 0, "fast_charger_present": false, // connected to Supercharger? "battery_range": 239.02, // rated miles "est_battery_range": 155.79, // range estimated from recent driving "ideal_battery_range": 275.09, // ideal miles "battery_level": 91, // integer charge percentage "battery_current": -0.6, // current flowing into battery "charge_starting_range": null, "charge_starting_soc": null, "charger_voltage": 0, // only has value while charging "charger_pilot_current": 40, // max current allowed by charger & adapter "charger_actual_current": 0, // current actually being drawn "charger_power": 0, // kW (rounded down) of charger "time_to_full_charge": null, // valid only while charging "charge_rate": -1.0, // float mi/hr charging or -1 if not charging "charge_port_door_open": true } }

Answer 1

最簡單的方法是避免使用JObject.Parse的做法，並而是反序列化到POCO，像這樣：

Sub Main 
    Dim response = JsonConvert.DeserializeObject(Of ResponseObject)("*your JSON string goes here*") 

    Console.WriteLine("The battery level is " & response.response.battery_level) 
End Sub 

Public Class Response 
    Public Property charging_state As String 
    Public Property charge_to_max_range As Boolean 
    Public Property max_range_charge_counter As Integer 
    Public Property fast_charger_present As Boolean 
    Public Property battery_range As Double 
    Public Property est_battery_range As Double 
    Public Property ideal_battery_range As Double 
    Public Property battery_level As Integer 
    Public Property battery_current As Double 
    Public Property charge_starting_range As Object 
    Public Property charge_starting_soc As Object 
    Public Property charger_voltage As Integer 
    Public Property charger_pilot_current As Integer 
    Public Property charger_actual_current As Integer 
    Public Property charger_power As Integer 
    Public Property time_to_full_charge As Object 
    Public Property charge_rate As Double 
    Public Property charge_port_door_open As Boolean 
End Class 

Public Class ResponseObject 
    Public Property response As Response 
End Class 

這也意味着，您可以訪問和以後使用的其他屬性除了battery_level。