2013-12-19 30 views
1

反序列化JSON文本VB12

[ 
    { 
    "picture":"URL_TO_PICTURE", 
    "link":"URL_TO_SITE" 
    }, 
    { 
    "picture":"URL_TO_PICTURE", 
    "link":"URL_TO_SITE" 
    }, 
    { 
    "picture":"URL_TO_PICTURE", 
    "link":"URL_TO_SITE" 
    } 
] 

我的類文件看起來是這樣的:

Public Class BonusItems 
    Public Property picture As String 
    Public Property link As String 
End Class 

我想要使用JsonConvert.DeserializeObject沒有運氣......

任何幫助將不勝感激。

編輯:嘗試過。

Dim json As String = "[ {""picture"":""URL_PIC_1"", ""link"":""URL_LINK_1""}, {""picture"":""URL_PIC_1"", ""link"":""URL_LINK_1""} ]" 
Dim Items As List(Of Dictionary(Of String, String)) = JsonConvert.DeserializeObject(Of List(Of Dictionary(Of String, String)))(json) 

但我不確定它是否正確也不知道如何使用該文本。我很迷茫。

回答

1

您需要direcly反序列化到您的類的列表:

Dim json As String = "[ {""picture"":""URL_PIC_1"", ""link"":""URL_LINK_1""}, {""picture"":""URL_PIC_1"", ""link"":""URL_LINK_1""} ]" 

Dim items As List(Of BonusItems) = JsonConvert.DeserializeObject(Of List(Of BonusItems))(json) 

的反序列化應採取其他的事情,只要事情正確匹配。

+0

謝謝。我剛剛在幾分鐘前發現它,並沒有意識到你回答。 – bjaeger

+1

'Dim Items As List(Of Items)= Newtonsoft.Json.JsonConvert.DeserializeObject(Of List(Of Items))(json)' – bjaeger