<٪ فئة cbuffer
Objfso الخاص ، Objfile ، objdict
خاص m_strathtofile ، m_tablebgcolor ، m_startTime
m_endtime الخاص ، m_linecount ، m_intkeymin ، m_intkeymax
m_codecolor الخاص ، m_commentcolor ، m_stringColor ، m_tabspaces
sub sub class_initialize ()
TableBgColor = أبيض
الترميز = الأزرق
CommentColor = الأخضر
StringColor = رمادي
tabspaces =
pathtofile =
m_startTime = 0
m_endtime = 0
m_linecount = 0
Keymin = 2
keymax = 8
تعيين OBJDICT = server.createBject (scripting.dictionary)
objdict.comparemode = 1
CreateKeywords
تعيين objfso = server.createBject (scripting.filesystemObject)
نهاية الفرعية
sub sub class_terminate ()
تعيين ObjDict = لا شيء
تعيين OBJFSO = لا شيء
نهاية الفرعية
الممتلكات العامة دع الترميز (incolor)
m_codecolor = <font color = & incolor &> <strong>
نهاية الملكية
الممتلكات الخاصة الحصول على الترميز ()
codecolor = m_codecolor
نهاية الملكية
الممتلكات العامة تدع CommentColor (incolor)
m_commentColor = <font color = & incolor &>
نهاية الملكية
الممتلكات الخاصة احصل على CommentColor ()
CommentColor = m_commentColor
نهاية الملكية
الممتلكات العامة دع stringColor (incolor)
m_stringColor = <font color = & incolor &>
نهاية الملكية
الممتلكات الخاصة الحصول على StringColor ()
StringColor = m_stringColor
نهاية الملكية
الممتلكات العامة دع Tabspaces (ملهمة)
m_tabspaces = الملهم
نهاية الملكية
الممتلكات الخاصة الحصول على tabspaces ()
tabspaces = m_tabspaces
نهاية الملكية
الممتلكات العامة دع TableBgColor (incolor)
m_tablebgColor = incolor
نهاية الملكية
الممتلكات الخاصة GETBGCOLOR ()
TableBgColor = m_tablebgcolor
نهاية الملكية
الممتلكات العامة الحصول على وقت المعالجة ()
وقت المعالجة = الثاني (m_endtime - m_startTime)
نهاية الملكية
الممتلكات العامة الحصول على linecount ()
linecount = m_linecount
نهاية الملكية
الممتلكات العامة الحصول على pathtofile ()
pathtofile = m_strathtofile
نهاية الملكية
الممتلكات العامة دع Pathtofile (Intpath)
m_strathtofile = inpath
نهاية الملكية
الممتلكات الخاصة دع Keymin (inmin)
m_intkeymin = inmin
نهاية الملكية
الممتلكات الخاصة الحصول على keymin ()
keymin = m_intkeymin
نهاية الملكية
الممتلكات الخاصة دع Keymax (inmax)
m_intkeymax = inmax
نهاية الملكية
الممتلكات الخاصة الحصول على keymax ()
keymax = m_intkeymax
نهاية الملكية
Subs CreateKeywords () خاص ()
objdict.Add ABS ، ABS
objdict.add و ، و
Objdict.Add Array ، Array
ObjDict.Add Call ، مكالمة
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 فئة ، فئة
objdict.add clng ، clng
objdict.add const ، const
objdict.add csng ، csng
objdict.add CSTR ، CSTR
Objdict.Add التاريخ ، التاريخ
objdict.add dim ، dim
objdict.add تفعل ، افعل
objdict.add حلقة ، حلقة
objdict.add فارغة ، فارغة
objdict.add eqv ، eqv
objdict.add محو ، محو
Objdict.add خروج ، خروج
objdict.add خطأ ، خطأ
ObjDict.Add Fix ، Fix
objdict.add ل
objdict.add التالي ، التالي
objdict.add كل ، كل
وظيفة objdict.add ، وظيفة
objdict.add العالمية ، العالمية
objdict.add إذا ، إذا
objdict.add ثم ، ثم
objdict.add آخر ، آخر
objdict.add elseif ، elseif
objdict.add Imp ، Imp
objdict.add int & quo