Mettre en gras un ou plusieurs mots recherchés dans un texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 423 fois - Téléchargée 28 fois

Contenu du snippet

J'ai voulu faire un moteur de recherche en exploitatant le technologie Verity qui vient avec Cold Fusion MX. Tout marche, seulement j'ai voulu que tous les mots qui causent ma recherche soient en gras dans les textes retournés (c comme dans google, on tape un mot et ensuite on voit notre mot en gras dans le texte correspondant aux résultats).

Faites un copier/coler du code si dessous

Source / Exemple :


<cfscript>
		/***************************************************************************************\

  • Auteur: Frédéric Gauthier-Boutin *
  • Date: 10 avril 2003 *
  • Description: *
  • Fonction servant à mettre en évidence les mots recherchés dans un texte *
  • *
  • Arguments : *
  • SearchFor => Mot(s) recherché(s) dans le texte *
  • From => Texte dans lequel nous recherchons *
  • le ou les mots contenus dans SearchFor *
  • *
  • Arguments Optionnels : *
  • StartTag => Début du tag qui sera inséré devant *
  • chaque mot recherchés (par défaut, met en gras) *
  • EndTag => Fin du tag inséré devant le mot recherchés par StartTag *
  • Exclude => Contient une liste de mots à exclure *
  • (séparer les mots par des espaces) *
  • Version: #2.0 *
\***************************************************************************************/ function MuLoT_BoldingSearch(SearchFor, From){ /* Définition et initialisation de mes variables et des arguments optionels REM: Déclaration obligatoire de toutes les variables au début de la fonction. Sans cela, une erreur de type << No top level page was found >> est déclanchée.
  • /
var iCtr = 2; //Curseur déterminant le début du mot var iFin = 1; //Curseur déterminant la fin du mot var strTotal = From; //Contiendra le texte final avec les nouvelles balises var strMot = ""; //Contiendra le mot venant d'être isolé var iLongueurMot = 0; //Contiendra la longueur du mot isolé var iLongueur = 0; //Contiendra le nombre de caractères dans la chaîne de mots recherchés var StartTag = "<b>"; //Met en gras le mot recherché var EndTag = "</b>"; //Ferme le tag du début var Exclude = " ou et ";//Nous excluons certains mots clés pour Verity //Vérification si nous avons reçu des arguments supplémentaires if(ArrayLen(arguments) GTE 5) Exclude = Exclude & arguments[5]; if(ArrayLen(arguments) GTE 4) EndTag = arguments[4]; if(ArrayLen(arguments) GTE 3) StartTag = arguments[3]; //Enlève les espaces avant et après le ou les mots SearchFor = " " & trim(SearchFor); /* J'ai ajouter un espace devant afin de faciliter l'entrée de la chaîne de caractères dans ma boucle. Autrement, il m'aurait fallu des conditions spéciales pour le tout 1er caractère. C'est aussi pour cette raison, que iCtr débute à 2 et non à 1.
  • Vous n'avez qu'à étudier la structure du 1er if pour comprendre. *
  • /
//Vérification s'il y a des mots à rechercher if (SearchFor NEQ " ") { //Détermine le nombre de caractères à parcourir (+1 pour terminer le dernier mot) iLongueur = len(SearchFor) + 1; //Boucle parcourrant tous les caractères de la chaîne de mots recherchés while ( iCtr LT iLongueur ) /* Ici, il y aurait 2 vérifications à faire pour détecter le début d'un mot sans l'ajout d'un espace devant SearchFor (comme expliqué plus haut) : 1) La première lettre de la chaîne correspond certainement au début d'un mot, car on a enlèvé les espaces avant et après et et on a vérifié que la chaîne n'était pas vide. 2) Quand je tombe sur un espace et que le prochain caractère est une lettre, c'est le début d'un mot à coup sûr. Dans notre cas, ayant ajouté un espace, nous ne devons vérifier que l'étape #2.
  • /
if ( Mid(SearchFor, iCtr, 1) NEQ " " AND Mid(SearchFor, iCtr - 1, 1) EQ " " ) { //Recherche d'un espace pour trouver la fin du mot //+1 car iCtr est déjà sur un caractère iFin = Find(" ", SearchFor, iCtr + 1); //Vérification si s'était le dernier mot de la liste de mots if ( iFin EQ 0 ) iFin = iLongueur; //Obtention de la longueur du mot iLongueurMot = iFin - iCtr; //Extraction du mot strMot = Mid (SearchFor, iCtr, iFin - iCtr); //Vérification si c'est un mot à exclure if ( FindNoCase(strMot, Exclude) EQ 0 ) //Met les nouvelles balises entre le mot strTotal = ReplaceNoCase(strTotal, strMot, StartTag & strMot & EndTag, "ALL"); /* Incrémentation du compteur jusqu'à la fin de la longueur du mot afin de passer au suivant et continuer la recherche. +1 car nous devons continuer la recherche après le mot
  • /
iCtr = iCtr + iLongueurMot + 1; } else //Incrémentation du compteur, afin de passer au caractère suivant iCtr = iCtr + 1; /*** FIN DE LA BOUCLE ***/ //Retourne le texte contenant toutes les nouvelles balises return strTotal; } else //Aucuns mots à rechercher return SearchFor; }</cfscript>

Conclusion :


Ainsi, pour appeler la fonction, cela ce fait ainsi:
#MuLoT_BoldingSearch("quoi on cherche", "dans quel texte")#

Il ne faut pas non plus oublier les paramètre optionnels. Si je veux, par exemple, que le mot recherche soi en rouge et non en gras j'appel ma fonction comme ceci:

#MuLoT_BoldingSearch("quoi on cherche", "dans quel texte", "<font color=red>", "</font>")#

Si en plus, je veux exclure certains mots (comme "par", "donc", "or") et bien j'appel ma fonction comme ceci:

#MuLoT_BoldingSearch("quoi on cherche", "dans quel texte", "<b>", "</b>", " par donc or ")#

A voir également

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.