picture para Email?

[goosfancito]

Alguien compuso algo para que se pueda ingresar solo email
en un get?
o que valide que lo que se ha ingresado es email?
(para que no metan mysql inyectado).

gracias.

[Biel EA6DD]

Lo mejor es que uses expresiones regulares ( hb_regex() ).
Construir la expresión regular al principio parece algo engorroso, pero en google tienes bastantes de definidas, para e-mail puede servirte la siguiente

^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$

[goosfancito]

eso andaba buscando. gracias.

[carlos vargas]

Code: Select all  Expand view

FUNCTION ValidEmailAddress( cMailAddress )
   LOCAL cRegEx := "^[a-zA-Z0-9._%-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}$"
   LOCAL lIsValid := FALSE

   IF ( AllTrim(cMailAddress) LIKE cRegEx )
      lIsValid := TRUE
   ENDIF

RETURN lIsValid
 

[goosfancito]

Code: Select all  Expand view

FUNCTION ValidEmailAddress( cMailAddress )
   LOCAL cRegEx := "^[a-zA-Z0-9._%-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}$"
   LOCAL lIsValid := FALSE

   IF ( AllTrim(cMailAddress) LIKE cRegEx )
      lIsValid := TRUE
   ENDIF

RETURN lIsValid
 

gracias!