Die Codekopie lautet wie folgt:
Classwyd_aspcodeHighlight
PrivateRegex
PublicKeyword, ObjectCommand, Strings, VBCode
PublicKeywordColor, ObjectCommandcolor, StringsColor, Kommentar, CodeColor
PrivateSubclass_initialize ()
SetRegex = newRegExp
Regex.ignorecase = true '' setzen Sie, ob Buchstaben sensibel und true nicht unterschieden werden.
Regex.global = true '' setzt die Vollprozess-Natur.
KeywordColor = "#0000ff"
ObjectCommandcolor = "#ff0000"
STRINGSCOLOR = "#ff00ff"
Comment = "#008000"
CodeColor = "#993300"
Keyword = "set | privat | if | dann | sub | Ende | Funktion | für | als nächstes | do | wob
ObjectCommand = "links | Mid | rechts | int | cint | clng | String | Join | Array" 'Funktion Bitte fügen Sie es selbst hinzu
Vbcode = ""
Ende
PrivateSubclass_terminate ()
SetRegex = nichts
Ende
PrivateFunctionm_replace (STR, Muster, Farbe)
Regex.pattern = muster '' set modus.
M_replace = regex.replace (str, "<fontcolor =" & color & "> $ 1 </font>")
Endfunktion
PrivateFunctionString_replace (STR, Muster, Muster1, Farbe, Isstring)
Dimtemp, Retstr
Regex.pattern = muster1
SetMatches = regex.execute (str)
ForeachMatchInmatches '' Traversal of the Matchts Collection
Temp = re (match.value)
STR = Ersatz (str, match.value, temp)
Nächste
Regex.pattern = muster '' set modus.
Ifisstring = 1Then
String_replace = regex.replace (str, "<fontcolor =" & color & ">" $ 1 "</font>")
Anders
String_replace = regex.replace (str, "<fontcolor =" & color & "> $ 1 </font>")
Endif
Endfunktion
Privatefunctionre (str)
Dimtregex, temp
SetTregex = newRegexp
Tregex.ignorecase = true '' setzen Sie, ob Buchstaben fallsempfindlich sind.
Tregex.global = true '' setzt die Vollprozess-Natur.
Tregex.pattern = "<.*?>"
Temp = tregex.replace (str, "")
Temp = ersetzen (temp, "<", "")
Temp = ersetzen (temp, ">", "")
Re = temp
SetTregex = nichts
Endfunktion
PublicFunctionMakeli ()
Dimtemp
IFVBCODE = "" Dann