<％class cbuffer
プライベートobjfso、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 = white
CodeColor =青
commentcolor =緑
stringcolor =灰色
tabspaces =
pathtofile =
m_starttime = 0
M_ENDTIME = 0
m_linecount = 0
keymin = 2
keymax = 8
objdict = server.createobject（scripting.dictionary）を設定します
objdict.comPareMode = 1
createkeywords
objfso = server.createobject（scripting.filesystemobject）を設定します
End Sub
private sub class_terminate()
set objdict = nothing
set objfso = nothing
End Sub
public property let codecolor(incolor)
m_codecolor = <font color= & incolor & ><strong>
end property
private property get codecolor()
codecolor = m_codecolor
end property
public property let commentcolor(incolor)
m_commentcolor = <font color= & incolor & >
プロパティを終了します
私有財産はcommentcolor（）を取得します
commentcolor = m_commentcolor
プロパティを終了します
公共財産let stringcolor（color）
m_stringcolor = <font color =＆incolor＆>
プロパティを終了します
私有財産はstringcolor（）を取得します
stringcolor = m_stringcolor
プロパティを終了します
公共財産let tabspaces（inspaces）
m_tabspaces = Inspaces
プロパティを終了します
私有財産get tabspaces（）
tabspaces = m_tabspaces
プロパティを終了します
公共財産let tablebgcolor（color）
m_tablebgcolor = color
プロパティを終了します
private property get tablebgcolor()
tablebgcolor = m_tablebgcolor
end property
公共財産は処理時間を取得します（）
ProcessingTime = Second（M_ENDTIME -M_STARTTIME）
プロパティを終了します
公共財産はlinecount（）を取得します
linecount = m_linecount
プロパティを終了します
公共財産get pathtofile（）
pathtofile = m_strathtofile
end property
public property let pathtofile(inpath)
m_strpathtofile = inpath
end property
private property let keymin(inmin)
m_intkeymin = inmin
end property
private property get keymin()
keymin = m_intkeymin
プロパティを終了します
私有財産let keymax（inmax）
m_intkeymax = inmax
プロパティを終了します
私有財産はkeymax（）を取得します
keymax = m_intkeymax
プロパティを終了します
プライベートサブcreatekeywords（）
objdict.add abs、abs
objdict.add and、および
objdict.add配列、配列
objdict.add call、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 do、do
objdict.addループ、ループ
objdict.add empty、空
objdict.add eqv、eqv
objdict.add erase、消去
objdict.add exit、exit
objdict.add false、false
objdict.add fix、fix
objdict.add for
次にobjdict.add、次は
objdict.addそれぞれ、それぞれ
objdict.add関数、関数
objdict.Add Global、Global
objdict.add if, if
その後、objdict.add、次に
objdict.add else、else
objdict.add elseif, elseif
objdict.add imp、Imp
objdict.add int＆quo