none
Encontrar encontrar links de sites com o regular expression. RRS feed

  • Pergunta

  • Oi boa tarde, estou com uma dúvida relativo à como escrever o codigo do regular expression no vb 2010, aqui está um exemplo:

    Dim strMail As String = "[a-z0-9-\.]*@[a-z]*\.[a-z]{2,4}"
                Dim reg As New System.Text.RegularExpressions.Regex(strMail)
                Dim matches As System.Text.RegularExpressions.MatchCollection
                matches = reg.Matches(RichTextBox1.Text)
                If matches.Count > 0 Then
                    For Each m As System.Text.RegularExpressions.Match In matches
                        If ListBox1.Items.Contains(m.Value) Then
                        Else
                            RichTextBox2.Text = RichTextBox2.Text & m.Value & ";"
                            ListBox1.Items.Add(m.Value)
                            Form5.ListBox3.Items.Add(m.Value)
                        End If
                    Next
                End If

    Neste caso funciona perfeitamente para encontrar emails nos sites em que pesquiso, porém como eu faço para encontrar links no sites?

    sexta-feira, 30 de novembro de 2012 17:25

Respostas