Nuestro grupo de trabajo ha estado mucho tiempo investigando la respuesta a tu interrogante, te brindamos la soluciones por esto deseamos resultarte de mucha ayuda.
Solución:
Tu clase JSON_result
no coincide con tu JSON string. Observe cómo el objeto JSON_result
va a representar está envuelto en otra propiedad llamada "Venue"
.
Así que crea una clase para eso, por ejemplo:
Public Class Container
Public Venue As JSON_result
End Class
Public Class JSON_result
Public ID As Integer
Public Name As String
Public NameWithTown As String
Public NameWithDestination As String
Public ListingType As String
End Class
Dim obj = JsonConvert.DeserializeObject(Of Container)(...your_json...)
o cambia tu JSON string a
"ID": 3145,
"Name": "Big Venue, Clapton",
"NameWithTown": "Big Venue, Clapton, London",
"NameWithDestination": "Big Venue, Clapton, London",
"ListingType": "A",
"Address":
"Address1": "Clapton Raod",
"Address2": "",
"Town": "Clapton",
"County": "Greater London",
"Postcode": "PO1 1ST",
"Country": "United Kingdom",
"Region": "Europe"
,
"ResponseStatus":
"ErrorCode": "200",
"Message": "OK"
o utilizar, por ejemplo, un ContractResolver
para analizar el JSON string.
Imports Newtonsoft.Json.Linq
Dim json As JObject = JObject.Parse(Me.TextBox1.Text)
MsgBox(json.SelectToken("Venue").SelectToken("ID"))
Comentarios y valoraciones de la guía
No se te olvide difundir este escrito si te fue útil.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)