Ниже приведен исходный код функции:
<%
Функция Takeout(patrn,string1,colors)
'Извлечь текст, соответствующий поисковому ключевому слову
Dim regEx, Match, Matches, tt 'Создание переменных.
Set regEx = New RegExp 'Создаем регулярное выражение.
regEx.Pattern = Patrn 'Установить шаблон.
regEx.IgnoreCase = True 'Укажите, следует ли учитывать регистр.
regEx.Global = True ' Устанавливает глобальную доступность.
Set Matches = regEx.Execute(string1) 'Выполнить поиск.
Для каждого совпадения в Matches ' Просмотрите коллекцию Matches.
RetStr = RetStr & Match.Value &
Следующий
РетСтр = обрезка(РетСтр)
если instr(RetStr, )>0, то
для tt = 0 до ubound(split(RetStr,))
string1 = replace(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
следующий
еще
string1 = replace(string1,RetStr,<font color=&colors&>&RetStr&</font>)
конец, если
Архив = строка1
Конечная функция
response.write Takeout(jOeKOe, двуязычная версия Joekoe, красный)
Function Highlight(strContent,keyword) 'Отметить выделенные ключевые слова
Тусклое регулярное выражение
Установить RegEx=новое RegExp
RegEx.IgnoreCase =True 'Не чувствителен к регистру
RegEx.Global=Истина
Ключевое слово Dim Array,i
ArrayKeyword = Split(keyword, ) 'Несколько ключевых слов, разделенных пробелами
Для i = 0 к Ubound (ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Следующий
Установить RegEx=Ничего
Выделение=strContent
Конечная функция
Выделение ответа.write (двуязычная версия Joekoe, jOeKOe)
%>
-