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

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

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, [email protected]

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

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. ([email protected]