guvoaII : Mensaje: Re: [guvoaII] Funcion para validar email

Guillermo,

Yo utilizo esta funcion, espero te sirva.

FUNCTION Isemail( cMail AS STRING ) AS LOGIC
LOCAL nPos AS DWORD
LOCAL lValor AS LOGIC
lvalor := TRUE

IF ( nPos := At( '@', cMail ) ) > 0
    IF ( nPos := At( '.', SubStr( cMail, nPos + 1 ) ) ) = 0
   lValor := FALSE
    ENDIF
ELSE
    lValor := FALSE
ENDIF
RETURN( lValor )

Pablo J. Pereyra
Córdoba - Argentina
pjpereyra@...
ICQ: 34806442

----- Original Message -----

From: Guillermo Valenzuela

To: guvoaII@...

Sent: Thursday, February 22, 2007 1:57 PM

Subject: [guvoaII] Funcion para validar email

Hola a todos, alguno de ustedes me podría colaborar con una función para validar que una cadena sea email.

Gracias.

Guillermo Andrés Valenzuela Ramírez

Desarrollo

Global Education

Cra. 9 No. 74 - 62

Tel: 313 9200 ext. 307 Fax: 3175376

Bogotá - Colombia

www.universidadgarantizada.com

__________ Información de NOD32 2076 (20070222) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

Desplegar mensajes

Autor

Ordenar por fecha

Hola a todos, alguno de ustedes me podría colaborar con una función para validar que una cadena sea email. Gracias. Guillermo Andrés Valenzuela Ramírez ...

Guillermo Valenzuela
kaoscore53

22 de Feb, 2007
6:02 pm

Guillermo, Yo utilizo esta funcion, espero te sirva. FUNCTION Isemail( cMail AS STRING ) AS LOGIC LOCAL nPos AS DWORD LOCAL lValor AS LOGIC lvalor := TRUE IF (...

Pablo J. Pereyra
pjpereyra

22 de Feb, 2007
9:38 pm

Consejos

¿Sabías que...?

Mensajes