VB.NET

JSON AppendObject2 Example

Demonstrates the AppendObject2 function. VB.NET

Dim json As New Chilkat.JsonObject
json.Load("{ ""name"": ""John"", ""marbles"": 100 }")

' Append an empty object named "addr"
Dim jObj As New Chilkat.JsonObject
json.AppendObject2("addr",jObj)

Debug.WriteLine(json.Emit())
' Expected output is:   {"name":"John","marbles":100,"addr":{}}

' Add members to the object.
jObj.AppendString("street","1200 Elm St.")
jObj.AppendString("city","Springfield")
jObj.AppendInt("zip",60606)

Debug.WriteLine(json.Emit())
' Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606}}