textarea中输入的http://...在输出时如何自动转换为链接

Question

求replace方法的具体用法

Answer 1

string a = "12345abc";a.replace("23","hj").ToString();a的结果就变成了"1hj45abc"

Answer 2

Imports System
Imports System.Diagnostics
Imports System.Text
Imports System.Text.RegularExpressions
Imports Microsoft.VisualBasicPublic Class RegExApp
    Public Shared Sub Main()
        Dim r As RegExApp = New RegExApp()
    End Sub    Public Sub New()
        ' Detecting EMAIL addresses. All occurrences will be processed.
        Dim emailString As String = "My email address is [email protected]. " _
            & "Don't spam me."
        Console.WriteLine(ActivateEmailAddress(emailString))        Console.WriteLine(vbCrLf & vbCrLf)        ' Detecting Web sites. All occurrences will be processed.
        Dim siteString As String = "My Web site is www.vb2themax.com; Visit us."
        Console.WriteLine(ActivateWebSiteUrl(siteString))
    End Sub    Public Function ActivateEmailAddress(emailString As String) As String
        Dim buf As String = emailString
        Dim patternEmail As String = "[a-zA-Z_0-9.-]+\@[a-zA-Z_0-9.-]+\.\w+"
        Dim re As RegEx = New Regex(patternEmail)
        If re.IsMatch(buf) Then
            buf = re.Replace(buf, AddressOf MailToMatchEvaluator)
        End If
        Return buf 
    End Function    Public Function ActivateWebSiteUrl(siteString As String) As String
        Dim buf As String = siteString
        Dim patternSite As String = "\w*[\://]*\w+\.\w+\.\w+[/\w+]*[.\w+]*"
        Dim re As RegEx = New Regex(patternSite)
        If re.IsMatch(buf) Then
            buf = re.Replace(buf, AddressOf WebSiteMatchEvaluator)
        End If
        Return buf
    End Function    Private Function MailToMatchEvaluator(ByVal m As Match) As String
        Dim sb As StringBuilder = New StringBuilder("<a href='mailto:")
        sb.Append(m.Value)
        sb.Append("'>")
        sb.Append(m.Value)
        sb.Append("</a>")
        Return sb.ToString()
    End Function    Private 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("'>")
        sb.Append(m.Value)
        sb.Append("</a>")
        Return sb.ToString()
    End Function
End Class