METTRE EN GRAS UN OU PLUSIEURS MOTS RECHERCHÉS DANS UN TEXTE

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