Quick Search for:  in language:    
   Code/Articles  |  Newest/Best  |  Community  |  Jobs  |  Other  |  Goto  | 
CategoriesSearch Newest CodeCoding ContestCode of the DayAsk A ProJobsUpload
ColdFusion Stats

 Code: 5,644. lines
 Jobs: 19. postings

 How to support the site

Sponsored by:

You are in:

Does your code think in ink?

Latest Code Ticker for ColdFusion.
There is currently no new code. Please check back soon.
Click here to put this ticker on your site!

Add this ticker to your desktop!

Daily Code Email
To join the 'Code of the Day' Mailing List click here!

Affiliate Sites


MuLot Bolding Search

VB icon
Submitted on: 4/17/2003 10:32:40 AM
By: Le MuLoT  
Level: Beginner
User Rating: Unrated
Compatibility:Cold Fusion MX

Users have accessed this code 1243 times.

(About the author)
     Just looking Google.com. When you do a search, the word that you looking for is in bold in all the results. You must call the function like this: #MuLoT_BoldingSearch("word search", "in this text")# example: #MuLoT_BoldingSearch("look this", "eh look at this!!!")#
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:   
By using this code, you agree to the following terms...   
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.   
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.

    // 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")#
    #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.    //**************************************
    		*	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;

Other 1 submission(s) by this author


Report Bad Submission
Use this form to notify us if this entry should be deleted (i.e contains no code, is a virus, etc.).
Your Vote!

What do you think of this code(in the Beginner category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor See Voting Log
Other User Comments

 There are no comments on this submission.
Add Your Feedback!
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this code has been kind enough to share it with you.  If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular code, please click here.


Categories | Articles and Tutorials | Advanced Search | Recommended Reading | Upload | Newest Code | Code of the Month | Code of the Day | All Time Hall of Fame | Coding Contest | Search for a job | Post a Job | Ask a Pro Discussion Forum | Live Chat | Feedback | Customize | ColdFusion Home | Site Home | Other Sites | About the Site | Feedback | Link to the Site | Awards | Advertising | Privacy

Copyright 1997 by Exhedra Solutions, Inc. All Rights Reserved.  By using this site you agree to its Terms and Conditions.  Planet Source Code (tm) and the phrase "Dream It. Code It" (tm) are trademarks of Exhedra Solutions, Inc.