Json在VB.net中的版本

Question

我看到有很多C＃版本的例子。与MSDN中的DataContractJsonSerializer类相同。任何人都请帮助我在VB.net版本？

Answer 1

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) 
      Dim ser As New DataContractJsonSerializer(GetType(Product)) 
      Using fs As FileStream = File.OpenRead("c:\jsonText.txt") 

       Dim product As Product = TryCast(ser.ReadObject(fs), Product) 
       MessageBox.Show("Product Name: " & product.Name) 
      End Using 
     End Sub 
    End Class 

    <Serializable()> _ 
    Public Class Product 
     Public Name As String 
    End Class 
End Namespace 

这里是从MSDN截取并转换由转换器developerfusion

Answer 2

的vb.net样品下面是我已经写在另一个问题相同的源代码。这是一段非常简单的代码，它使用库JAYROCK（您可以免费下载：http://jayrock.berlios.de/），它将读取JSON格式的字符串，并输出嵌套在“error”中的参数调用“message”的值。很基本的东西，但它可以帮助你......

Dim cMessage As String = "{ ""error"" : { ""code"" : 500, " & _ 
           """message"" : ""Error Executing Task. " & _ 
           "Error executing tool.""," & _ 
           """details"" : [] " & _ 
           "}" & _ 
           "}" 

Dim objResponse As JsonObject 


objResponse = CType(JsonConvert.Import(cMessage), JsonObject) 

MsgBox("Last response was: " + objResponse("error")("message")) 

PS：为了得到这个代码的工作，不要忘记导入Jayrock.Json和Jayrock.Json.Conversion