FoxPro/Visual FoxPro - Validar E-mail en el Valin Del TXT

Bueno compañero esto parece que está difícil,

Copie este código como me dijeron en el Valin del TXT del E-mail y da un error
DEFINE CLASS ValidateMail AS cMailClass
Name = "ValidateMail"

PROCEDURE Execute
LPARAMETERS tcAddress

IF VARTYPE(tcAddress) <> T_CHARACTER
tcAddress = ""
ENDIF

tcAddress = ALLTRIM(tcAddress)

IF EMPTY(tcAddress)
RETURN
ENDIF

LOCAL loParser, llValid

loParser = CREATEOBJECT("VBScript.RegExp")
loParser.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"

llValid = loParser.Test(tcAddress)
loParser = .NULL.

RETURN (llValid)
ENDPROC
ENDDEFINE

att Elianny

No puedes tener un PROCEDURE dentro de un metodo/evento de fox.

Es correcto compañero
Ellany no tienes que ponerlo en el Valid de tu TXT

Suerte

Puedes crear el procedimiento en tu PRG principal o crea un metodo en tu form
eso depende de ti

Suerte

te quierpo desir cuando bienes acajamarcaabla soy luis de cajamarca su mamigo del diego dime cuando vienespoir ke teestoy estrañandote aty ps dime cuando