Calcule cuántas líneas de código JS y código ASP hay en la carpeta actual, y también cuente cuántos bytes de código
hay códigos de muestra
<%
'\\\\\\\\\\\\\\\\\\\\
'\
'\ de codeproject.com
'\ Calcular código js y asp
'\ Modificar destino azul
'\ correo: bluedestiny en 126.com
'\
'\\\\\\\\\\\\\\\\\\\\
opción explícita
respuesta.buffer=falso
clase COUNT_CODE
fso privado, spath
asplines privados, jslines, aspbytes, jsbytes, aspwords
subclase privada_inicialización
establecer fso = createobject("scripting.filesystemobject")
sub final
subclase privada_terminar
establecer fso = nada
sub final
iterar función privada (ruta)
carpeta tenue, carpetas, archivos, archivo, ts, txt, arr, f
establecer carpeta = fso.getfolder(ruta)
establecer archivos = carpeta.archivos
rx tenue,c
establecer rx = nueva expresión regular
rx.ignorecase = verdadero
rx.global = verdadero
rx.patrón = "+"
para cada archivo en archivos
si es correcto(file.name,4)=".asp" o right(file.name,3)=".js" entonces
establecer ts = archivo.openastextstream
si ts.atendofstream entonces txt = "" más txt = ts.readall
ts.cerrar
txt = rx.reemplazar(txt," ")
txt = reemplazar(txt,vbcrlf&vbcrlf,vbcrlf)
arr = dividir(reemplazar(txt,vbcrlf," ")," ")
palabras asp = palabras asp + ubound(arr)
arr = dividir(txt,vbcrlf)
si es correcto(archivo.nombre,4)=".asp" entonces
asplines = asplines + ubound(arr)
aspbytes = aspbytes + len(txt)
demás
jslines = jslines + ubound(arr)
jsbytes = jsbytes + len(txt)
terminar si
terminar si
próximo
establecer carpetas = carpeta.subcarpetas
para cada f en carpetas
iterar f.path
próximo
función final
propiedad pública let ruta(s)
spath=servidor.mappath(s)
propiedad final
subconteo público
iterar (ruta)
sub final
subimpresión pública
respuesta.escribir "ASP:" & "<br/>"
Response.write "Total de líneas codificadas: " & asplines & "<br/>"
respuesta.escribir "Bytes totales: " & aspbytes & "" & "<br/>"
Response.write "Total de elementos individuales (palabras) escritos: " & aspwords & "<br/>"
respuesta.escribir "JScript:" & "<br/>"
Response.write "Total de líneas codificadas: " & jslines & "<br/>"
respuesta.escribir "Bytes totales:" & jsbytes
sub final
clase final
'\\\\\\\\\\\\\\\\\\\\\\\ \\\\
'\Código de ejemplo
'\\\\\\\\\\\\\\\\\\\\\\ \\ \\\
tenue o
establecer o=nuevo COUNT_CODE
o.path="destinoazul/"
o.cuenta
o.printf
%>