Android Question Parsing JSON Data (Google Maps Geocoding results)

M

Mike Webster

Member
Licensed User
I am banging my head into my desk trying to figure out how to parse the results from Google Maps to a geocoding request. I need to ultimately grab the location latitude and longitude from this but I am not having much luck. Below is a sample of the info returned by Google. If anyone could provide some guidance, I would appreciate it.

 
Sort by date Sort by votes

TILogistic

Expert
Licensed User
Longtime User
?
B4X: 
    Dim parser As JSONParser
    parser.Initialize(Text)
    Dim mRoot As Map = parser.NextObject

    Dim status As String = mRoot.Get("status")
    Log(status)
  
    For Each colresults As Map In mRoot.Get("results").As(List)

        'Option 1
        Dim geometry As Map = colresults.Get("geometry")
        Dim location As Map = geometry.Get("location")
        Dim lat As Double = location.Get("lat")
        Dim lng As Double = location.Get("lng")
        Log($"${lat} / ${lng}"$)
      
        'Option 2
        Dim lat As Double = colresults.Get("geometry").As(Map).Get("location").As(Map).Get("lat")
        Dim lng As Double = colresults.Get("geometry").As(Map).Get("location").As(Map).Get("lng")
        Log($"${lat} / ${lng}"$)
    Next

 
Upvote 1

TILogistic

Expert
Licensed User
Longtime User
less code:
B4X: 
    Dim mRoot As Map = Text.As(JSON).ToMap 'ignore
    Dim status As String = mRoot.Get("status")
    Log(status)
  
    For Each colresults As Map In mRoot.Get("results").As(List)
        Dim lat As Double = colresults.Get("geometry").As(Map).Get("location").As(Map).Get("lat")
        Dim lng As Double = colresults.Get("geometry").As(Map).Get("location").As(Map).Get("lng")
        Log($"${lat} / ${lng}"$)
    Next
 
Last edited:
Upvote 1
E

emexes

Expert
Licensed User
@oparra's solution is heaps better, but here's another approach { just in case | out of interest }:

regex for latitude = /"location".*?"lat"\s*:\s*(\-?\d*.?\d*)/gs

and similarly for longitude = /"location".*?"lng"\s*:\s*(\-?\d*.?\d*)/gs

 
Upvote 0

TILogistic

Expert
Licensed User
Longtime User
direct reading
B4X: 
    Dim mRoot As Map = Text.As(JSON).ToMap 'ignore
    Dim lat As Double = mRoot.Get("results").As(List).Get(0).As(Map).Get("geometry").As(Map).Get("location").As(Map).Get("lat")
    Dim lng As Double = mRoot.Get("results").As(List).Get(0).As(Map).Get("geometry").As(Map).Get("location").As(Map).Get("lng")

    Log($"${lat},${lng}"$)
 
Upvote 1
E

emexes

Expert
Licensed User

That looks a bit verbose by your standards can you move common parts of the bottom two lines up into the top line?
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Article
Android Code Snippet [B4X] Free Geolocation Nominatim (Geocoding API)
Replies
10
Views
5K
John Naylor
J
  • Question
Android Question Google Geocoding Problem (Geocoder library)
2
Replies
24
Views
3K
magdoz
  • Article
Android Code Snippet [B4X] Google Geocoding REST API
2
Replies
32
Views
23K
aeric
  • Locked
  • Article
B4J Library [B4X] Xml2Map - Simple way to parse XML documents
2 3
Replies
48
Views
36K
Erel
T
  • Question
Reverse Geocoding
Replies
9
Views
4K
rbsoft
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…