Excel VBA extract values JSON URL -


in excel

i try extract value "45.33887499999999"

by google url "https://maps.googleapis.com/maps/api/geocode/json?address=bojon" (in example google url +"=bojon" or +"=venice%20beach%20ca")

with vba code:

public function latitude(coord string)     dim firstval string     firstval = "https://maps.googleapis.com/maps/api/geocode/json?address="     set objhttp = createobject("msxml2.serverxmlhttp")     url = firstval & replace(coord, " ", "+")     objhttp.open "get", url, false     objhttp.setrequestheader "user-agent", "mozilla/4.0 (compatible; msie 6.0; windows nt 5.0)"     objhttp.send ("")     if instr(objhttp.responsetext, """location"" : {") = 0 goto errorhandl     set regex = createobject("vbscript.regexp"): regex.pattern = """lat"".*?([0-9]+)": regex.global = false     set matches = regex.execute(objhttp.responsetext)     tmpval = replace(matches(index).submatches(0), ".", application.international(xllistseparator))     latitude = cdbl(tmpval)     exit function errorhandl:     latitude = -1 end function

but code extracts "45" , not "45.33887499999999"

i tried change regex.pattern = """lat"".*?([0-9]+)"

but haven't found solution

finally want extract 3 values 3 different formulas (created vba code) url

google url + "=bojon"

in these rows

     "formatted_address" : "30010 bojon ve, italia",      "geometry" : {         "location" : {            "lat" : 45.33887499999999,            "lng" : 12.06598

in a1 cell: "bojon"

=googdress(a1) result = "30010 bojon ve, italia"

=latitude(a1) result = "45.33887499999999"

=longitude(a1) result = "12.06598"

another example:

google url + "=venice%20beach%20ca"

     "formatted_address" : "venice beach, california, stati uniti",      "geometry" : {         "bounds" : {            "northeast" : {               "lat" : 33.996311,               "lng" : -118.4561299            },            "southwest" : {               "lat" : 33.9636437,               "lng" : -118.4835886            }         },         "location" : {            "lat" : 33.9936153,            "lng" : -118.4799099

=googdress(a1) result = "venice beach, california, stati uniti"

=latitude(a1) result = "33.9936153"

=longitude(a1) result = "-118.4799099"

can me?

using script control parse json , caching json responses avoid unnecessary xmlhttp calls:

sub tester()      debug.print getresult("https://maps.googleapis.com/maps/api/geocode/json?address=bojon", _                        "results[0].geometry.location.lat")      debug.print getresult("https://maps.googleapis.com/maps/api/geocode/json?address=bojon", _                        "results[0].geometry.location.lng")   end sub  function getresult(url string, jsonpath string)      static responsecache object     dim objhttp object, json string     dim sc object      if responsecache nothing         set responsecache = createobject("scripting.dictionary")     end if      if not responsecache.exists(url)         debug.print "fetching:" & url         set objhttp = createobject("msxml2.serverxmlhttp")         objhttp.open "get", "https://maps.googleapis.com/maps/api/geocode/json?address=bojon", false         objhttp.send ("")         json = objhttp.responsetext         responsecache.add url, json     else         debug.print "use cache:" & url         json = responsecache(url)     end if      set sc = createobject("scriptcontrol")     sc.language = "jscript"     sc.eval "var obj=(" & json & ")" 'evaluate json response      getresult = sc.eval("obj." & jsonpath)  end function

Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more