Calcule cuántas líneas de código JS y código ASP hay en la carpeta actual, y también puede contar cuántos bytes es el código
Hay código de muestra
La copia del código es la siguiente:
<%
'/////////////////////////////////////////////////////////
'//
'// desde CodeProject.com
'// Calcule el código JS y ASP
'// Modificar BlueDestiny
'//Mail:Bluedestinyat126.com
'//
'/////////////////////////////////////////////////////////
opcionExpliCit
respuesta.buffer = falso
ClassCount_code
Privatefso, espadantamiento
PrivateAsplines, JSlines, Aspbytes, Jsbytes, Aspwords
privatesubclass_initialize
setfso = createObject ("scripting.filesystemObject")
Endsub
privatesubclass_merminate
setfso = nada
Endsub
PrivateFuncieterate (ruta)
dimfolder, carpetas, archivos, archivos, TS, TXT, ARR, F
setfolder = fso.getfolder (ruta)
setFiles = carpeta.files
DIMRX, C
setrx = newregexp
rx.ignorecase = True
rx.global = verdadero
rx.pattern = "+"
foreachFileInfiles
ifright (file.name, 4) = ". asp" orright (file.name, 3) = ". js" entonces
setts = file.openastextstream
ifts.atendofstreamthentxt = "" elsetxt = ts.readall
tshlose
txt = rx.replace (txt, "")
txt = reemplazar (txt, vbcrlf y vbcrlf, vbcrlf)
arr = split (reemplazar (txt, vbcrlf, ""), "")
ASPWords = Aspwords+Ubund (arr)
arr = split (txt, vbcrlf)
ifright (file.name, 4) = ". ASP" entonces
asplines = asplines+ubund (arr)
Aspbytes = Aspbytes+Len (txt)
demás
jslines = jslines+ubund (arr)
JSBYTES = JSBYTES+LEN (TXT)
endif
endif
próximo
setfeders = carpeta.subfolders
foreachfinfolders
iterarf.path
próximo
Función final
PublicPropertyletpath (s)