Ich möchte Microsoft ScriptControl verwenden, um eine JSON-Zeichenkette in VBA zu analysieren und dann das resultierende Objekt in Dictionary- und Collection-Objekte umzuwandeln. Ich weiß bereits, wie ich das Parsing mit ScriptControl durchführen kann, aber ich kann nicht herausfinden, wie ich das Ergebnis in die Dictionary- und Collection-Klassen abbilden kann. Ich vermute, wenn ich herausfinden könnte, wie man die Eigenschaften eines Objekts in einer Schleife durchläuft, würde das klar werden...
Dim sc As ScriptControl
Dim obj As Variant
Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"
Set obj = sc.Eval("("+json+")") ' json is a string containing raw JSON
' Now what?Übrigens, ich habe die vba-json Bibliothek, um die Ausgabe in Form von Wörterbüchern und Sammlungen zu erhalten, aber ich finde diese Bibliothek etwas langsam. Sie verwendet nicht ScriptControl.
EDIT : Ich habe eine Diskussion über das Erhalten von Objekteigenschaften in diese Posten.
