Das Folgende ist der Funktionsquellcode:
<%
Funktion Takeout(patrn,string1,colors)
'Suchschlüsselwort-passenden Text extrahieren
Dim regEx, Match, Matches, tt 'Variablen erstellen.
Set regEx = New RegExp ' Erstellt einen regulären Ausdruck.
regEx.Pattern = patrn ' Muster festlegen.
regEx.IgnoreCase = True ' Legen Sie fest, ob die Groß-/Kleinschreibung beachtet werden soll.
regEx.Global = True ' Globale Verfügbarkeit festlegen.
Set Matches = regEx.Execute(string1) 'Suche ausführen.
Für jedes Spiel in „Matches“ durchqueren Sie die Matches-Sammlung.
RetStr = RetStr & Match.Value &
Nächste
RetStr = trim(RetStr)
wenn instr(RetStr, )>0 dann
für tt = 0 bis ubound(split(RetStr, ))
string1 = replace(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
nächste
anders
string1 = replace(string1,RetStr,<font color=&colors&>&RetStr&</font>)
Ende wenn
Takeout = string1
Funktion beenden
Response.write Takeout (jOeKOe, zweisprachige Joekoe-Version, rot)
Funktion Highlight(strContent,keyword) 'Hervorgehobene Schlüsselwörter markieren
RegEx dimmen
Setze RegEx=new RegExp
RegEx.IgnoreCase =True 'Groß-/Kleinschreibung wird nicht beachtet
RegEx.Global=True
Dim ArrayKeyword,i
ArrayKeyword = Split(keyword, ) 'Mehrere durch Leerzeichen getrennte Schlüsselwörter
Für i=0 bis Ubound(ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Nächste
Setzen Sie RegEx=Nothing
Highlight=strContent
Funktion beenden
Response.write Highlight (zweisprachige Joekoe-Version, jOeKOe)
%>
-