Lire JSON URL à l'aide de Visual Basic .net

Je suis en train de lire les URL contenant JSON

De la lecture du fichier dans l'URL est ok, mais lorsque j'essaie de parser le JSON, j'obtiens une erreur: 

An unhandled exception of type 'Newtonsoft.Json.JsonReaderException' occurred in Newtonsoft.Json.dll
Additional information: Error reading JObject from JsonReader. Current JsonReader item is not an object: StartArray. Path '', line 2, position 2.

Le code: 

    Dim request As HttpWebRequest  
    Dim response As HttpWebResponse = Nothing  
    Dim reader As StreamReader  

    request = DirectCast(WebRequest.Create("http://phvarde.kundeside.dk/json?key=t6%$SVAKsG39"), HttpWebRequest)

    response = DirectCast(request.GetResponse(), HttpWebResponse)
    reader = New StreamReader(response.GetResponseStream())

    Dim rawresp As String
    rawresp = reader.ReadToEnd()

    Dim jResults As Object = JObject.Parse(rawresp)
    TxtFornavn.Text = If(jResults("name") Is Nothing, "", jResults("name").ToString())
    TxtAdresse.Text = If(jResults("address") Is Nothing, "", jResults("address").ToString())
InformationsquelleAutor Steen Sommer | 2015-09-02
  1. 1

    Vous obtenez cette erreur parce que votre JSON représente un tableau d'objets, pas seulement un objet unique. Dans ce cas, vous devez utiliser JArray.Parse au lieu de JObject.Parse.

    Dim array As JArray = JArray.Parse(json)

For Each item As JObject In array
    Dim name As String = If(item("name") Is Nothing, "", item("name").ToString())
    Dim address As String = If(item("address") Is Nothing, "", item("address").ToString())
    // ... process name and address ...
Next

    Violon: https://dotnetfiddle.net/2wfA17

    • Vous êtes absolue à droite.
    • Comment puis-je vous mettre en œuvre la solution à l'aide d'un tableau?? Le code: Dim jsonstr as String = Fichier.ReadAllText("c:\temp\json.json") Dim jResults Comme JObject = JObject.Parse(jsonstr) Dim résultats Génériques.Liste(De JToken) = jResults.Les enfants().ToList() Pour Chaque élément en JProperty Dans les résultats de l'élément.CreateReader() Select case de l'élément.Nom de la Case "nom" TxtFornavn.Texte = élément.De la valeur.ToString End select
    • Je ne suis pas sûr de comprendre ce que vous essayez de faire. Pouvez-vous modifier votre question à clarifier? Mettre le code dans la section commentaires ne fonctionne pas très bien.
    • Je vais essayer d'obtenir un enregistrement à la fois et de les afficher dans un windowsform. Lorsque les premières données a été approuvé, nous allons l'envoyer à une base de données SQL et l'enregistrement Suivant doit se charger de la windowsform.
    • Cela ressemble à un problème différent. Je recommande l'ouverture d'une nouvelle question.
    InformationsquelleAutor Brian Rogers