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

Commenter

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

S'inscrire maintenant

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.