GÉNÉRER LES LIENS D'URLS À PARTIR D'UN TEXTE SIMPLE

Signaler
Messages postés
2
Date d'inscription
vendredi 15 mars 2002
Statut
Membre
Dernière intervention
15 mars 2002
-
Messages postés
25
Date d'inscription
mardi 24 juillet 2001
Statut
Membre
Dernière intervention
13 décembre 2007
-
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

Messages postés
25
Date d'inscription
mardi 24 juillet 2001
Statut
Membre
Dernière intervention
13 décembre 2007

;-)
Messages postés
2
Date d'inscription
vendredi 15 mars 2002
Statut
Membre
Dernière intervention
15 mars 2002

Bon, le code proposé est génial et utilise des fonctions que je ne connais meme pas MAIS il y a des problemes quand il y a des tags style
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