Probleme Parsen von JSON mit vba

Kann ich bekommen, was erscheint um einen gültigen JSON-string aus einer web-Abfrage, allerdings kann ich set-items richtig für das Leben von mir. Müssen, um zu bestätigen, dass ich nicht meinen Verstand verliere...

'Call for available reports

Dim URLReporta As String
Dim JSONa As Object
Dim var As Object  
Set myrequesta = CreateObject("winhttp.winhttprequest.5.1")
URLReporta = ("https://secure.saashr.com:443/ta/rest/v1/reports?type=Saved&company%3shortname=" & Company)
myrequesta.Open "GET", URLReporta, False
myrequesta.setRequestHeader "Accept", "application/json"
myrequesta.setRequestHeader "Authentication", "Bearer " & Token
myrequesta.setRequestHeader "Content-Type", "application/json"
myrequesta.Send
Set JSONa = JsonConverter.ParseJson(myrequesta.responseText)
Set var = JSONa("SavedName")
Debug.Print var.Count

Bekomme ich einen Fehler auf der Linie Set var = JSONa("SavedName"):

run-time error '424': Objekt erforderlich

myrequesta.responseText - Wert ist wie folgt:

{"Berichte":[{"SavedName":"in Diesem Jahr","SettingId":18959322},{"SavedName":"Zeit-Off-Anforderungen","SettingId":18960210},{"SavedName":"Calc Stunden Summary","SettingId":18960209},{"SavedName":"roster","SettingId":18960211},{"SavedName":"E/D/T","SettingId":18823042},{"SavedName":"TestZDR","SettingId":18957188}]}

Ich kann keine set-items korrekt...festlegen, welche Elemente? Was sind Ihre Fehler? Was willst du analysieren? Was ist der gewünschte output? Kurz gesagt, was ist Ihre Frage?
Wie es aussieht, bist du mit github.com/VBA-tools/VBA-JSON/blob/master/JsonConverter.bas ?
aktualisiert den obigen code bekomme ich Laufzeitfehler '424': Objekt erforderlich Zeile "Set var = JSONa("SavedName")
Wenn Ihr JSON-string umgewandelt werden kann, um XML-Struktur, werden Sie in der Lage XPath-Ausdruck wie //property[@name = "SavedName"] eine Sammlung aller Knoten darstellt SavedName Eigenschaften.
Wussten Sie ScriptControl.Eval("("+ json + ")" ) analysieren Objekt und kann man verwenden CallByName, Zugriff auf Elemente. Siehe meine Antwort hier stackoverflow.com/questions/37711034/...

InformationsquelleAutor Zach Rochon | 2016-06-18

2

Die Struktur zurückgegeben JsonConverter.ParseJson - Funktion funktioniert nicht auf diese Weise. Für Ihre speziellen JSON-es enthält 3 Ebenen:
Root-level-Objekt hat nur eine Eigenschaft reports werden, enthält, die second-level-array, die wiederum enthält 6 third-level-Objekte mit Eigenschaften SavedName und SettingId. Sie versuchen, zu erhalten third-level-Objekt-Eigenschaft-Wert aus dem root-level-Objekt.

Erste die Sie benötigen, um second-level-array, dann Schleife durch die Elemente, die mit Objekten, und rufen Sie die SavedName Eigenschaften' - Werte dieser Objekte. Hier ist das Beispiel:
```
'Call for available reports

Dim URLReporta As String
Dim JSONa As Object
Dim var As Object
Dim rep As Variant
Set myrequesta = CreateObject("winhttp.winhttprequest.5.1")
URLReporta = ("https://secure.saashr.com:443/ta/rest/v1/reports?type=Saved&company%3shortname=" & Company)
myrequesta.Open "GET", URLReporta, False
myrequesta.setRequestHeader "Accept", "application/json"
myrequesta.setRequestHeader "Authentication", "Bearer " & Token
myrequesta.setRequestHeader "Content-Type", "application/json"
myrequesta.Send
Set JSONa = JsonConverter.ParseJson(myrequesta.responseText) ' root level object
Set var = JSONa("reports") ' second level array
For Each rep In var ' third level objects
    Debug.Print rep("SavedName") ' property "SavedName" value of current third level object
Next
```
Hier ist die Ausgabe:

Wenn Sie wollen einfach nur, um die Anzahl der reports, dann das array und die Anzahl der Elemente in es:
```
Debug.Print JSONa("reports").Count
```
- Danke!!! Das war der trick in abrollen wie diese parser arbeiten soll.
- Wussten Sie ScriptControl.Eval("("+ json + ")" ) analysieren Objekt und kann man verwenden CallByName, Zugriff auf Elemente. Siehe meine Antwort hier stackoverflow.com/questions/37711034/...
- dieser Ansatz macht das system anfällig, die in einigen Fällen (bösartiger code aus der web-Abfrage kann ausgeführt werden), werfen Sie einen Blick auf die Antwort, vor allem update-Teil.
InformationsquelleAutor omegastripes

JSON-Objekte kann man sich als eine Sammlung von Wörterbüchern. So haben Sie zu Fuß durch die inneren Werte wie SavedName abrufen gesamte dictionary-Objekte (alle SavedName Werte) oder bestimmte string-Werte in den indizierten Orten (eine SavedName Wert):

Public Sub GetJSONRequest()
    Dim jsonStr As String

    jsonStr = "{" _
         & "     ""reports"": [{" _
         & "         ""SavedName"": ""This Year""," _
         & "         ""SettingId"": 18959322" _
         & "     }, {" _
         & "         ""SavedName"": ""Time Off Requests""," _
         & "         ""SettingId"": 18960210" _
         & "     }, {" _
         & "         ""SavedName"": ""Calc Hours Summary""," _
         & "         ""SettingId"": 18960209" _
         & "     }, {" _
         & "         ""SavedName"": ""roster""," _
         & "         ""SettingId"": 18960211" _
         & "     }, {" _
         & "         ""SavedName"": ""E/D/T""," _
         & "         ""SettingId"": 18823042" _
         & "     }, {" _
         & "         ""SavedName"": ""TestZDR""," _
         & "         ""SettingId"": 18957188" _
         & "  }]" _
         & "  }"

    Dim JSONa As Object, element As Object, e As Variant, i As Variant, var As Variant

    Set JSONa = ParseJson(jsonStr)

    ' DICTIONARY OBJECT
    Set element = CreateObject("Scripting.Dictionary")
    Set element = JSONa("reports")

    ' OUTER DICTIONARY
    For Each e In element
        ' INNER COLLECTION OF DICTIONARIES
        For Each i In e
            Debug.Print i & " " & e(i)
        Next i
    Next e            

    ' STRING VALUE OF FIRST SAVEDNAME VALUE
    var = JSONa("reports")(1)("SavedName")
    Debug.Print var

    Set element = Nothing
    Set JSONa = Nothing
End Sub

Ausgabe

SavedName This Year
SettingId 18959322
SavedName Time Off Requests
SettingId 18960210
SavedName Calc Hours Summary
SettingId 18960209
SavedName roster
SettingId 18960211
SavedName E/D/T
SettingId 18823042
SavedName TestZDR
SettingId 18957188
This Year

InformationsquelleAutor Parfait

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.