begin process at 2012 05 27 06:48:50
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Chaînes de caratères

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

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


 Information sur la source

Note :
10 / 10 - par 5 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Chaînes de caratères Classé sous :générer, liens, url, texte, html Niveau :Initié Date de création :27/07/2001 Date de mise à jour :01/06/2010 17:47:06 Vu :7 705
Auteur : BinOff

Ecrire un message privé
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 = "le site http://www.google.com est un moteur de recherche"

Text = LinkURLs (Text)
response.write (Text)
%&gt;
Ceci va afficher le texte comportant l'url :
le site &lt;A href="http://www.google.com"&gt;http://www.google. com&lt;/a&gt; est un moteur de recherche


 Historique

01 juin 2010 17:47:06 :
--

 Sources du même auteur

GÉNÉRATION AUTOMATIQUE DE TABLEAUX CROISÉS EN FONCTION D'UNE...
GÉNÉRER UNE CHAINE ALÉATOIRE
VÉRIFICATION D'UNE DATE AVEC GESTION DES ANNÉES BISSEXTILE
Source avec Zip GESTIONNAIRE DE NEWS AVEC COMMENTAIRES
FONCTIONS DE CONVERSION FRANCS <> EUROS
Toutes les sources de BinOff

 Sources de la même categorie

FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUI... par promeythey
CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650
CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS par EricDD
FONCTION UCFIRST EN ASP par DesignerCreator
Source .NET (Dotnet) FONCTIONS DE VÉRIFICATION DE LA SYNTAXE D'UNE CHAINE par vladam
Toutes les sources de la catégorie Chaînes de caratères

 Sources en rapport avec celle ci

CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650
Source .NET (Dotnet) VERIFIER L'EXITENCE D'UN URL par fouedelapoche
Source .NET (Dotnet) FONCTION POUR GÉNÉRER UN JAVACRIPT D'OUVERTURE D'UNE IMAGE E... par tikrimi
Source avec Zip Source avec une capture Source .NET (Dotnet) FORCOMMUNAUTY WYSIWIG EN VB.NET par tkfe
CONVERTIR UNCHAMP PASSÉ EN URL EN FORMAT STRING par rcolas

Commentaires et avis

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

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

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,465 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)