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
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.
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.
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.
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 :P
gracias pro tu ayuda, espero que me respondas ^^