Tema destacado: ¡Aprende hacking con práctica! -  arZone, el wargame de elhacker.net
 Autor
|
Tema: Extraer direcciones de correo de un txt vb.net (Leído 1,611 veces)
|
|
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:
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
|
|
|
|
« Última modificación: 9 Julio 2011, 17:59 por mansan[a] »
|
En línea
|
Que le jodan a la salud mental! Fecha de registro: 16 Noviembre 2008, 17:38 años atrás users baneados  |
|
|
|
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 Regularessaludos.
|
|
|
|
|
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
|
|
|
|
usuario oculto
|
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.
|
|
|
|
|
En línea
|
Que le jodan a la salud mental! Fecha de registro: 16 Noviembre 2008, 17:38 años atrás users baneados |
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
usuario oculto
|
me refiero a qué pongo aquí 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 ^^ |
|
|
|
|
En línea
|
Que le jodan a la salud mental! Fecha de registro: 16 Noviembre 2008, 17:38 años atrás users baneados |
|
|
|
 |
