A seguir está o código-fonte da função:
<%
Função Takeout(patrn,string1,cores)
'Extraia o texto correspondente à palavra-chave de pesquisa
Dim regEx, Match, Matches, tt 'Criar variáveis.
Set regEx = New RegExp ' Cria uma expressão regular.
regEx.Pattern = patrn ' Definir padrão.
regEx.IgnoreCase = True ' Define se deve diferenciar maiúsculas de minúsculas.
regEx.Global = True ' Define a disponibilidade global.
Definir correspondências = regEx.Execute(string1) 'Executar pesquisa.
Para cada partida em Matches ' Percorra a coleção Matches.
RetStr = RetStr & Match.Value &
Próximo
RetStr = trim(RetStr)
se instr(RetStr, )>0 então
para tt = 0 para ubound(split(RetStr, ))
string1 = substituir(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
próximo
outro
string1 = substituir(string1,RetStr,<font color=&colors&>&RetStr&</font>)
terminar se
Para viagem = string1
Função final
response.write Takeout (jOeKOe, versão bilíngue Joekoe, vermelho)
Function Highlight(strContent,keyword) 'Marca palavras-chave destacadas
Escurecer RegEx
Definir RegEx = novo RegExp
RegEx.IgnoreCase =True 'Não diferencia maiúsculas de minúsculas
RegEx.Global = Verdadeiro
Dim ArrayKeyword,i
ArrayKeyword = Split(keyword, ) 'Várias palavras-chave separadas por espaços
Para i = 0 para Ubound (ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Próximo
Definir RegEx=Nada
Destaque=strConteúdo
Função final
Response.write Destaque (versão bilíngue de Joekoe, jOeKOe)
%>
-