Calcule quantas linhas de código JS e código ASP estão na pasta atual e também podem contar quantos bytes o código é
Há código de amostra
A cópia do código é a seguinte:
<%
'///////////////////////////////////////////////////////////////////I///////////////////////
'//
'// de codeProject.com
'// Calcule o código JS e ASP
'// Modify Bluedestiny
'//mail:bluedestinyat126.com
'//
'///////////////////////////////////////////////////////////////////I///////////////////////
optionExplicit
Response.Buffer = false
ClassCount_Code
privatefso, Spath
Privateasplines, jslines, aspbytes, jsbytes, aspwords
privatesubclass_initialize
setfso = createObject ("script.filesystemoBject")
endsub
privatesubclass_termine
setfso = nada
endsub
PrivateFunctioniterate (caminho)
Dimfolder, pastas, arquivos, arquivos, ts, txt, arr, f
setFolder = fso.getFolder (caminho)
setfiles = pasta.files
DIMRX, c
setRx = newRegexp
rx.Ignorecase = true
rx.global = true
rx.pattern = "+"
foreachfileinfiles
ifright (file.name, 4) = ". ASP" Orright (file.name, 3) = ". JS" então
setts = file.openastextstream
ifts.atendofstreamthentxt = "" elSetxt = ts.readall
ts.close
txt = rx.replace (txt, "")
txt = substituir (txt, vbcrlf & vbcrlf, vbcrlf)
arr = dividir (substituir (txt, vbcrlf, ""), "")
aspwords = aspwords+ubund (arr)
arr = split (txt, vbcrlf)
ifright (file.name, 4) = ". Asp" então
asplines = asplines+ubund (arr)
aspbytes = aspbytes+len (txt)
outro
JSLINES = JSLINES+UBUND (ARR)
jsbytes = jsbytes+len (txt)
endif
endif
próximo
SetFolders = pasta.subFolders
foreachfinfolders
iteratef.path
próximo
Função final
PublicPropertyLetPath (s)