webForumDet fria alternativet

Skapa länkar

.NET

0 svar · 165 visningar · startad av andreas_lindh

Medlem sedan jan. 20011 140 inlägg
Frågan#1

Jag har den här funktionen som jag använde i vanliga asp för att göra om text till länkar.

Public Function makelink(ByVal y As String)
            Dim mDelimit
            Dim re
            mDelimit = Chr(0)
            re = New regex()
            re.Global = True
            re.IgnoreCase = True
            re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
            y = re.Replace(y, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")

            re.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
            y = re.Replace(y, "<a href=""$1$2" & mDelimit & "$3"" target=""_blank"">$2" & mDelimit & "$3</a>")

            re.Pattern = "(www\.(\S)(\S+))"
            y = re.Replace(y, "<a href=""http://$1"" target=""_blank"">$1</a>")
            y = Replace(y, mDelimit, "")

            makelink = y
        End Function

Hur ska man skriva detta för att det ska fungera i .net?

262 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)
126 ms — ändringar (db)