Public Function GetGeoCoords(ByVal inString As String) As String
Dim Chunks As String()
Dim outString As String = ""
Chunks = Regex.Split(inString, "&")
For Each s As String In Chunks
If InStr(s, "ll") > 0 Then outString = s
Next
Return Replace(Replace(outString, "sll=", ""), "ll=", "")
End Function
-
No comments:
Post a Comment