JSON object regular expression parsing.

[guinness]

Come up with a different regular expression, maybe improved?

#include <Array.au3>
#include <Inet.au3>

Local $aSRE = StringRegExp(_INetGetSource('http://www.telize.com/geoip'), '"\w+":"?([^",]+)', 3)
_ArrayDisplay($aSRE)

Edited March 2, 2014 by guinness

[jguinch]

The longitude and latitude values do not have double quotes around, so your expression no not retrieve them : is this intentional ?

Maybe something like this could be admitted ? (i'm not a king a regexp, but I work to learn...)

Local $aSRE = StringRegExp(_INetGetSource('http://www.telize.com/geoip'), ':"?([^",}]+)', 3)

[guinness]

Whoops, fixed that! Thanks.

I like your implementation too.

[supersonic]

I changed the regex a bit to optimize whitespace handling between value name and value data:

'"\w+":\h*"?([^",]+)'   (guinness)
':\h*"?([^",}]+)'       (jguinch)
 

Edited May 10, 2017 by supersonic