![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Sort JSON Object by Member Key NameSee more JSON ExamplesDemonstrates how to sort the members of a JSON object by the key name.Note: This example requires Chilkat v11.0.0 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) set json = CreateObject("Chilkat.JsonObject") success = json.UpdateString("xyz","1234") success = json.UpdateString("abc.xyz","1234") success = json.UpdateString("abc.def","1234") success = json.UpdateString("abc.aaa","1234") success = json.UpdateString("ghi","1234") success = json.UpdateString("nmo","1234") json.EmitCompact = 0 outFile.WriteLine(json.Emit()) ' This is our initial JSON: ' { ' "xyz": "1234", ' "abc": { ' "xyz": "1234", ' "def": "1234", ' "aaa": "1234" ' }, ' "ghi": "1234", ' "nmo": "1234" ' } ' Sort the top-level JSON object by key. ascending = 1 caseSensitive = 1 json.Sort ascending,caseSensitive ' Look at the sorted JSON.. outFile.WriteLine(json.Emit()) ' { ' "abc": { ' "xyz": "1234", ' "def": "1234", ' "aaa": "1234" ' }, ' "ghi": "1234", ' "nmo": "1234", ' "xyz": "1234" ' } ' Now sort the members of the "abc" object.. set jsonAbc = CreateObject("Chilkat.JsonObject") success = json.ObjectOf2("abc",jsonAbc) jsonAbc.Sort ascending,caseSensitive ' Now look at the JSON with the members under "abc" also sorted.. outFile.WriteLine(json.Emit()) ' { ' "abc": { ' "aaa": "1234", ' "def": "1234", ' "xyz": "1234" ' }, ' "ghi": "1234", ' "nmo": "1234", ' "xyz": "1234" ' } outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.