Accueil > > > METTRE EN GRAS UN OU PLUSIEURS MOTS RECHERCHÉS DANS UN TEXTE
METTRE EN GRAS UN OU PLUSIEURS MOTS RECHERCHÉS DANS UN TEXTE
Information sur la source
Description
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
- <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>
<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 ")#
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
CFFILE et base de données [ par Ernst ]
Bonjour,Je cherche à faire la chose suivante:1) inserer un enregistrement dans une base de données, avec des éléments provenant d'un formulaire. (de t
Retour à la ligne. [ par Domi ]
Je voudrai récupérer depuis un formulaire le texte d'un Textarea, jusqu'a la pas de probléme, mais je voudrai également récupérer les retour à la lign
formater du texte dans un tableau [ par melany ]
Lorsque je veux afficher un texte tappé au kilomètre sans espace entre les mots, dans un tableau auquel j'ai donné une taille fixe, je n'obtiens pas l
Comment afficher x caractères sans couper le dernier mot ? [ par Roberto ]
Comment afficher x caractères sans couper le dernier mot ?Quelqu'un a une idée ? #left(text,80)#Que dois-je ajouter pour y arriver ? Merci d'avance.
Encrypt et Decrypt [ par perlimpinpin ]
Je ne comprends pas pourquoi la fonction Encrypt(string, key) ne crypte pas toujours de la même façon ! Ce que je cherche a faire :- Saisir un mot de
annotation de document xml ou html [ par bringay ]
Bonjour à tous,Je cherche a annoter des documents html.Quand l'utilisateur selectionne un texte, clique sur un bouton (annoter), j'arrive (en javaScri
Recuperer une image d'un form pour l'inserer dans un une zone de texte [ par tdm ]
Bonjour à tous,Voila mon probleme.Je souhaite inserer une image dans un formulaire de réponse forum.il faut que je puisse récuperer le lien dans ma ta
Sendkeys [ par BachM ]
Savez-vous quel est la syntaxe de l'envoi touches fonction simulant le verrouillage du clavier numérique. SenKeys ???BachMVotre texte ICIVotre texte I
Requete dynamique [ par FREESLY ]
Bonjour les gens, je suis entrain de faire un script me permettant de créer des requetes dynamiques, mais je dois avouer que pour l'instant c pas
Recherche sur toutes les tables de ma bd [ par alf666666 ]
hello, Comment faire une recherche sur toutes les tables de ma BD lorsque l'internaute tape qu'un mot du style, je tape le mot "test" et le site va m
|
Derniers Blogs
SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|