<% class Cbuffer
objfso privado, objfile, objdict
privado m_strpathtofile, m_tablebgcolor, m_starttime
Privado m_endtime, m_linecount, m_intkeymins, m_intkeymax
privado m_codecolor, m_commentColor, m_stringcolor, m_tabspaces
Sub class_initialize () privado ()
tablebgcolor = blanco
CodeColor = Blue
commentColor = verde
StringColor = Gray
Tabspaces =
PathToFile =
m_starttime = 0
m_endtime = 0
m_linecount = 0
kimina = 2
kymax = 8
establecer objdict = server.createObject (scripting.dictionary)
objdict.comparemode = 1
createkeywords
Establecer objfso = server.createObject (scripting.filesystemObject)
final
Sub class_terminate () privado ()
establecer objdict = nada
establecer objfso = nada
final
Propiedad pública Let CodeColor (Incolor)
m_codeColor = <font color = & incolor &> <strong>
propiedad final
Propiedad privada Get CodeColor ()
CodeColor = M_CodeColor
propiedad final
Propiedad pública Deje CommentColor (Incolor)
m_commentColor = <font color = & incolor &>
propiedad final
Propiedad privada Obtenga CommentColor ()
commentColor = m_commentColor
propiedad final
Propiedad pública Deja stringcolor (incolor)
m_stringcolor = <font color = & incolor &>
propiedad final
Propiedad privada Obtenga StringColor ()
StringColor = M_StringColor
propiedad final
Propiedad pública Deja que Tabspaces (inspaces)
m_tabspaces = inspeccionar
propiedad final
Propiedad privada Get Tabspaces ()
Tabspaces = m_tabspaces
propiedad final
Propiedad pública Deja que TableBgColor (incolor)
m_tableBGColor = incolor
propiedad final
Propiedad privada Get tableBGColor ()
tableBGColor = M_TableBGColor
propiedad final
Propiedad pública Get Processiontime ()
Processingtime = segundo (m_endtime - m_starttime)
propiedad final
Propiedad pública Get Linecount ()
Linecount = m_linecount
propiedad final
Propiedad pública Get PathToFile ()
PathToFile = m_strpathtofile
propiedad final
Propiedad pública Deje Pathtofile (Inpath)
m_strpathtofile = Inpath
propiedad final
Propiedad privada Deja Kymins (Inmin)
m_intkeymins = inmin
propiedad final
Propiedad privada Obtener keymin ()
keymin = m_intkeymin
propiedad final
Propiedad privada Deja KYMAX (Inmax)
m_intkeymax = inmax
propiedad final
Propiedad privada Obtener kymax ()
kymax = m_intkeymax
propiedad final
PRIVADO SUB CREATEKEYWORDS ()
objdict.add abds, abdominales
objdict.add y, y
objdict.add matriz, matriz
objdict.add Llamada, llamada
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 clase, clase
objdict.add clng, clng
objdict.add const, const
objdict.add csng, csng
objdict.add cstr, cstr
objdict.add fecha, fecha
objdict.add dim, dim
objdict.add do, do
objdict.add bucle, bucle
objdict.add vacío, vacío
objdict.add eqv, eqv
objdict.add borrar, borrar
objdict.add Salida, salida
objdict.add falso, falso
objdict.Add Fix, Fix
objdict.add para, para
objdict.add Siguiente, siguiente
objdict.add cada uno, cada uno
objDict.Add Función, función
objdict.add global, global
objdict.add si, si
objdict.add entonces, entonces
objdict.add else, de lo contrario
objdict.add elseif, elseif
objdict.Add Imp, Imp
objdict.add int & quo