1. 首頁
  2. 問答
  3. JSON編碼和使用對象解碼在Visual Basic 2010

JSON編碼和使用對象解碼在Visual Basic 2010

2013-09-23 72 views
1

我有以下代碼：JSON編碼和使用對象解碼在Visual Basic 2010

Imports Newtonsoft.Json 
Imports Newtonsoft.Json.Linq 
Module Module1 

Structure JSONList 
    Dim Name, Email As String 
    Dim Age As Integer 
End Structure 

Sub Main() 
    Dim Data(1) As JSONList 

    Data(0).Name = "Josh" 
    Data(0).Age = 17 
    Data(0).Email = "[email protected]" 
    Data(1).Name = "Greg" 
    Data(1).Age = 17 
    Data(1).Email = "[email protected]" 

    Dim JSONEncode As String 
    JSONEncode = JsonConvert.SerializeObject(Data) 
    Console.WriteLine(JSONEncode) 
    Console.WriteLine() 
    Console.WriteLine() 

    Dim JSONDecode() As JSONList = JsonConvert.DeserializeObject(JSONEncode) 
    Console.WriteLine(JSONDecode(0).Name) 

    Console.ReadKey() 


End Sub 

End Module

腳本的第一編碼部分，用於對編碼的字符串存儲到數據庫中，所述輸出爲：

[{"Name":"Josh","Email":"[email protected]","Age":17},{"Name":"Greg","Email":"[email protected]","Age":17}]

現在，當我嘗試這個JSON字符串解碼，我得到一個錯誤Unable to cast object of type 'Newtonsoft.Json.Linq.JArray' to type 'JSONList[]'.

我需要的數據，以JSON格式進行編碼，這樣我可以在我的網站採用p使用惠普解碼它。我正在使用Visual Basic 2010和JSON.NET。

來源

2013-09-23 Josh Luke Blease

回答

1

問題是，JsonConvert.DeserializeObject反序列化成Newtonsoft.Json.Linq.JArray類型的對象，其中.net無法自動轉換爲JSONList的數組。轉換的一點是必需的：

Dim jsonObject As Newtonsoft.Json.Linq.JArray = 
             JsonConvert.DeserializeObject(JSONEncode) 

Dim JSONDecode() As JSONList = (
           From j In jsonObject 
           Select New JSONList() With {.Age = j("Age"), 
                  .Email = j("Email"), 
                  .Name = j("Name")} 
           ).ToArray()

來源

2013-09-23 22:51:56

0

正如@Adrian說，JsonConvert.DeserializeObject將反序列化到JArray，其中淨不能自動轉換成你的JSONList結構的陣列。但是，您不需要手動轉換;您只需使用接受類型參數的DeserializeObject的過載。這將允許Json.Net直接反序列化到您的類型，而不需要任何特殊的轉換代碼。

Dim JSONDecode() As JSONList = _ 
       JsonConvert.DeserializeObject(Of JSONList())(JSONEncode)

來源

2013-12-29 01:11:44

相關問題

 相關問題