<% kelas cbuffer
objfso pribadi, 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 = Putih
codecolor = biru
CommentColor = Green
StringColor = abu -abu
tabspaces =
pathtofile =
m_starttime = 0
m_endtime = 0
m_linecount = 0
keymin = 2
KEYMAX = 8
Set ObjDict = Server.CreateObject (Scripting.Dictionary)
objdict.comparemode = 1
CreateKeywords
Set ObjFSO = Server.CreateObject (Scripting.FilesystemObject)
akhir sub
Private Sub Class_Terminate ()
atur objdict = tidak ada
atur objfso = tidak ada
akhir sub
Properti Publik Let Codecolor (Incolor)
m_codecolor = <font color = & incolor &> <strong>
Akhir properti
Properti Pribadi Dapatkan Codecolor ()
codecolor = m_codecolor
Akhir properti
Properti Publik Let CommentColor (Incolor)
m_commentColor = <font color = & incolor &>
Akhir properti
Properti Pribadi Dapatkan CommentColor ()
CommentColor = m_commentColor
Akhir properti
Properti Publik Let StringColor (Incolor)
m_stringcolor = <font color = & incolor &>
Akhir properti
Properti Pribadi Dapatkan StringColor ()
StringColor = m_stringColor
Akhir properti
Properti Publik Let Tabspaces (Inspaces)
m_tabspaces = Inspaces
Akhir properti
properti pribadi dapatkan tabspaces ()
tabspaces = m_tabspaces
Akhir properti
Properti Publik Let TableBgColor (Incolor)
m_tableBgColor = Incolor
Akhir properti
Properti Pribadi Dapatkan TableBgColor ()
TABLEBGCOLOR = m_tableBgColor
Akhir properti
Properti Publik Dapatkan ProcessingTime ()
ProcessingTime = Second (m_endtime - m_starttime)
Akhir properti
Properti Publik Dapatkan Linecount ()
linecount = m_linecount
Akhir properti
properti publik mendapatkan pathtofile ()
pathtofile = m_strpathtofile
Akhir properti
Properti Publik Let Pathtofile (Inpath)
m_strpathtofile = inpath
Akhir properti
Properti Pribadi Let Keyymin (Inmin)
m_intkeymin = inmin
Akhir properti
Properti Pribadi Dapatkan KeyyMin ()
KEYMIN = M_INTKEYMIN
Akhir properti
Properti Pribadi Let KeyMy (INMAX)
m_intkeymax = inmax
Akhir properti
Properti Pribadi Dapatkan KeyMAX ()
KEYMAX = M_INTKEYMAX
Akhir properti
private sub createKeywords ()
objdict.add abs, abs
objdict.add dan, dan
objdict.add array, array
objdict.add call, hubungi
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 Kelas, Kelas
objdict.add clng, clng
objdict.add const, const
objdict.add csng, csng
objdict.add cstr, cstr
objdict.add tanggal, tanggal
objdict.add redup, redup
objdict.add do, lakukan
objdict.add loop, loop
objdict.add kosong, kosong
objdict.add eqv, eqv
objdict.add hapus, hapus
objdict.add keluar, keluar
objdict.add false, false
objdict.add fix, perbaiki
objdict.add untuk, untuk
objdict.add berikutnya, berikutnya
Objdict.add masing -masing, masing -masing
fungsi objdict.add, fungsi
objdict.add Global, Global
objdict.add if, if
Objdict.add kalau begitu, kalau begitu
objdict.add lain, lain
objdict.add elseif, elseif
objdict.add imp, imp
objdict.add int & quo