電腦心得及科學隨筆

      Public Shared Function ActivateWebSiteUrl(ByVal siteString As String) As String
        Dim buf As String = siteString
        Dim patternSite As String = "http(s)?://([\w-]+\.)+[\w-]+(/[\w\d:#@%/;$()~_?\+-=\\\.&]*)?"
        Dim re As Regex = New Regex(patternSite)
        If re.IsMatch(buf) Then
            buf = re.Replace(buf, AddressOf WebSiteMatchEvaluator)
        End If
        Return buf
    End Function

    Public Shared Function WebSiteMatchEvaluator(ByVal m As Match) As String
        Dim ub As UriBuilder = New UriBuilder(m.Value)
        Dim sb As StringBuilder = New StringBuilder("<a href='")
        sb.Append(ub.ToString())
        sb.Append("' target='_blank'>")
        sb.Append(m.Value)
        sb.Append("</a>")
        Return sb.ToString()
    End Function

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ActivateWebSiteUrl(TextBox1.Text)
    End Sub

例如在  TextBox1 中輸入「http://www.google.com.tw」，會自動轉換為「<a href='http://www.google.com.tw:80/' target='_blank'>http://www.google.com.tw</a>」