Diese Art der Hervorhebung erfolgt basierend auf dem Hervorheben von EditPlus
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, ob Buchstaben fallsempfindlich 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 Matches 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 'legt fest, ob Buchstaben fallsempfindlich sind.