<% класс Cbuffer
Частный objfso, objfile, objdict
private m_strpathtofile, 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 = белый
Codecolor = Blue
CommentColor = зеленый
StringColor = Grey
Tabspaces =
pathtofile =
m_starttime = 0
m_endtime = 0
m_linecount = 0
keymin = 2
keymax = 8
Установить objdict = server.createObject (scripting.dictionary)
objdict.comparemode = 1
CreateKeyWords
Установить objfso = server.createObject (scripting.filesystemobject)
Конец суб
private sub class_terminate ()
установить objdict = ничего
установить objfso = ничего
Конец суб
Публичная собственность пусть кодеклера (необразно)
m_codecolor = <font color = & incolor &> <strong>
Конец собственности
Частная недвижимость Get CodeColor ()
CodeColor = m_codecolor
Конец собственности
Публичная собственность позволила CommentColor (непрозрачность)
m_commentcolor = <font color = & incolor &>
Конец собственности
Частная недвижимость Получить CommentColor ()
CommentColor = m_commentColor
Конец собственности
Общественная недвижимость Let StringColor (непрозрачность)
m_stringcolor = <font color = & incolor &>
Конец собственности
частная недвижимость Get StringColor ()
stringColor = m_stringColor
Конец собственности
Общественная собственность, пусть табсоны (вдохновляют)
m_tabspaces = Insposces
Конец собственности
Частная собственность получите Tabspaces ()
Tabspaces = m_tabspaces
Конец собственности
Общественная недвижимость Let TableBgcolor (непрозрачность)
m_tablebgcolor = incolor
Конец собственности
Частная недвижимость GET TABLEBCOLOR ()
TableBgColor = m_tablebgcolor
Конец собственности
Общественная недвижимость получить время обработки ()
обработка времени = второе (m_endtime - m_starttime)
Конец собственности
Общественная недвижимость Get LineCount ()
lineCount = m_linecount
Конец собственности
Общественная недвижимость Get Pathtofile ()
pathtofile = m_strpathtofile
Конец собственности
Публичная собственность пусть Pathtofile (Inpath)
m_strpathtofile = inpath
Конец собственности
Частная недвижимость пусть Кеймин (INMIN)
m_intkeymin = inmin
Конец собственности
Частная недвижимость Get Keymin ()
keymin = m_intkeymin
Конец собственности
Частная собственность Let Keymax (Inmax)
m_intkeymax = inmax
Конец собственности
частная недвижимость Get KeyMax ()
keymax = m_intkeymax
Конец собственности
Private Sub CreateKeyWords ()
objdict.add Abs, Abs
objdict.add и, и
objdict.add Array, Array
objdict.add звони, позвони
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 Class, класс
objdict.add clng, clng
objdict.add const, const
objdict.add csng, csng
objdict.add cstr, cstr
objdict.add Дата, дата
objdict.add Dim, Dim
objdict.add Do, Do
objdict.add Loop, Loop
objdict.add пусто, пусто
objdict.add eqv, eqv
objdict.Add стирание, стирание
objdict.add Exit, выход
objdict.add false, ложь
objdict.add исправить, исправить
objdict.add для, для
objdict.add Далее, следующий
objdict.dd каждый, каждый
objdict.add функция, функция
objdict.add Global, Global
objdict.add if, if
objdict.dd Тогда тогда
objdict.add else, еще
objdict.add elseif, elseif
objdict.add Imp, Imp
objdict.add int & quo