Visual Basic - Como reconocer que es una direccion email..!!

Life is soft - evento anual de software empresarial
 
Vista:

Como reconocer que es una direccion email..!!

Publicado por Gilberto (225 intervenciones) el 08/05/2007 00:46:46
Hola, gracias por su interes..

Trato de hacer un programa para que de un texto en *.txt me reconozca solo las direcciones email y las saque una por una y las almacene en una base de datos en el campo FldEmail
Las direcciones pienso pueden ser reconocidas por el caracter @
y sera que se podra agregarle el nommbre del dueño de la cuenta, osea lo que figura antes entre las comillas, como parte de otro campo en la base de datos que se llame FldNombres
Bueno.. agradezco mucho a quien pueda echarme una ayudita.. !!
Atm
Gilberto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como reconocer que es una direccion email..!!

Publicado por smokalot (203 intervenciones) el 08/05/2007 09:11:58
EL archivo txt te lo montas tu? o ya te lo dan montado???

si, puedes encontrarlos por "@" pero también ten en cuenta que tienes que conocer el caracter que separa una cosa de otra, x ejemplo:

Juan Bartolo, C\De la Paz 54, 2-2 Barcelona, juan.bartolo@gmail.com

entonces tu buscarias las ',' i asi sabrias que has cambiado de dato, tonces lo unico que te faltaria es comprobar si en corte que tu has cogido dentro hay una "@" si no es asi, sudas de ese y coges el siguiente.

dim trozo as string <--- lo que iremos cogiendo del txt, entre las 2 comas (, asdasd ,)

trozo = "asdasd"

while (trozo <> "")
If (instr("@",var)<>0) then --> si que tienes
else
'coges el siguiente trozo ....
endif
wend

espero haberme explicado.

Suerte,

SMK
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como reconocer que es una direccion email..!!

Publicado por Matias (80 intervenciones) el 08/05/2007 16:26:24
Tenes que agregar una referencia a una libreria que viene con visual basic

vas a "Proyecto" > "referencias" y buscas en la lista "Microsoft VBScript Regular Expressions 5.5" (Vbscript.dll/3) la tildas y pones aceptar

Agregas un el Formulario:
1 TextBox (Text1)
1 Label (Label1)

'Codigo en el formulario:

' hacemos referencia a la libreria con la variable "objRegExp"
Dim objRegExp As New RegExp

Private Sub Text1_Change()

objRegExp.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
If objRegExp.Test(Text1.Text) Then
Label1.Caption = "Email correcto."
Else
Label1.Caption = "Email incorrecto."
End If
End Sub

'para mas info escribime un mail. (elchicho_88@hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar