<% 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 ()
pathtofile = m_strathtofile
propriedade final
Propriedade pública Let Pathtofile (inPath)
m_strathtofile = inPath
propriedade final
Propriedade privada Let Keymin (InMin)
m_intkeyMin = inmin
propriedade final
Propriedade privada Get Keymin ()
keymin = m_intkeyMin
propriedade final
Propriedade privada Let Keymax (Inmax)
m_intkeyMax = inmax
propriedade final
Propriedade privada Get Keymax ()
keymax = m_intkeyMax
propriedade final
SubteyWords privados ()
objdict.add abs, abdominais
objdict.add e, e
Objdict.add Array, Array
objdict.add ligue, ligue
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, classe
objdict.add clng, clng
objdict.add const, const
objdict.add csng, csng
objdict.add cstr, cstr
objdict.Add Data, data
objdict.add Dim, dim
objdict.add Do, faça
objdict.add loop, loop
objdict.add vazio, vazio
objdict.add Eqv, Eqv
objdict.add apagar, apagar
objdict.Add Exit, saída
objdict.Add False, False
objdict.add corrigir, correção
objdict.add for, for
objdict.Add Próximo, próximo
objdict.add cada um, cada um
objdict.add função, função
objdict.add Global, Global
objdict.add se, se
objdict.add então, então
objdict.add else, else
objdict.add elseif, elseif
objdict.add Imp, imp
objdict.add Int & quo