Sintaxis para validar correos electronicos

[Javier Figueroa]

Saludos

Es para mi un placer saludarlos y a la vez desearles éxitos en sus actividades, después de este saludo a continuación quisiera expresarles mi solicitud, 

En estos momentos estoy trabajando un panel de participantes en donde le solicitamos por vía telefónica a los entrevistados una serie de datos personales en los cuales se incluyen: nombre, dirección, teléfono y correo electrónico (E-mail), el problema que tengo es con el correo electrónico yo quisiera revisar que el correo electrónico que obtengo sea valido y para eso quisiera generar un sintaxis, quisiera saber si ustedes en la comunidad me pudieran ayudar en la generación de dicho sintaxis, se me ocurria utilizar el comando any(?,?) pero no se como hacerlo dentro de una macro. de echo es un poco mas complicado de lo que creo. 

Esto es algo que tengo en excel, el problema que tengo es que lo hace uno por uno y yo quisiera que lo generara por bloques ya que tengo un numero mas o menos de 7000 regristros.

Public Function blnEmailValid(ByVal strEmailAdd As String) As Boolean
    With CreateObject("VBScript.RegExp")
        .IgnoreCase = True
        .Global = True
        .Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
        blnEmailValid = .Test(strEmailAdd)
    End With
End Function

De antemano muchas gracias por su ayuda.

Atentamente, 

Javier Figueroa
Procesamiento y Análisis de bases de datos

[David Marso]

And this has something to do with SPSS?
--

Javier Figueroa wrote

Saludos

Es para mi un placer saludarlos y a la vez desearles éxitos en sus
actividades, después de este saludo a continuación quisiera expresarles mi
solicitud,

En estos momentos estoy trabajando un panel de participantes en donde le
solicitamos por vía telefónica a los entrevistados una serie de datos
personales en los cuales se incluyen: nombre, dirección, teléfono y correo
electrónico (E-mail), el problema que tengo es con el correo electrónico yo
quisiera revisar que el correo electrónico que obtengo sea valido y para
eso quisiera generar un sintaxis, quisiera saber si ustedes en la comunidad
me pudieran ayudar en la generación de dicho sintaxis, se me ocurria
utilizar el comando any(?,?) pero no se como hacerlo dentro de una macro.
de echo es un poco mas complicado de lo que creo.

Esto es algo que tengo en excel, el problema que tengo es que lo hace uno
por uno y yo quisiera que lo generara por bloques ya que tengo un numero
mas o menos de 7000 regristros.

Public Function blnEmailValid(ByVal strEmailAdd As String) As Boolean
    With CreateObject("VBScript.RegExp")
        .IgnoreCase = True
        .Global = True
        .Pattern =
"^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
        blnEmailValid = .Test(strEmailAdd)
    End With
End Function

De antemano muchas gracias por su ayuda.

Atentamente,




*Javier Figueroa
Procesamiento y Análisis de bases de datos

*

[Javier Figueroa]

Si, la base esta en spss y el sintasis lo quiero en SPSS. 

Gracias, por preguntar.

Atentamente.

El 5 de junio de 2013 15:14, David Marso <[hidden email]> escribió:

And this has something to do with SPSS?
--

Javier Figueroa wrote

> Saludos
>
> Es para mi un placer saludarlos y a la vez desearles éxitos en sus
> actividades, después de este saludo a continuación quisiera expresarles mi
> solicitud,
>
> En estos momentos estoy trabajando un panel de participantes en donde le
> solicitamos por vía telefónica a los entrevistados una serie de datos
> personales en los cuales se incluyen: nombre, dirección, teléfono y correo
> electrónico (E-mail), el problema que tengo es con el correo electrónico
> yo
> quisiera revisar que el correo electrónico que obtengo sea valido y para
> eso quisiera generar un sintaxis, quisiera saber si ustedes en la
> comunidad
> me pudieran ayudar en la generación de dicho sintaxis, se me ocurria
> utilizar el comando any(?,?) pero no se como hacerlo dentro de una macro.
> de echo es un poco mas complicado de lo que creo.
>
> Esto es algo que tengo en excel, el problema que tengo es que lo hace uno
> por uno y yo quisiera que lo generara por bloques ya que tengo un numero
> mas o menos de 7000 regristros.
>
> Public Function blnEmailValid(ByVal strEmailAdd As String) As Boolean
>     With CreateObject("VBScript.RegExp")
>         .IgnoreCase = True
>         .Global = True
>         .Pattern =
> "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
>         blnEmailValid = .Test(strEmailAdd)
>     End With
> End Function
>
> De antemano muchas gracias por su ayuda.
>
> Atentamente,
>
>
>
>

> *Javier Figueroa

> Procesamiento y Análisis de bases de datos
>

> *





-----
Please reply to the list and not to my personal email.
Those desiring my consulting or training services please feel free to email me.
---
"Nolite dare sanctum canibus neque mittatis margaritas vestras ante porcos ne forte conculcent eas pedibus suis."
Cum es damnatorum possederunt porcos iens ut salire off sanguinum cliff in abyssum?"
--
View this message in context: http://spssx-discussion.1045642.n5.nabble.com/Sintaxis-para-validar-correos-electronicos-tp5720597p5720599.html
Sent from the SPSSX Discussion mailing list archive at Nabble.com.

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

--
Javier Figueroa
Procesamiento y Análisis de bases de datos