Code zur Verwendung regulärer Ausdrücke zum Hinzufügen von Links zu URLs in Zeichenfolgen unter asp <%
'Fügen Sie den Link zur URL im Feld hinzu.
FunctionToLink(Str)
Dim RE 'Reguläres Ausdrucksobjekt Dim strContent
Wenn IsNull(Str) Dann Str =
Set RE = New RegExp 'Erstellt ein reguläres Ausdrucksobjekt
Mit RE
.Global = True 'Suche gilt für die gesamte Zeichenfolge
.IgnoreCase = True 'Suche ohne Berücksichtigung der Groß- und Kleinschreibung
strContent = Str
'************************************************** * ***************
„Link zur E-Mail-Adresse wird automatisch festgelegt.“
'************************************************** * ***************
.Pattern = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'************************************************** * ***************
'Link automatisch gesetzt
'************************************************** * ***************
'======Fügen Sie den Protokollnamen nach Bedarf hinzu========
Dim D(3), I
D(0) = http
D(1) = ftp
D(2) = Nachrichten
D(3) = mm
'===================================
Für I = 0 bis UBound(D)
.Muster = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
Nächste
'************************************************** * ***************
Ende mit
Setze RE = Nichts
ToLink = strContent
Funktion beenden
%>