Рассчитайте, сколько строк кода JS и кода ASP находится в текущей папке, а также может подсчитать, сколько байтов это код
Есть пример кода
Кода -копия выглядит следующим образом:
<%
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'// от codeproject.com
'// Рассчитать код JS и ASP
'// Модифицировать Bluedestiny
'//mail:bluedestinyat126.com
'//
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
OptionExplice
response.buffer = false
classcount_code
Privatefso, Spath
PrivateAsplines, Jslines, Aspbytes, Jsbytes, Aspwords
privatesubclass_initialize
setfso = createObject ("scripting.filesystemobject")
заканчивая
PrivateBclass_terminate
setfso = ничего
заканчивая
PrivateFunctionTection (Path)
DIMFOLDER, папки, файлы, файл, TS, TXT, ARR, F.
setFolder = fso.getFolder (path)
setfiles = folder.files
Dimrx, c
setrx = newRegexp
rx.ignorecase = true
rx.global = true
rx.pattern = "+"
foreachfileinfiles
ifright (file.name, 4) = ". ASP" orright (file.name, 3) = ". JS" Then
setts = file.openastextStream
ifts.atendofstreamthentxt = "" elsetxt = ts.readall
Ts.close
txt = rx.replace (txt, "")
txt = reply (txt, vbcrlf & vbcrlf, vbcrlf)
arr = split (reply (txt, vbcrlf, ""), "")
ASPWORDS = ASPWORDS+UBUND (ARR)
arr = split (txt, vbcrlf)
ifright (file.name, 4) = ". ASP" Then
asplines = asplines+ubund (arr)
aspbytes = aspbytes+len (txt)
еще
jslines = jslines+ubund (arr)
jsbytes = jsbytes+len (txt)
эндиф
эндиф
следующий
setFolders = folder.subfolders
Foreachfinfolders
itaterf.path
следующий
конечная функция
publicpropertyletpath (ы)