//**************************************
    //     
    // Name: MuLot Bolding Search
    // Description:Just looking  Google.com
    //     . When you do a search, the word that yo
    //     u looking for is in bold in all the resu
    //     lts.
    You must call the function like this:
    #MuLoT_BoldingSearch("word search", "in this text")#
    example:
    #MuLoT_BoldingSearch("look this", "eh look at this!!!")#
    // By: Le MuLoT
    //
    //This code is copyrighted and has    // limited warranties.Please see http://
    //     www.Planet-Source-Code.com/vb/scripts/Sh
    //     owCode.asp?txtCodeId=75&lngWId;=9    //for details.    //**************************************
    //     
    
    <cfscript>
    		/***************************************************************************************\
    		*	Auteur:	Frdric Gauthier-Boutin													*
    		*	Date:	10 avril 2003																*
    		*	Description:																		*
    		*		Fonction servant  mettre en vidence les mots recherchs 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	=>	Dbut du tag qui sera insr devant							*
    		*							chaque mot recherchs (par dfaut, met en gras)				*
    		*			EndTag		=>	Fin du tag insr devant le mot recherchs par StartTag		*	
    		*			Exclude		=>	Contient une liste de mots  exclure						*	
    		*							(sparer les mots par des espaces)							*
    		*	Version: #2.0																		*
    		\***************************************************************************************/
    		function MuLoT_BoldingSearch(SearchFor, From){ 
    			/*	Dfinition et initialisation de mes variables et des arguments optionels
    				REM:	Dclaration obligatoire de toutes les variables au dbut de la fonction.
    						Sans cela, une erreur de type << No top level page was found >> est dclanche.
    			*/
    			var iCtr = 2; 			//Curseur dterminant le dbut du mot
    			var iFin = 1; 			//Curseur dterminant 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 caractres dans la chane de mots recherchs
    			var StartTag = "<b>";	//Met en gras le mot recherch
    			var EndTag = "</b>"; 	//Ferme le tag du dbut
    			var Exclude = " ou et ";//Nous excluons certains mots cls pour Verity
    			//Vrification si nous avons reu des arguments supplmentaires
    			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];
    			//Enlve les espaces avant et aprs le ou les mots
    			SearchFor = " " & trim(SearchFor);
    			/*
    				J'ai ajouter un espace devant afin de faciliter l'entre de la chane de caractres
    			 	dans ma boucle. Autrement, il m'aurait fallu des conditions spciales pour le tout
    			 	1er caractre. C'est aussi pour cette raison, que iCtr dbute  2 et non  1.
    			 	* Vous n'avez qu' tudier la structure du 1er if pour comprendre. *
    			*/
    			//Vrification s'il y a des mots  rechercher
    			if (SearchFor NEQ " ") {
    				//Dtermine le nombre de caractres  parcourir (+1 pour terminer le dernier mot)
    				iLongueur = len(SearchFor) + 1;
    				//Boucle parcourrant tous les caractres de la chane de mots recherchs
    				while ( iCtr LT iLongueur )
    					/*
    						Ici, il y aurait 2 vrifications  faire pour dtecter le dbut
    						d'un mot sans l'ajout d'un espace devant SearchFor (comme expliqu plus haut) :
    							1)	La premire lettre de la chane correspond certainement au dbut
    								d'un mot, car on a enlv les espaces avant et aprs et
    								et on a vrifi que la chane n'tait pas vide.	
    							2)	Quand je tombe sur un espace et que le prochain caractre est une lettre,
    								c'est le dbut d'un mot  coup sr.
    						Dans notre cas, ayant ajout un espace, nous ne devons vrifier 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 dj sur un caractre
    						iFin = Find(" ", SearchFor, iCtr + 1);
    						//Vrification 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);
    						//Vrification 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");
    						/*
    							Incrmentation 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 aprs le mot
    						*/
    						iCtr = iCtr + iLongueurMot + 1;
    					} else
    						//Incrmentation du compteur, afin de passer au caractre 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>