<% CLASS CBUFFER
objfso privado, objfile, objdict
private m_strpathtofile, m_tablebgcolor, m_starttime
private m_endtime, m_linecount, m_intkeymin, m_intkeymax
M_CODECOLOR PRIVADO, M_COMENTCOLOR, M_STRINGCOLOR, M_TABSPACES
Sub -classe privado_initialize ()
tabelabgcolor = branco
codecolor = azul
ComentemColor = Green
StringColor = Gray
Tabspaces =
pathtofile =
m_startTime = 0
m_endtime = 0
m_linecount = 0
keymin = 2
keymax = 8
set objdict = server.createObject (script.dictionary)
objdict.comparemode = 1
CreateKeywords
set objfso = server.createObject (script.filesystemoBject)
final sub
Sub -classe particular ()
definir objdict = nada
defina objfso = nada
final sub
Propriedade pública Let Codecolor (incolor)
m_codecolor = <font color = & incolor &> <strong>
propriedade final
Propriedade privada Get codecolor ()
codecolor = m_codecolor
propriedade final
Propriedade pública Let CommentColor (incolor)
m_commentColor = <font color = & incolor &>
propriedade final
Propriedade privada Get CommentColor ()
ComentemColor = M_CommentColor
propriedade final
Propriedade pública Let StringColor (incolor)
m_stringColor = <font color = & incolor &>
propriedade final
Propriedade privada Get StringColor ()
StringColor = m_stringColor
propriedade final
Propriedade pública Let Tabspaces (Inspaces)
m_tabspaces = inspaces
propriedade final
Propriedade privada Get Tabspaces ()
Tabspaces = m_tabspaces
propriedade final
Propriedade pública Let TableBgcolor (incolor)
m_tablebgcolor = incolor
propriedade final
Propriedade privada Get TableBgColor ()
tabelabgcolor = m_tablebgcolor
propriedade final
Propriedade pública Get ProcessingTime ()
ProcessingTime = Second (M_endTime - M_StartTime)
propriedade final
Propriedade pública Get LineCount ()
lineCount = m_linecount
propriedade final
Propriedade pública Get Pathtofile ()