extraer mails de textbox

[claus86]

Hola me podrian decir como puedo hacer para extraer los correos que tengo en un textbox multiline

el contenido del textbox es este

<?xmlversion="1.0"?>
<messenger>
<servicename=".NETMessengerService">
<contactlist>
<contacttype="1">correo1@hotmail.com</contact>
<contacttype="1">correo2@hotmail.com</contact>
<contacttype="1">correo3@hotmail.com</contact>
<contacttype="1">correo4@hotmail.com</contact>
<contacttype="1">correo5@hotmail.com</contact>
<contacttype="1">correo6@hotmail.com</contact>
<contacttype="1">correo7@hotmail.es</contact>
<contacttype="1">correo8@hotmail.com</contact>
<contacttype="1">correo9@gmail.com</contact>
<contacttype="1">correo10@hotmail.com</contact>
<contacttype="1">correo11@hotmail.com</contact>
<contacttype="1">correo12@gmail.com</contact>
<contacttype="1">correo13@hotmail.com</contact>
<contacttype="1">correo14@hotmail.com</contact>
<contacttype="1">correo15@hotmail.com</contact>
<contacttype="1">correo16@gmail.com</contact>
<contacttype="1">correo17@esmundo.com</contact>
<contacttype="1">correo18@hotmail.com</contact>
</contactlist>
</service>
</messenger>

me gustaria que solo queden los emails
gracias

[raul338]

Capturacion con expresiones regualres

[EddyW]

Creo que con expresiones regulares, se podian leer XML..

Busca en recursosvisualbasic.com.ar, recuerdo haber visto sobre esto hace algún tiempo

SaluDOS!!!

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

[seba123neo]

no tenes que hacer nada con expresiones regulares...solo lees el XML ...los nodos contacttype que existan..para eso usa la Microsoft XML Library..busca en internet como leer XML...

saludos.

[raul338]

yo soy fan de las expresiones regulares, ademas funcionan por mas que sean un XML no valido, o solo texto plano

[LeandroA]

Es un xml por lo tanto lo mejor seria utilizar el metodo para leer un xml, pero como en estos dias estuve con expreciones regulares pongo ese metodo.

PD: Raul338  si huviera ledio tu firma dos dias atras me ubieras servido de mucho pero bueno termine usando la que viste.

Código [Seleccionar] Expandir


Option Explicit

Function ExtractEmail(ByVal sSource As String) As Object

   Dim obj_Expresion As Object
   
   Set obj_Expresion = CreateObject("VBScript.RegExp")

   obj_Expresion.Pattern = "[^,;()<>\s]+@[^,;()<>\s]+"
   obj_Expresion.IgnoreCase = True
   obj_Expresion.Global = True
 

  Set ExtractEmail = obj_Expresion.Execute(sSource)
End Function

Private Sub Command1_Click()

   Dim oItems As Object
   Dim i As Long
   
   Set oItems = ExtractEmail(Text1)

   For i = 0 To oItems.Count - 1
       MsgBox oItems(i)
   Next
   
End Sub


[raul338]

Raul338  si huviera ledio tu firma dos dias atras me ubieras servido de mucho pero bueno termine usando la que viste.

cambien la foto de antaño () para poner mis "pequeños" aportes jeje
Me siento alagado jeje... igual te salio bien la aplicacion