AccueilCodesTutorielsForumsEmploiLivresConnexion

  • ASP / ASP.NET CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 03 05:01:29
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

Catégorie :Chaînes de caratères Classé sous : générer, liens, url, texte, html Niveau : Expert Date de création : 27/07/2001 Vu : 5 252
Auteur : BinOff Site perso
Ecrire un message privé
Note :
10 / 10 - par 5 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Ce code permet entre autre à partir d'un texte simple (non formaté HTML) de générer les liens en ASP.
 

Source

  • <%
  • 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
  • %> 
<%
    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
%>

Conclusion

Pour mieux vous convaincre, testez ceci :

&lt;% Dim Text
Text = "Venez sur mon site Internet http://www.mp3guest.com"

Text = LinkURLs (Text)
response.write (Text)
%&gt;
Ceci va afficher le texte comportant l'url :
Venez sur mon site Internet &lt;A href="http://www.mp3guest.com"&gt;http://www.mp3guest.com&lt;/a&gt;

 

Commentaires et avis

signaler à un administrateur
Commentaire de PetitPunch le 15/03/2002 19:34:13

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 &lt;BR&gt; et &lt;P&gt; 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,"&lt;BR&gt;"," &lt;BR&gt; ")
        asContent = replace(asContent,"&lt;P&gt;"," &lt;P&gt; ")
        Set loRegExp = New RegExp      
        loRegExp.Global = True
        loRegExp.IgnoreCase = True
        loRegExp.Pattern = "((ht|f)tps?://S+[/]?[^.])([.]?.*)"
        LinkURLs = loRegExp.Replace(asContent, "&lt;A href=""$1"" target=""_new""&gt;&lt;font face=""Arial, Helvetica, sans-serif"" size=""2"" color=""#000099""&gt;$1&lt;/font&gt;&lt;/A&gt; $3")
        loRegExp.Pattern = "(S+@S+..SSS?)"
        LinkURLs = loRegExp.Replace(LinkURLs, "&lt;A href=""mailto:$1""&gt;&lt;font face=""Arial, Helvetica, sans-serif"" size=""2"" color=""#000099""&gt;$1&lt;/font&gt;&lt;/A&gt;")
        Set oRegExp = Nothing
        
    End Function

signaler à un administrateur
Commentaire de BinOff le 16/03/2002 11:11:58

;-)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Générer un .CHM dynamiquement !! [ par :: pi0up51 :: ] lu all,J'aurais aimer savoir (si c possible :) comment faire pour générer un fichier CHM à partir d'une page ASP !! :) ??On peut faire qqch comme ça v Mail au format texte ou HTML? [ par TORIUKE ] Salut,Je veux envoyer un email automatique à partir d'un formulaire. Quand je clic sur "envoyer", le mail part automatiquement au destinataire avec le lien url [ par Kashiko ] Je tente de recreer un principe de SAP qui :recoit une requete HTML (soit simplement une adresse avec des parametres)et renvoit un fichier de type xml génération HTML d'après XML [ par chris53 ] Je dois générer doit marcher pour tous les navigateurs... Les données sont présentes dans un fichier XML.Je souhaite donc générer le document HTML côt Envoi d'un mail Texte ET html [ par guidal ] Salut ...En utilisant CDONTS, je peux envoyer des mails au format texte et des mails au format HTML ...Mais comment faire pour envoyer un mail contena Ouvrir un document html dans word [ par juliusius37 ] mailto:S0KARISS@hotmail.comBonjour, voila mon pb je souhaite a partir d'une page en asp,ouvrir word et y afficher le tablea Resultat vers fichier texte ??? Aidez moi [ par supergrey ] Bonjour, voila mon probleme: j'ai une url qui me donne la valeur du cour EUR/USD en direct et je voudrais pouvoir récupérer juste cette valeur dans un Recherche de texte dans une page html [ par lt_zuki ] Bonjour à tous,voila je dois réaliser un petit glossaire. Et j'ai déjà un lien alphabétique mais je souhaiterais mettre un petit outil de recherche p texte dans une image [ par tmcuh ] voil&#224; je cherche &#224; mettre du texte dans une image, c'est le truc le plus basic je pense pour faire des pages web mais en asp.net j'arrive pa Liens html dans message [ par VivoBaggio ] Salut. Dans un intranet, comment faire pour que lorsque l'utilisateur envoi l'adresse d'un site, le destinataire qui re&#231;oit le message puisse cli


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,515 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.