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
Capturacion con expresiones regualres :P
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.
:¬¬
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.
:¬¬ yo soy fan de las expresiones regulares, ademas funcionan por mas que sean un XML no valido, o solo texto plano
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.
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
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 :)