El siguiente es el código fuente de la función:
<%
Función para llevar (patrón, cadena1, colores)
'Extraer el texto que coincide con las palabras clave de búsqueda
Dim regEx, Match, Matches, tt 'Crear variables.
Set regEx = New RegExp ' Crea una expresión regular.
regEx.Pattern = patrón ' Establecer patrón.
regEx.IgnoreCase = True ' Establece si se distingue entre mayúsculas y minúsculas.
regEx.Global = True ' Establece la disponibilidad global.
Establecer coincidencias = regEx.Execute(string1) 'Ejecutar búsqueda.
Para cada partido en Partidos 'Recorre la colección de Partidos.
RetStr = RetStr & Coincidencia.Valor &
Próximo
RetStr = recortar(RetStr)
si instr(RetStr, )>0 entonces
para tt = 0 a ubound(split(RetStr, ))
cadena1 = reemplazar(cadena1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
próximo
demás
cadena1 = reemplazar(cadena1,RetStr,<font color=&colors&>&RetStr&</font>)
terminar si
Comida para llevar = cadena1
Función final
Response.write Takeout (jOeKOe, versión bilingüe Joekoe, rojo)
Función Resaltar(strContent,palabra clave) 'Marcar palabras clave resaltadas
Expresión regular tenue
Establecer RegExp = nueva RegExp
RegEx.IgnoreCase =True 'No distingue entre mayúsculas y minúsculas
RegEx.Global=Verdadero
Dim ArrayPalabra clave,i
ArrayKeyword = Split(palabra clave,) 'Varias palabras clave separadas por espacios
Para i=0 a Ubound (ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Próximo
Establecer expresión regular = nada
Resaltado = strContenido
Función final
Response.write Highlight (versión bilingüe de Joekoe, jOeKOe)
%>
-