Imprimir Página - extraer mails de textbox

Título: extraer mails de textbox
Publicado por: claus86 en 20 Marzo 2010, 02:18 am

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

Título: Re: extraer mails de textbox
Publicado por: raul338 en 20 Marzo 2010, 02:20 am

Capturacion con expresiones regualres :P

Título: Re: extraer mails de textbox
Publicado por: EddyW en 20 Marzo 2010, 02:23 am

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.
:¬¬

Título: Re: extraer mails de textbox
Publicado por: seba123neo en 20 Marzo 2010, 02:26 am

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.

Título: Re: extraer mails de textbox
Publicado por: raul338 en 20 Marzo 2010, 03:22 am

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

Título: Re: extraer mails de textbox
Publicado por: LeandroA en 20 Marzo 2010, 04:28 am

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 ;D pero bueno termine usando la que viste.

Código:

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

Título: Re: extraer mails de textbox
Publicado por: raul338 en 20 Marzo 2010, 14:22 pm

Cita de: LeandroA en 20 Marzo 2010, 04:28 am

Raul338 si huviera ledio tu firma dos dias atras me ubieras servido de mucho ;D 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 :)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: claus86 en 20 Marzo 2010, 02:18 am