將JSON字符串反序列化為VB.net對象

Question

我正在嘗試將JSON字符串轉換為VB.net對象，以便輕松訪問jSON字符串中的數據。

我的JSON字符串如下所示：

{
  "status": "ok",
  "count": 4,
  "data": [
    {
      "clan_id": 500002846,
      "nickname": "Azrael",
      "id": 500429872
    },
    {
      "clan_id": null,
      "nickname": "Azrael0",
      "id": 500913252
    },
    {
      "clan_id": 500028112,
      "nickname": "Azrael0313",
      "id": 504109422
    },
    {
      "clan_id": null,
      "nickname": "Azrael7",
      "id": 501594186
    }
  ]
}

現在我正在嘗試將此String反序列化為VB.net對象

我的班級定義是：

Public Class Rootobject
    Private _data1 As String

    Public Property status As String
    Public Property count As Integer
    Public Property data() As Datum
End Class

Public Class Datum
    Public Property clan_id As Integer?
    Public Property nickname As String
    Public Property id As Integer
End Class

Visual Studio 2012自動為我的JSON字符串創建的。

我試圖用.JSON反序列化器反序列化：

Dim Testobject As Rootobject _
= Global.Newtonsoft.Json.JsonConvert.DeserializeObject(Of Rootobject)(JSON_String)

和JavaScriptSerializer：

Dim serializer As New System.Web.Script.Serialization.JavaScriptSerializer()
Dim Testobject_2 As Rootobject = serializer.Deserialize(Of Rootobject)(JSON_String)

但在這兩種情況下，我只能訪問“status”和“count”，但不能訪問“data”數組。

我是Visual Basic的新手，所以我讀了很多關於JSON和Deserializer以及其他有這類問題的人，但大多數解決方案都是針對C＃而不是針對VB.net

任何想法我可能做錯了什么？

Answer 1

我使用JsonToCSharp轉換了你的JSON ...然后將C＃轉換為vb.net ...

Public Class Datum
    Public Property clan_id() As System.Nullable(Of Integer)
        Get
            Return m_clan_id
        End Get
        Set
            m_clan_id = Value
        End Set
    End Property
    Private m_clan_id As System.Nullable(Of Integer)
    Public Property nickname() As String
        Get
            Return m_nickname
        End Get
        Set
            m_nickname = Value
        End Set
    End Property
    Private m_nickname As String
    Public Property id() As Integer
        Get
            Return m_id
        End Get
        Set
            m_id = Value
        End Set
    End Property
    Private m_id As Integer
End Class

Public Class RootObject
    Public Property status() As String
        Get
            Return m_status
        End Get
        Set
            m_status = Value
        End Set
    End Property
    Private m_status As String
    Public Property count() As Integer
        Get
            Return m_count
        End Get
        Set
            m_count = Value
        End Set
    End Property
    Private m_count As Integer
    Public Property data() As List(Of Datum)
        Get
            Return m_data
        End Get
        Set
            m_data = Value
        End Set
    End Property
    Private m_data As List(Of Datum)
End Class

試試這些課程。

Answer 2

你很親密; 你的括號在錯誤的地方。 在Rootobject類中，更改以下行：

Public Property data() As Datum

對此：

Public Property data As Datum()

或者，這也將起作用：

Public Property data As List(Of Datum)