Obtener SOLO EL email en un fichero

[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