Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) JSON Iterate MembersDemonstrates how to loop over the immediate members of a JSON object.
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 |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.