Obtener SOLO EL email en un fichero

[jorge1644]

Hola!


Alguien sabe como obtener un listado de un fichero que hay texto e emails?
SOLO QUIERO SACAR LOS EMAILS (SIN LOS CARACTERES QUE NO PERTENECEN AL EMAIL, POR EJEMPL <> " ... ETC ...)

GRACIAS!!!


ESTE ES PARTE DEL TEXTO:

If you do so, please include this problem report. You can
delete your own text from the attached returned message.

<[email protected]>: host mx-uolar.uol.com.br[200.221.0.2] said: 550
<[email protected]>: Recipient address rejected: User unknown in

<[email protected]>: host mail.aluminiumbahrain.com[64.239.60.43]

<[email protected]>: host vmx.terra.com[208.84.244.136] said: 550 User
unknown (in reply to RCPT TO command)
"
For further assistance, please send mail to postmaster.

<[email protected]>: host vmx.terra.com[208.84.244.136] said: 550 User

[Adler]

Hola

Usa expresiones regulares

Suerte

[jorge1644]

Hola

como por ejemplo?

[Adler]

Hola

¿Es que no piensas hacer nada? Si esperas que los demás lo hagan por ti, poco recorrido tendrás en esto.
Para empezar
http://gollum.inforg.uniovi.es/aii/valida_regexp.php

Suerte

[jorge1644]

Adler ... gracias pero con esto

http://gollum.inforg.uniovi.es/aii/valida_regexp.php


no me entero de nada (es lo que tiene estar empezando en esto del ASP)

Lo que buscaba era un simple codigo ASP .... en fin ya me buscaré la vida ...

Gracias de todas formas

[Adler]

Hola

El código que te indico @JuanRa, con otra expresión

Código ASP:

function esValidoEmail(cadena)
  set expReg = New RegExp
  expReg.Pattern = "(^[0-9a-zA-Z]+(?:[._][0-9a-zA-Z]+)*)@([0-9a-zA-Z]+(?:[._-][0-9a-zA-Z]+)*\.[0-9a-zA-Z]{2,3})$"
  esValidoEmail = expReg.Test(cadena)
  set expReg = nothing
end function
 

Esto te devolverá True o False. Para usarlo

Código ASP:

if esValidoEmail("[email protected]") = True then
Response.Write "correcto"
else
Response.Write "error"
end if
 

Lo que te ocupaba en el otro post (sacar solamente el email), sería algo como

Código ASP:

cadena = "if you do so, please include this problem report. You can" &_
"delete your own text from the attached returned message." &_
"<[email protected]>: host mx-uolar.uol.com.br[200.221.0.2] said: 550" &_
"<[email protected]>: Recipient address rejected: User unknown in" &_
"<[email protected]>: host mail.aluminiumbahrain.com[64.239.60.43]" &_
"<[email protected]>: host vmx.terra.com[208.84.244.136] said: 550 User" &_
"unknown (in reply to RCPT TO command)" &_
"''" &_
"For further assistance, please send mail to postmaster." &_
"<[email protected]>: host vmx.terra.com[208.84.244.136] said: 550 User"
 
Function Encuentra (strOriginal)
Set objRegExp = new RegExp
objRegExp.Pattern = "((<+)([^>]+)(>))"
objRegExp.IgnoreCase = True
objRegExp.Global = True
Set strCadena = objRegExp.Execute(strOriginal)
For Each Coincidencia in strCadena
strlimpio  = strlimpio & objRegExp.replace(Coincidencia.Value, "$3") & "<br />"
Next
Encuentra = strlimpio
Set strCadena = nothing
Set objRegExp = nothing
End Function
 

Uso

Código ASP:

<&#37;=Encuentra(cadena)%>
 

Estudia las expresiones regulares, son muy útiles

Suerte