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,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(VB.NET UWP/WinRT) JSON: Miscellaneous OperationsDemonstrates a variety of JSON API methods. This example uses the following JSON document: { "alphabet": "abcdefghijklmnopqrstuvwxyz", "sampleData" : { "pi": 3.14, "apple": "juicy", "hungry": true, "withoutValue": null, "answer": 42 } }
Dim json As New Chilkat.JsonObject json.EmitCompact = False ' Assume the file contains the data as shown above.. Dim success As Boolean = json.LoadFile("qa_data/json/sample2.json") If (success <> True) Then Debug.WriteLine(json.LastErrorText) Exit Sub End If ' First navigate to the "sampleData" object: Dim sampleData As Chilkat.JsonObject = json.ObjectOf("sampleData") ' Demonstrate BoolAt and BoolOf Debug.WriteLine("hungry: " & sampleData.BoolOf("hungry")) Debug.WriteLine("hungry: " & sampleData.BoolAt(2)) ' StringOf returns the value as a string regardless of it's actual type: Debug.WriteLine("pi: " & sampleData.StringOf("pi")) Debug.WriteLine("answer: " & sampleData.StringOf("answer")) Debug.WriteLine("withoutValue: " & sampleData.StringOf("withoutValue")) Debug.WriteLine("hungry: " & sampleData.StringOf("hungry")) ' Demonstrate IsNullOf / IsNullAt Debug.WriteLine("withoutValue is null? " & sampleData.IsNullOf("withoutValue")) Debug.WriteLine("withoutValue is null? " & sampleData.IsNullAt(3)) Debug.WriteLine("apple is null? " & sampleData.IsNullOf("apple")) Debug.WriteLine("apple is null? " & sampleData.IsNullAt(1)) ' IntOf Debug.WriteLine("answer: " & sampleData.IntOf("answer")) ' SetNullAt, SetNullOf ' Set "pi" to null success = sampleData.SetNullAt(0) ' Set "answer" to null success = sampleData.SetNullOf("answer") ' Show the changes: Debug.WriteLine(json.Emit()) ' Restore pi and apple: success = sampleData.SetNumberAt(0,"3.14") success = sampleData.SetNumberOf("answer","42") ' Show the changes: Debug.WriteLine(json.Emit()) ' Add a null value named "afterApple" just after "apple" success = sampleData.AddNullAt(2,"afterApple") ' Add a boolean value just after "pi" success = sampleData.AddBoolAt(1,"afterPi",False) ' Examine the changes.. Debug.WriteLine(json.Emit()) |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.