|
Hallo,
folgendes Open-Source Projekt bietet sich hierfür an: GitHub
Hier noch ein Beispiel:
JSON-Datei
{
"Name": "Georg",
"Alter": 47,
"Verheiratet": false,
"Beruf": null,
"Kinder": [
{
"Name": "Lukas",
"Alter": 19,
"Schulabschluss": "Realschule"
},
{
"Name": "Lisa",
"Alter": 14,
"Schulabschluss": null
}
]
}
Auslesen der Elemente "Kinder":
Sub read_values_json()
Dim FSO As New FileSystemObject
Dim JsonTS As TextStream
Dim JsonText As String
Dim Parsed As Dictionary
' Read .json file
Set JsonTS = FSO.OpenTextFile("Pfad\Zur\Json_Datei.json", ForReading)
JsonText = JsonTS.ReadAll
JsonTS.Close
' Parse json to Dictionary
' "values" is parsed as Collection
' each item in "values" is parsed as Dictionary
Set Parsed = JsonConverter.ParseJson(JsonText)
Dim d As Dictionary
For Each d In Parsed("Kinder")
Debug.Print d("Name")
Debug.Print d("Alter")
Next d
End Sub
Wichtig: Für das Beispiel wird er Verweis auf die "Microsoft Scripting Runtime" benötigt.
Viele Grüße
|