<% Klasse CBuffer
private objfso, objfile, objdict
private m_stradtofile, m_tableBgcolor, m_starttime
private m_endtime, m_lineCount, m_intkeymin, m_intkeymax
private M_CodeColor, M_CommentColor, M_StringColor, M_TABSPaces
private sub class_initialize ()
tableBgColor = weiß
CodeColor = blau
commentColor = grün
StringColor = Gray
tabspaces =
pathToFile =
M_StartTime = 0
M_endTime = 0
M_LINECOUNT = 0
kymin = 2
keymax = 8
Setzen Sie objDict = server.createObject (scripting.Dictionary)
objdict.comParemode = 1
createKeywords
Setzen Sie OBJFSO = Server.createObject (scripting.filesystemObject)
Ende sub
private sub class_terate ()
objdict setze = nichts
Setzen Sie objfso = nichts
Ende sub
öffentliches Eigentum Let CodeColor (Incolor)
m_codecolor = <font color = & incolor &> <strong>
Beenden Sie Eigentum
Privateigentum erhalten CodeColor ()
CodeColor = M_CodeColor
Beenden Sie Eigentum
öffentliches Eigentum lassen
M_CommentColor = <font color = & incolor &>
Beenden Sie Eigentum
Privateigentum erhalten Sie commentcolor ()
commentColor = M_CommentColor
Beenden Sie Eigentum
öffentliches Eigentum let StringColor (Incolor)
m_stringcolor = <font color = & incolor &>
Beenden Sie Eigentum
Private Eigenschaft Get StringColor ()
StringColor = m_stringColor
Beenden Sie Eigentum
öffentliche Eigenschaften lassen Tabellen (Inspaces)
M_TABSPACES = Inspaces
Beenden Sie Eigentum
Private Eigenschaften erhalten Sie tabspaces ()
tabspaces = m_tabspaces
Beenden Sie Eigentum
öffentliches Eigentum let TableBgColor (Incolor)
m_tableBgColor = Incolor
Beenden Sie Eigentum
Privateigentum Get TableBgColor ()
tableBgColor = m_tableBgColor
Beenden Sie Eigentum
öffentliches Eigentum erhalten Verarbeitungsinstitut ()
ProcessingTime = Second (M_endTime - M_StartTime)
Beenden Sie Eigentum
Öffentliches Eigentum erhalten Sie linecount ()
linecount = m_lineCount
Beenden Sie Eigentum
öffentliches Eigentum Get pathTofile ()
pathTofile = m_stradtofile
Beenden Sie Eigentum
öffentliches Eigentum lassen Pathtofile (Inpath)
m_stradtofile = inpath
Beenden Sie Eigentum
Privateigentum Keymin (Inmin)
m_intkeymin = inmin
Beenden Sie Eigentum
Privateigentum bekommen Keymin ()
kymin = m_intkeymin
Beenden Sie Eigentum
Privateigentum Keymax (Inmax)
m_intkeymax = inmax
Beenden Sie Eigentum
Privateigentum erhalten KeyMax ()
keymax = m_intkeymax
Beenden Sie Eigentum
private sub createKeywords ()
objdict.add abs, abs
objdict.add und und
objdict.add Array, Array
objDict.Add Call, Anruf
objdict.add CBOOL, CBOOL
objdict.add CByte, CByte
objdict.add ccur, ccur
objdict.add CDate, CDate
objdict.add CDBL, CDBL
objdict.add cint, cint
objdict.Add Klasse, Klasse
objdict.add clng, clng
objdict.add const, const
objdict.add csng, csng
objdict.add cstr, cstr
objdict.add Datum, Datum
objdict.add dim, dim
objdict.add tun, tun
objdict.add Loop, Loop
objdict.add leer, leer
objdict.add EQV, EQV
objdict.add erase, löre
objdict.add exit, exit
objdict.add falsch, falsch
objdict.add fix, fix
objdict.add für, für
objdict.add als nächstes
objdict.add jeweils
objDict.Add -Funktion, Funktion
objdict.add global, global
objdict.add if, if
objdict.add dann dann
objdict.add sonst, sonst
objdict.add elseif, elseif
objdict.add imp, Imp
objdict.add int & quo