Spanish Ayuda con Regex

[carlos7000]

Hola a todos

Los regex nunca los he entendido completamente. Esta tarde he leído bastante sobre ellos y he visto varios videos pero ninguno me funciona.

Estoy tratando de crear una función que me retorne True o False si el dato recibido es valido para ser procesado.

Este es el datos con los que debería dar True son

https://www.google.com/maps?q=4.703274,-74.130271

40°42'46.1"N 74°00'21.6"W

www.google.com

40°42'36.0"N 74°00'00.0"W

www.google.com

En otras palabras la primera parte siempre es "https://www.google.com/maps?q=" y a continuación deben haber dos números decimales separados por una ',' que pueden tener una cantidad variable de decimales

Cree 2 regex pero ninguno funciona :
"^https:\/\/www\.google\.com\/maps\?q=-?\d+\.\d+,-?\d+\.\d+$"
"^(http(s)?://)?maps.google.com/maps\?q=([-+]?\d{1,2}\.\d+),([-+]?\d{1,3}\.\d+)$"

Escribí esta función para probarlos:

Sub CheckIfGoogleMapsUrl(url As String, pattern As String) As Boolean
    Dim isMatch As Boolean = Regex.IsMatch(url, pattern)
    Return isMatch
End Sub

Al probar la función con esta otra, siempre da False.

Sub TestCheckURL
  
    Dim url1 As String = "https://www.google.com/maps?q=4.703274,-74.130271"
    Dim url2 As String = "https://www.google.com/maps?q=40.7128,-74.0060"
    Dim url3 As String = "https://www.example.com"

  
    Dim pattern As String
    pattern = "^https:\/\/www\.google\.com\/maps\?q=-?\d+\.\d+,-?\d+\.\d+$"
    Log("URL 1 Match: " & CheckIfGoogleMapsUrl(url1, pattern))
    Log("URL 2 Match: " & CheckIfGoogleMapsUrl(url2, pattern))
    Log("URL 3 Match: " & CheckIfGoogleMapsUrl(url3, pattern))
End Sub

El los primeros 2 test debería dar True

Trate de hacer otra función validar los datos cuando llegan en un formato como este "4.703274,-74.130271" con el siguiente regex ^[-]?\d+(\.\d+)?,[-]?\d+(\.\d+)?$ y este otro regex (-?\d+\.\d+),(-?\d+\.\d+) pero tampoco me funciona

con este otro formato...

https://www.google.com/maps/place/4°42'11.8"N+74°07'49.0"W/@4.703274,-74.1328459,17z/data=!3m1!4b1!4m4!3m3!8m2!3d4.703274!4d-74.130271?entry=ttu

...ni lo intente, porque se que no lo lograré.

En el caso del ultimo, debe comenzar por https://www.google.com/maps/place/ y contener 2 decimales separados por ',' los decimales están precedidos por '@'

 

[epiCode]

pattern = "^https:\/\/www\.google\.com\/maps\?q=\-?\d+\.\d+,\-?\d+\.\d+$"

 

[carlos7000]

No funcionó

 

[carlos7000]

Adjunto el proyecto para que puedan hacer sus pruebas

 

[epiCode]

Sub CheckIfGoogleMapsUrl(url As String, pattern As String) As Boolean
    Dim m As Matcher = Regex.Matcher2( pattern, Regex.CASE_INSENSITIVE,url)
    Return m.Find
End Sub

 

[epiCode]

 

[drgottjr]

el asunto es mas complicado

in primer termino, que las coordinadas sean validas no quiere decir
que son correctas. el usuario podia haber teclado la longitud y la
latitud al reves, o sea, longitud primera, dando lugar posiblemente a
unas coordinadoras validas pero incorrectas.

4°42'11.8"N 74°07'49.0"W

www.google.com

74°07'49.0"S 4°42'11.8"E

www.google.com

las coordinadas son ambas validas, pero se refieren a puntos muy distintos (si estas preparando la maleta para
un viaje)

segundo, valores validos para la latitud son aproximadamente 85
hasta -85, y para la longitud 180 hasta -180. habra que incluirse
pruebas aptas.

tercero, el segundo formato para coordinadoras no es facil de
analilzar debido - entre otras razones - al uso de simbolos especiales y
la falta de un sencillo "-" para indicar oeste o sur (segun)

aqui tienes la regla (regex) que utilizo para ese formato. la hice en javascript, pero te dara una idea
como proceder:
/^(\d{1,3})\D ?(\d{1,2})\D ?([0-9.]+?)\D ?([NSEW]),? *?(\d{1,3})\D ?(\d{1,2})\D ?([0-9.]+?)\D ?([NSEW])/

pero el regex es lo de menos. ademas de sacar grados, minutos y segundos, tendras que
validar los datos (o sea posibles valores validos para grados, minutos y segundos). y manejando "[NSEW]" de
por si solo es un ejercicio interesante.

y despues de hacer esto, hay formulas para convertir grados + minutes + segundos a las coordinadas utilizadas
por una persona normal para localizar un punto en el mapa. nadie va a teclar este format (el simbolo para grados no
se encuentra en los teclados que yo he visto).

 

[carlos7000]

Sub CheckIfGoogleMapsUrl(url As String, pattern As String) As Boolean
    Dim m As Matcher = Regex.Matcher2( pattern, Regex.CASE_INSENSITIVE,url)
    Return m.Find
End Sub

La función y el regex de epiCode funcionaron.

Muchas gracias.

 

[carlos7000]

Me gustaría, si alguien me puede ayudar con un regex para esta cadena de texto:

https://www.google.com/maps/place/4°42'11.8"N+74°07'49.0"W/@4.703274,-74.1328459,17z/data=!3m1!4b1!4m4!3m3!8m2!3d4.703274!4d-74.130271?entry=ttu

Pero al pasar esa cadena a una variable, atomaticamente se convierte en

Me toco pegar el texto como imagen porque al escribir el texto, el algoritmo del foro lo convierte en esto

4°42'11.8"N 74°07'49.0"W · 4.703278, -74.130278

www.google.com

Con respecto a esta cadena lo que necesito es validar que contiene 2 números decimales después de '/@', separados por una ','

 

[carlos7000]

Descubrí que podía extraer la información que deseo empleando el método 'Match'. En la ayuda dice que Match es de solo lectura y retornara un texto conteniendo el texto encontrado. Al tratar de extraer el texto el programa se quiebra.

 

[angel_]

Me gustaría, si alguien me puede ayudar con un regex para esta cadena de texto:

https://www.google.com/maps/place/4°42'11.8"N+74°07'49.0"W/@4.703274,-74.1328459,17z/data=!3m1!4b1!4m4!3m3!8m2!3d4.703274!4d-74.130271?entry=ttu

Pero al pasar esa cadena a una variable, atomaticamente se convierte en

View attachment 144918
Me toco pegar el texto como imagen porque al escribir el texto, el algoritmo del foro lo convierte en esto

4°42'11.8"N 74°07'49.0"W · 4.703278, -74.130278

www.google.com

Con respecto a esta cadena lo que necesito es validar que contiene 2 números decimales después de '/@', separados por una ','

Prueba así (obtenido de chatgpt):

Dim url As String = $"https://www.google.com/maps/place/4°42'11.8"N+74°07'49.0"W/@4.703274,-74.1328459,17z/data=!3m1!4b1!4m4!3m3!8m2!3d4.703274!4d-74.130271?entry=ttu3"$
Dim pattern As String = "@(-?\d+\.\d+),(-?\d+\.\d+)"

Dim matcher1 As Matcher = Regex.Matcher(pattern, url)

If matcher1.Find Then
    Dim latitude As String = matcher1.Group(1)
    Dim longitude As String = matcher1.Group(2)
    Log("Latitude: " & latitude)
    Log("Longitude: " & longitude)
Else
    Log("No match found.")
End If

 

[angel_]

Descubrí que podía extraer la información que deseo empleando el método 'Match'. En la ayuda dice que Match es de solo lectura y retornara un texto conteniendo el texto encontrado. Al tratar de extraer el texto el programa se quiebra.

View attachment 144917

Sub CheckIfGoogleMapsUrl(url As String, pattern As String) As Boolean
    Dim m As Matcher = Regex.Matcher2( pattern, Regex.CASE_INSENSITIVE,url)
    If m.Find then Log(m.Match)
    Return m.Find
End Sub

 

[carlos7000]

No me aparece el botón Mark as Solution.

 

[carlos7000]

Prueba así (obtenido de chatgpt):

Dim url As String = $"https://www.google.com/maps/place/4°42'11.8"N+74°07'49.0"W/@4.703274,-74.1328459,17z/data=!3m1!4b1!4m4!3m3!8m2!3d4.703274!4d-74.130271?entry=ttu3"$
Dim pattern As String = "@(-?\d+\.\d+),(-?\d+\.\d+)"

Dim matcher1 As Matcher = Regex.Matcher(pattern, url)

If matcher1.Find Then
    Dim latitude As String = matcher1.Group(1)
    Dim longitude As String = matcher1.Group(2)
    Log("Latitude: " & latitude)
    Log("Longitude: " & longitude)
Else
    Log("No match found.")
End If

En este momento no puedo probar el código, ya que el proyecto lo tengo en otro computador.

Muchas gracias por su ayuda