Inicio > Visual Fox Pro > Validar dirección de correo electrónico

Validar dirección de correo electrónico


Validar dirección de correo electrónico

.

FUNCTION ValidarCuentaCorreo
LPARAMETERS m.cCorreo

oRegExpFox = CREATEOBJECT(“VBScript.RegExp”)
oRegExpFox.IgnoreCase = .T.
oRegExpFox.Pattern = ‘^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)­*)\.([A-Za-z]{2,})$’

m.lValid = oRegExpFox.Test(m.cCorreo)
RELEASE oRegExpFox
RETURN m.lValid

?ValidarCuentaCorreo(“rahsuarez.com”) devuelve .F.
?ValidarCuentaCorreo(“rahsuarez@gmail.com“) devuelve .T.

Categorías:Visual Fox Pro
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: