Code pour utiliser des expressions régulières pour ajouter des liens vers des URL dans des chaînes sous asp <%
'Ajoutez le lien vers l'URL dans le champ.
FonctionVersLien(Str)
Dim RE 'Objet d'expression régulière Dim strContent
Si IsNull(Str) Alors Str =
Set RE = New RegExp 'Créer un objet d'expression régulière
Avec RE
.Global = True 'La recherche s'applique à la chaîne entière
.IgnoreCase = True 'Recherche insensible à la casse
strContent = Str
'************************************************ * *****************
'Lien d'adresse e-mail défini automatiquement
'************************************************ * *****************
.Motif = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'************************************************ * *****************
'Lien automatiquement défini
'************************************************ * *****************
'======Ajoutez le nom du protocole si nécessaire========
Dim D(3), je
D(0) = http
D(1) = ftp
D(2) = actualité
D(3) = mms
'=====================================
Pour I = 0 À UBound(D)
.Motif = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
Suivant
'************************************************ * *****************
Terminer par
Définir RE = Rien
VersLien = strContent
Fonction de fin
%>