Sirve para extraer los vínculos de un texto, bueno, eso pretende. Sólo que no soy capaz de definir las variables. Quiero que s sea el texto que se introduce en el primer textbox y que los resultados aparezcan en el segundo textbox.
Código:
Public Class Form1
Dim r As Text.RegularExpressions.Regex
Dim s As String
Dim m As Text.RegularExpressions.Match
s = TextBox1_TextChanged
r = New Text.RegularExpressions.Regex("<a href=\s*([^\s]*)\s*>")
Dim mc As Text.RegularExpressions.MatchCollection = r.Matches(s)
If mc.Count > 0 Then
Console.WriteLine("¡BINGO! hay {0} coincidencias", mc.Count)
For Each m In mc
Console.WriteLine("0= |{0}|", m.Result("$0"))
Console.WriteLine("1= |{0}|", m.Result("$1"))
Next
Else
Console.WriteLine("¡Sin coincidencias!")
End If
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected
End Sub
End Class
