<％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（）
objdict =何も設定しません
objfso =何も設定しません
End Sub
公共財産let codecolor（color）
m_codecolor = <font color =＆incolor＆> <strong>
プロパティを終了します
私有財産はcodeColorを取得します（）
CodeColor = M_CodeColor
プロパティを終了します
公共財産はcommentcolor（インコール）を許可します
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
プロパティを終了します
私有財産get tablebgcolor（）
tablebgcolor = m_tablebgcolor
プロパティを終了します
公共財産は処理時間を取得します（）
ProcessingTime = Second（M_ENDTIME -M_STARTTIME）
プロパティを終了します
公共財産はlinecount（）を取得します
linecount = m_linecount
プロパティを終了します
公共財産get pathtofile（）