<% Classe Cbuffer
OBJFSO privé, objfile, objdict
privé m_strpathtofile, m_tablebgcolor, m_starttime
privé m_endtime, M_lineCount, m_intkeymin, m_intkeymax
privé m_codecolor, m_commentcolor, m_stringcolor, m_tabspaces
Private Sub class_Initialize ()
tableBgColor = blanc
CodeColor = Blue
commentcolor = vert
StringColor = Gray
tabspaces =
pathtofile =
m_starttime = 0
m_endtime = 0
m_lineCount = 0
keymin = 2
keyMax = 8
Définir objdict = server.createObject (scripting.dictionary)
objdict.comparemode = 1
CreateKeywords
SET OBJFSO = Server.CreateObject (Scripting.FileSystemObject)
Sub-Sub
Private Sub class_termiate ()
définir objdict = rien
définir objfso = rien
Sub-Sub
Propriété publique Let CodeColor (Incolor)
m_codecolor = <font color = & incolor &> <strong>
propriété finale
propriété privée Get CodeColor ()
codeColor = m_codecolor
propriété finale
Propriété publique Let CommentColor (Incolor)
m_commentcolor = <font color = & incolor &>
propriété finale
la propriété privée obtient commentcolor ()
commentcolor = m_commentcolor
propriété finale
Propriété publique Let StringColor (Incolor)
m_stringColor = <font color = & incolor &>
propriété finale
la propriété privée obtient StringColor ()
StringColor = M_StringColor
propriété finale
Propriété publique Let Tabspaces (Inspaces)
m_tabspaces = Inspace
propriété finale
propriété privée obtient des tabs ()
tabspaces = m_tabspaces
propriété finale
Propriété publique Let TableBgColor (Incolor)
M_TableBgColor = Incolor
propriété finale
propriété privée obtient tablebgcolor ()
TableBgColor = m_TableBgColor
propriété finale
Propriété publique Get ProcessTime ()
ProcessingTime = Second (m_endtime - m_starttime)
propriété finale
Propriété publique Get LineCount ()
lineCount = m_lineCount
propriété finale
Propriété publique Get Pathtofile ()
pathtofile = m_strpathtofile
propriété finale
Propriété publique Let Pathtofile (InPath)
m_strpathtofile = inpath
propriété finale
propriété privée Let Keymin (inmin)
m_intkeymin = inmin
propriété finale
propriété privée Get Keymin ()
keymin = m_intkeymin
propriété finale
propriété privée Let KeyMax (Inmax)
m_intkeymax = inmax
propriété finale
propriété privée Get KeyMax ()
keyMax = m_intkeymax
propriété finale
Sous privé CreateKeywords ()
objdict.add ABS, ABS
objdict.add et, et
objdict.add Array, tableau
objdict.add appel, appel
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 classe, classe
objdict.add clng, clng
objdict.add const, const, const, const,
objdict.add csng, csng
objdict.add CSTR, CSTR
objdict.add date, date
objdict.add dim, dim
objdict.add faire, faire
objdict.add boucle, boucle
objdict.add vide, vide
objdict.add eqv, eqv
objdict.add effacer, effacer
objdict.add sortie, sortie
objdict.add false, faux
objdict.add fix, correctif
objdict.add pour, pour
objdict.add suivant, prochain
objdict.add chacun, chacun
Fonction objdict.add, fonction
objdict.add global, global
objdict.add si, si
objdict.add alors, alors
objdict.add else, sinon
objdict.add elseif, elseif
objdict.add imp, imp, imp
objdict.add int & quo