If you cannot afford 10 grand for an enterprise version of the Google Maps API, then you might be stuck having to parse the html form the clunky old maps.google.com website. If that is the case, here’s a snippet of code that seems to work consistently to parse out the lat and lon from the html.

 If HTML.Length > 0 Then
‘we have something back so
‘get important part of string
Dim s1 As String = geo.Substring(geo.IndexOf(“viewport:{center:{“), 200)
Dim intStartPos As Integer = s1.IndexOf(“{lat:”, 0) + 5
Dim intEndPos As Integer = s1.IndexOf(“}”, intStartPos)
Dim intCommaPos As Integer = s1.IndexOf(“,”, intStartPos)

‘now assign the strings to lat/ lon vars
_lat = s1.Substring(intStartPos, intCommaPos – intStartPos)
_lon = s1.Substring(intCommaPos + 5, intEndPos – (intCommaPos + 5))

End If

One Response to “Parsing Google Maps HTML”