Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: usuario oculto en 9 Julio 2011, 16:22 pm


Título: Extraer direcciones de correo de un txt vb.net
Publicado por: usuario oculto en 9 Julio 2011, 16:22 pm
Alguien tiene el source para hacer esto?


 de exta expresión:

[^,;\s]+@[^,;\s]+

extraer todas la plabras que la contengan desde un txt donde están las palabras , a otro en el que estan las que solo la contienen.


Muchas gracias de antemano, lo necesito para añadirlo a un programa no para spammear..


he conseguido:
Código:

  Dim r As Regex
        Dim s As String
        Dim m As Match
        '
        ' para extraer links:
        s = textbox5.text
        r = New Regex("[^,;\s]+@[^,;\s]+")

        Dim mc As MatchCollection = r.Matches(s)

        If mc.Count > 0 Then
            MsgBox("¡BINGO! hay {0} coincidencias", mc.Count)
          
        Else
            MsgBox("¡Sin coincidencias!")
        End If


pero me falta que  guarde en un txt las coincidencias
saludos


aqui en vb6

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/166-expresiones-regulares.htm

Título: Re: Extraer direcciones de correo de un txt vb.net
Publicado por: seba123neo en 9 Julio 2011, 21:29 pm
te falta hacer el For Each para recorrer las coincidencias, ahi solo haces el .Count para chequear que hay mas de 0

aca tenes un ejemplo:

Expresiones Regulares (http://www.elguille.info/regexp/regExp01.aspx)

saludos.

Título: Re: Extraer direcciones de correo de un txt vb.net
Publicado por: usuario oculto en 9 Julio 2011, 22:37 pm
Código:
  Dim r As Regex
                                Dim s As String
                                Dim m As Match
                                '
                                ' para extraer links:
                                s = TextBox5.Text
                                r = New Regex("[^,;\s]+@[^,;\s]+")

                                Dim mc As MatchCollection = r.Matches(s)

                                If mc.Count > 0 Then
                                    For Each m In mc

                                    Next
                                End If


y ahora después de for each, qué pongo para que se escriba en un textbox multínea o se escriba en un txt?
Gracias de antemano, con que consiga esto ya finalizo mi herramienta.

Título: Re: Extraer direcciones de correo de un txt vb.net
Publicado por: seba123neo en 9 Julio 2011, 23:42 pm
busca un poco, busca como escribir en un archivo de texto desde vb .net, es mas facil que respirar, busca en internet y vas a encontrar mucho.

Título: Re: Extraer direcciones de correo de un txt vb.net
Publicado por: usuario oculto en 14 Julio 2011, 16:26 pm
me refiero a
qué pongo aquí


Código:
If mc.Count > 0 Then
                                    For Each m In mc
 '(supongo que algo por aki)
                                    Next
para que se ponga en un textbox , lo que tu dices si se que hacerlo :P

gracias pro tu ayuda, espero que me respondas ^^


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines