elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
29 Mayo 2012, 00:57  


Tema destacado: Entra al canal IRC oficial de #elhacker.net

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  extraer mails de textbox		 0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: extraer mails de textbox  (Leído 1,198 veces)
claus86

Desconectado Desconectado

Mensajes: 4


Ver Perfil
extraer mails de textbox
« en: 20 Marzo 2010, 02:18 »
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
En línea
raul338
Moderador
***
Desconectado Desconectado

Mensajes: 2.371


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: extraer mails de textbox
« Respuesta #1 en: 20 Marzo 2010, 02:20 »
Capturacion con expresiones regualres :P
En línea
EddyW

Desconectado Desconectado

Mensajes: 187



Ver Perfil WWW
Re: extraer mails de textbox
« Respuesta #2 en: 20 Marzo 2010, 02:23 »
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.
 :¬¬
En línea
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.214



Ver Perfil WWW
Re: extraer mails de textbox
« Respuesta #3 en: 20 Marzo 2010, 02:26 »
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.
« Última modificación: 20 Marzo 2010, 02:28 por seba123neo » En línea
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
raul338
Moderador
***
Desconectado Desconectado

Mensajes: 2.371


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: extraer mails de textbox
« Respuesta #4 en: 20 Marzo 2010, 03:22 »
:¬¬ yo soy fan de las expresiones regulares, ademas funcionan por mas que sean un XML no valido, o solo texto plano
En línea
LeandroA
Moderador
***
Desconectado Desconectado

Mensajes: 693


Seguime


Ver Perfil WWW
Re: extraer mails de textbox
« Respuesta #5 en: 20 Marzo 2010, 04:28 »
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
« Última modificación: 20 Marzo 2010, 04:31 por LeandroA » En línea
raul338
Moderador
***
Desconectado Desconectado

Mensajes: 2.371


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: extraer mails de textbox
« Respuesta #6 en: 20 Marzo 2010, 14:22 »
Cita de: LeandroA en 20 Marzo 2010, 04:28
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 :)
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[AYUDA]EXTRAER DATOS DE UNA WEB Y PONERLO EN TEXTBOX VB.NET
.NET 		DragonsWP 4 904 Último mensaje 29 Diciembre 2011, 19:25
por Unbr0ken
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines