在vb.net解析json与jrock

Question

我试图解析一些json我从服务中取回。 例如它的返回

 { 
    "error" : 
    { 
    "code" : 500, 
    "message" : "Error Executing Task. Error executing tool.", 
    "details" : [] 
    } 
} 

所有我需要的是在信息栏中的文本。使用jayrock获取数据的简单方法是什么？我有：

Dim request As HttpWebRequest 
    Dim response As HttpWebResponse = Nothing 
    Dim jarray As Jayrock.Json.JsonObject 
request = DirectCast(WebRequest.Create(url), HttpWebRequest) 
     response = DirectCast(request.GetResponse(), HttpWebResponse) 

     Dim reader As JsonTextReader = New JsonTextReader((New StreamReader(response.GetResponseStream))) 


     jarray = Jayrock.Json.Conversion.JsonConvert.Import(reader) 

是什么让“信息”的数据

Answer 1

我只能为自己说话的最efficant方式，但我会写这样：

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