使用vb.net反序列化多級JSON字串

我一直在嘗試在 vb.net 中反序列化 json 字串。我能夠使用成功獲得回應

            Using myResp = TryCast(myReq.GetResponse(), System.Net.HttpWebResponse)
                Using myReader = New System.IO.StreamReader(myResp.GetResponseStream())
                    responseContent = myReader.ReadToEnd()

                End Using
            End Using

回復內容：

{
    "devices": {
        "totalCount": 1,
        "totalPage": 1,
        "pageNum": 0,
        "transactions": [{
            "transactionId": "20211005200111",
            "state": "Complete",
            "type": "Put",
            "operationType": "UPLOAD",
            "devices": [{
                "imei": "357452100344123",
                "code": 40000004,
                "message": "DEVICE_INVALID",
                "data": "The specified device is not valid."
            }, {
                "imei": "357452100344409",
                "code": 40000005,
                "message": "DEVICE_DUPLICATE",
                "data": "The specified device already exists."
            }]
        }]

創建類來保存資料：

    Public Class devices
            Public Property devicelist As List(Of device)
    End Class
    Public Class device
            Public Property pageNum As Integer
            Public Property totalCount As Integer
            Public Property totalPage As Integer
            Public Property transactions As List(Of transaction)
    End Class
    Public Class transaction
            Public Property transactionId As String
            Public Property state As String
            Public Property type As String
            Public Property operationType As String
            Public Property devices As List(Of mydevice)
    End Class
    Public Class mydevice
            Public Property imei As String
            Public Property code As Integer
            Public Property message As String
            Public Property data As String
    End Class

當我嘗試反序列化時，不會引發任何錯誤，但不會填充任何內容：

VB除錯

請讓我知道我可能做錯了什么？

uj5u.com熱心網友回復：

至于我的想法，

首先，看起來像Json形式是錯誤的。缺少最后一點 }}。

第二，物件錯誤。屬性名稱必須與 Json 名稱相同。如果屬性名稱不同，則應使用 JsonProperty 進行標記。

我應用了內容并制作了一個測驗源。

 Public Class root
      <JsonProperty("devices")>
      Public Property devicelist As devices
   End Class


   Public Class devices
      Public Property pageNum As Integer
      Public Property totalCount As Integer
      Public Property totalPage As Integer
      Public Property transactions As List(Of transaction)
   End Class

   Public Class transaction
         Public Property transactionId As String
         Public Property state As String
         Public Property type As String
         Public Property operationType As String
         Public Property devices As List(Of mydevice)
      End Class

      Public Class mydevice
         Public Property imei As String
         Public Property code As Integer
         Public Property message As String
         Public Property data As String
      End Class

      Private Sub test()

      Try

         Dim Json As String = "{
                               'devices': {
                                   'totalCount': 1,
                                   'totalPage': 1,
                                   'pageNum': 0,
                                   'transactions': [{
                                       'transactionId': '20211005200111',
                                       'state': 'Complete',
                                       'type': 'Put',
                                       'operationType': 'UPLOAD',
                                       'devices': [{
                                           'imei': '57452100344123',
                                           'code': 40000004,
                                           'message': 'DEVICE_INVALID',
                                           'data': 'The specified device is not valid.'
                                       }, {
                                           'imei': '357452100344409',
                                           'code': 40000005,
                                           'message': 'DEVICE_DUPLICATE',
                                           'data': 'The specified device already exists.'
                                       }]
                                   }]
                                 }}"

         Dim ds As root = JsonConvert.DeserializeObject(Of root)(Json)


         Dim d As devices = ds.devicelist

         Console.WriteLine(d.pageNum)
         Console.WriteLine(d.totalCount)
         Console.WriteLine(d.totalPage)

         For Each tran In d.transactions

            Console.WriteLine(tran.transactionId)

            For Each dd In tran.devices

               Console.WriteLine(dd.code)

            Next

         Next

      Catch ex As Exception
         MsgBox(ex.ToString)
      End Try
   End Sub

標籤：json 网络 javascript序列化器

上一篇：類中通用長度的二維陣列

下一篇：在SQL目錄中找不到程式集“system.directoryservices.accountmanagement”