(VBScript) JSON Iterate Members

Demonstrates how to loop over the immediate members of a JSON object.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set json = CreateObject("Chilkat_9_5_0.JsonObject")

jsonStr = "{ ""id"": 1, ""name"": ""A green door"", ""tags"": [""home"", ""green""], ""price"": 125 }"

success = json.Load(jsonStr)
If (success <> 1) Then
    outFile.WriteLine(json.LastErrorText)
    WScript.Quit
End If

numMembers = json.Size

For i = 0 To numMembers - 1

    name = json.NameAt(i)
    value = json.StringAt(i)

    outFile.WriteLine(name & ": " & value)

    iValue = json.IntAt(i)
    outFile.WriteLine(name & " as integer: " & iValue)

Next

'  Note: The StringAt method returns the value as a string regardless of the type.
'  If the value is a JSON array (such as for ["home", "green"]), then the JSON encoding
'  of the entire array is returned.

'  The IntAt method returns the value as an integer.  If the value does not convert to
'  an integer, then 0 is returned.

outFile.Close