Voici le code source de la fonction :
<%
Fonction à emporter (motif, chaîne1, couleurs)
'Extraire le texte correspondant au mot clé de recherche
Dim regEx, Match, Matches, tt 'Créer des variables.
Set regEx = New RegExp 'Créer une expression régulière.
regEx.Pattern = patrn 'Définir le modèle.
regEx.IgnoreCase = True ' Définit s'il doit être sensible à la casse.
regEx.Global = True 'Définit la disponibilité globale.
Set Matches = regEx.Execute(string1) 'Exécuter la recherche.
Pour chaque correspondance dans les correspondances ' Parcourez la collection Matches.
RetStr = RetStr & Match.Value &
Suivant
RetStr = trim(RetStr)
si instr(RetStr, )>0 alors
pour tt = 0 à ubound(split(RetStr, ))
string1 = replace(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
suivant
autre
string1 = remplacer(string1,RetStr,<font color=&colors&>&RetStr&</font>)
finir si
À emporter = chaîne1
Fonction de fin
réponse.write Takeout(jOeKOe, Joekoe version bilingue, rouge)
Fonction Highlight(strContent,keyword) 'Marquer les mots-clés en surbrillance
Dim RegEx
Définir RegEx=nouvelle RegExp
RegEx.IgnoreCase =True 'Pas sensible à la casse
RegEx.Global=Vrai
Dim ArrayKeyword,i
ArrayKeyword = Split(keyword, ) 'Plusieurs mots-clés séparés par des espaces
Pour i = 0 vers Ubound (ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Suivant
Définir RegEx = Rien
Highlight=strContent
Fonction de fin
réponse.write Highlight(Joekoe version bilingue, jOeKOe)
%>
-