URL json response 2 map

[spl]

The parsing process to convert the json response from the URL in the code below could/should probably be simplified, but I feel I created a valid @" .... @" text for basis to create a map. I tried , instead of = as a delimiter and added underscores to values like Mountain View => Mountain_View in case that was contributing to the error when trying to create the map. Code has displays of the json return and the converted text. I attached the error. Hopefully an easy fix that currently can't figure out. Appreciate anyone willing to test. P.S. I looked into the Json Extender but didn't see an easy path to convert to map.

Code Select Expand

;URL Json Return to Wil Map
ip="8.8.8.8"
URL = "https://ipapi.co/":ip:"/json"
oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
oHTTP.Open("GET", URL, @FALSE)
oHTTP.Send()
oHTTP.WaitForResponse()
json = oHTTP.ResponseText
Message("ipapi data",json)  ;display initial Json
json = strreplace(json,'"','')
json = strreplace(json,"{",'"')
json = strreplace(json,"}",'"')
json = strreplace(json,": ",'=')
json = strreplace(json,'    ','')
json = strreplace(json,',','')
json = strreplace(json,'"','')
json = strreplace(json,'=',',')
trim = ' ':@CRLF
json = StrTrimChar(json,trim)
json = '$"':json:'$"'
json = strreplace(json,' ','_') ; remove spaces in values elements
Message("data string",json) ;display data ready for map
;next line will give invalid characters contained error
ipmap = MapCreate(json,',',@lf)
Message("Map Keys",MapKeysGet(ipmap,2,@LF)
Exit

[EDIT]
If I paste the json string into a separate script and run it, works fine.

Code Select Expand

\
json = $"ip,8.8.8.8
network,8.8.8.0/24
version,IPv4
city,Mountain_View
region,California
region_code,CA
country,US
country_name,United_States
country_code,US
country_code_iso3,USA
country_capital,Washington
country_tld,.us
continent_code,NA
in_eu,false
postal,94043
latitude,37.42301
longitude,-122.083352
timezone,America/Los_Angeles
utc_offset,-0800
country_calling_code,+1
currency,USD
currency_name,Dollar
languages,en-USes-UShawfr
country_area,9629091.0
country_population,327167434
asn,AS15169
org,GOOGLE$"

ipmap= MapCreate(json,',',@lf)
Message("Map Keys",MapKeysGet(ipmap,2,@LF))
Exit

[td]

I may be missing something, but why not just do the following?

Code Select Expand

ip="8.8.8.8"
URL = "https://ipapi.co/":ip:"/json"
oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
oHTTP.Open("GET", URL, @FALSE)
oHTTP.Send()
oHTTP.WaitForResponse()
json = oHTTP.ResponseText
AddExtender('ilcjs44i.dll', 0, 'ilcjs64i.dll')
jscon = jsParse(json)
mjs = jsConMap(jsCon)
Message("Map Keys",MapKeysGet(mjs,2,@LF))
exit

[td]

...and removing the line json = '$"':json:'$"' from your script should eliminate the error in your approach.

[spl]

I may be missing something, but why not just do the following?

No, I was missing something.. an active brain. I ruled out using the Extender by just looking up 'json' in consolidated help. Not thinking to scroll up, I based my P.S. note in my post on what I saw. Also, thanks for pointing out the error in original code. I feel officially RFM'd