Private Sub Cmd_Openinmap_Click(sender As Object, e As EventArgs) Handles Cmd_Openinmap.Click Dim Lat As String = Txt_Map_Latitude.Text Dim Lng As String = Txt_Map_Longitude.Text Process.Start("http://maps.google.com/maps?q=51.28333299869885+4.416667002695409&t=h&z=17") End Sub
Imports System Imports System.Text.RegularExpressions Public Module Module1 Public Sub Main() Dim querystring As String = "q=51.28333299869885+4.416667002695409&t=h&z=17" Dim pattern As String = "(?<=q=)\d+\.\d+\+\d+\.\d+(?=&)" Dim m As Match = Regex.Match(querystring, pattern) Console.WriteLine(m) Dim latlng As String() = m.ToString().Split(New Char() {"+"c}) Console.WriteLine(latlng(0)) Console.WriteLine(latlng(1)) End Sub End Module
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)