GÉNÉRER LES LIENS D'URLS À PARTIR D'UN TEXTE SIMPLE
PetitPunch
Messages postés
2
Date d'inscription
vendredi 15 mars 2002
Statut
Membre
Dernière intervention
15 mars 2002
-
15 mars 2002 à 19:34
BinOff Messages postés 25 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 13 décembre 2007 - 16 mars 2002 à 11:11
BinOff Messages postés 25 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 13 décembre 2007 - 16 mars 2002 à 11:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8677-generer-les-liens-d-urls-a-partir-d-un-texte-simple
https://codes-sources.commentcamarche.net/source/8677-generer-les-liens-d-urls-a-partir-d-un-texte-simple
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