Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 389 fois - Téléchargée 40 fois
<% function LinkURLs(ByRef asContent) Dim loRegExp if asContent = "" Then Exit function Set loRegExp = New RegExp loRegExp.Global = True loRegExp.IgnoreCase = True loRegExp.Pattern = "((ht|f)tps?://\S+[/]?[^\.])([\.]?.*)" LinkURLs = loRegExp.Replace(asContent, "<A href=""$1"">$1</A>$3") loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)" LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>") Set oRegExp = Nothing End function %>
16 mars 2002 à 11:11
15 mars 2002 à 19:34
et autour des adresses alors je me suis permis d'ajouter ma contribution... maintenant ça marche nickel :-) A+
Function LinkURLs(ByRef asContent)
Dim loRegExp
If asContent = "" Then Exit Function
asContent = replace(asContent,"
","
")
asContent = replace(asContent,""," ")
Set loRegExp = New RegExp
loRegExp.Global = True
loRegExp.IgnoreCase = True
loRegExp.Pattern = "((ht|f)tps?://S+[/]?[^.])([.]?.*)"
LinkURLs = loRegExp.Replace(asContent, "[ $1] $3")
loRegExp.Pattern = "(S+@S+..SSS?)"
LinkURLs = loRegExp.Replace(LinkURLs, "[ $1]")
Set oRegExp = Nothing
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.