Spanish Ayuda con Regex

carlos7000 · Aug 14, 2023

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:

B4X:

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.

B4X:

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 · Aug 14, 2023

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

carlos7000 · Aug 14, 2023

No funcionó

carlos7000 · Aug 14, 2023

Adjunto el proyecto para que puedan hacer sus pruebas

epiCode · Aug 14, 2023

B4X:

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 · Aug 14, 2023

drgottjr · Aug 15, 2023

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 · Aug 19, 2023

epiCode said:

B4X:

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 · Aug 19, 2023

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 · Aug 19, 2023

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_ · Aug 19, 2023

carlos7000 said:
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):

B4X:

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_ · Aug 19, 2023

carlos7000 said:
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

B4X:

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 · Aug 20, 2023

No me aparece el botón Mark as Solution.

carlos7000 · Aug 20, 2023

angel_ said:

Prueba así (obtenido de chatgpt):

B4X:

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

Spanish Ayuda con Regex

carlos7000

Well-Known Member

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

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

epiCode

Active Member

carlos7000

Well-Known Member

carlos7000

Well-Known Member

Attachments

epiCode

Active Member

epiCode

Active Member

drgottjr

Expert

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

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

carlos7000

Well-Known Member

carlos7000

Well-Known Member

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

Attachments

carlos7000

Well-Known Member

angel_

Well-Known Member

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

angel_

Well-Known Member

carlos7000

Well-Known Member

carlos7000

Well-Known Member

Similar Threads

Spanish Ayuda con Regex

Well-Known Member

Active Member

Well-Known Member

Well-Known Member

Attachments

Active Member

Active Member

Expert

Well-Known Member

Well-Known Member

Attachments

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency