Validar estructura de una cuenta de e-Mail

Board index FiveWin para Harbour/xHarbour Validar estructura de una cuenta de e-Mail

devtuxtla

Posts: 392

Joined: Tue Jul 29, 2008 01:55 PM

Validar estructura de una cuenta de e-Mail
Posted: Tue Sep 10, 2013 08:32 PM

Hola FiveWinners.

Alguien tiene una funcion que valide si una direccion de correo electronica esta bien construida?

ejemplo ?()@estamal.com

Gracias

Saludos

Visite Chiapas, el paraiso de México.

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Validar estructura de una cuenta de e-Mail
Posted: Tue Sep 10, 2013 09:42 PM

Hola

puedes usar el motor para las expresiones regulares de harbour, en la web encontraras muchos ejemplos de expresiones regulares que validan email

aqui te dejo un ejemplo

Code (fw): Select all Collapse

function main()
    

    LOCAL cStr1 := "emailvalido@email.com"
    LOCAL cStr2 := "emailinvalido#email.com"
    LOCAL cStr3 := "emailvalido.mi_email@email.com.ve"

    @ 1, 1 CLEAR TO MaxRow(), MaxCol()

    ? verificaEmail(cStr1)
    ? verificaEmail(cStr2)
    ? verificaEmail(cStr3)

return nil

function verificaEmail(cEmail)
    LOCAL pCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")
    LOCAL aMatch 
    LOCAL cRet := ""

    aMatch = hb_regex( pCompiled, cEmail )

    if Empty( aMatch )
        cRet = "No"
    end

return "Email: " +  cEmail + " " + cRet + " Valido"

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

devtuxtla

Posts: 392

Joined: Tue Jul 29, 2008 01:55 PM

Re: Validar estructura de una cuenta de e-Mail
Posted: Tue Sep 10, 2013 09:49 PM

Hola Daniel.

Excelente, gracias.

Saludos

Visite Chiapas, el paraiso de México.

FiveTech Support Forums

Continue the discussion