VBScript

JSON PathPrefix Example

Demonstrates the JSON object's PathPrefix property. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set json = CreateObject("Chilkat.JsonObject")

json.PathPrefix = "company.billing."

success = json.UpdateString("company_name","TechNova Solutions Inc.")
success = json.UpdateString("address_line_1","123 Innovation Drive")
success = json.UpdateString("address_line_2","Suite 450")
success = json.UpdateString("city","Seattle")
success = json.UpdateString("state_province","WA")
success = json.UpdateString("postal_code","98101")
success = json.UpdateString("country","USA")

json.EmitCompact = 0

outFile.WriteLine(json.Emit())

' Result:

' {
'   "company": {
'     "billing": {
'       "company_name": "TechNova Solutions Inc.",
'       "address_line_1": "123 Innovation Drive",
'       "address_line_2": "Suite 450",
'       "city": "Seattle",
'       "state_province": "WA",
'       "postal_code": "98101",
'       "country": "USA"
'     }
'   }
' }

city = json.StringOf("city")
outFile.WriteLine("city = " & city)

outFile.Close