This is one using ASP.Net
..But i am not sure it is what you're looking for... try it :thumbsup:
Imports System
Imports System.Diagnostics
Imports System.Text
Imports System.Text.RegularExpressions
Imports Microsoft.VisualBasic
Public 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@email.com. " _
& "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.website.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