Json在VB.net中的版本
答
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
答
的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
移植的C#代码VB.NET通常很简单。像这样的转换器可以很好地工作。如果您有任何具体问题,请编辑您的文章以了解更多详情。 – 2009-11-03 14:03:30
事实上 - 或者使用“反射器”,它可以做(限制)翻译。 – 2009-11-03 16:52:19