(VBScript) JSON Paths that need Double Quotes

This example explains and demonstrates the situations where parts within a JSON path need to be enclosed in double-quotes.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

' Imagine we have the following JSON:

' 	{ 
' 	  "Meta Data": { 
' 	    "1: Symbol": "MSFT",
' 	    "2: Indicator": "Relative Strength Index (RSI)",
' 	    "3: Last Refreshed": "2017-07-28 09:30:00",
' 	    "4: Interval": "15min",
' 	    "5: Time Period": 10,
' 	    "6: Series Type": "close",
' 	    "7: Time Zone": "US/Eastern Time"
' 	  },
' 	  "Technical Analysis: RSI": { 
' 	    "2017-07-28 09:30": { 
' 	      "RSI": "38.6964"
' 	    },
' 	    "2017-07-27 16:00": { 
' 	      "RSI": "50.0088"
' 	    } 
' 	} 

' The path to the RSI valud 38.6964 is Technical Analysis: RSI.2017-07-28 09:30.RSI

' Whenever a path part contains a SPACE or "." char, that part must be enclosed
' in double quotes.  For example:

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.LoadFile("qa_data/json/rsi.json")

outFile.WriteLine("RSI: " & json.StringOf("""Technical Analysis: RSI"".""2017-07-28 09:30"".RSI"))

' output is 38.6964

outFile.Close