Extraer direcciones de correo de un txt vb.net

[usuario oculto]

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 [Seleccionar] Expandir



 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

[seba123neo]

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

saludos.

[usuario oculto]

Código [Seleccionar] Expandir


 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.

[seba123neo]

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.

[usuario oculto]

me refiero a
qué pongo aquí

Código [Seleccionar] Expandir


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

gracias pro tu ayuda, espero que me respondas ^^