Berechnen Sie, wie viele Zeilen JS-Code und ASP-Code sich im aktuellen Ordner befinden, und zählen Sie auch, wie viele Bytes Code
es Beispielcodes gibt
<%
'\\\\\\\\\\\\\\\\\\
'\
'\ von codeproject.com
'\ JS- und ASP-Code berechnen
'\ Bluedestiny ändern
'\ mail:bluedestiny bei 126.com
'\
'\\\\\\\\\\\\\\\\\\\
Option explizit
Response.buffer=falsche
Klasse COUNT_CODE
privates FSO, Spath
private Asplines, Jslines, Aspbytes, Jsbytes, Aspwords
private Unterklasse_initialize
set fso = createobject("scripting.filesystemobject")
Ende sub
private Unterklasse_terminate
setze fso=nichts
Ende sub
private Funktion iterieren (Pfad)
Ordner, Ordner, Dateien, Datei, ts, txt, arr, f dimmen
set Folder = fso.getfolder(Pfad)
set files = Ordner.Dateien
dim rx,c
set rx = neuer regulärer Ausdruck
rx.ignorecase = wahr
rx.global = wahr
rx.pattern = " +"
für jede Datei in Dateien
wenn right(file.name,4)=".asp" oder right(file.name,3)=".js" dann
set ts = file.openastextstream
wenn ts.atendofstream dann txt = "" sonst txt = ts.readall
ts.close
txt = rx.replace(txt," ")
txt = ersetzen(txt,vbcrlf&vbcrlf,vbcrlf)
arr = split(replace(txt,vbcrlf," ")," ")
aspwords = aspwords + ubound(arr)
arr = split(txt,vbcrlf)
if right(file.name,4)=".asp" dann
asplines = asplines + ubound(arr)
aspbytes = aspbytes + len(txt)
anders
jslines = jslines + ubound(arr)
jsbytes = jsbytes + len(txt)
Ende wenn
Ende wenn
nächste
Ordner festlegen = Ordner.Unterordner
für jedes f in Ordnern
f.pfad iterieren
nächste
Endfunktion
öffentliches Eigentum let Pfad(e)
spath=server.mappath(s)
Ende Eigentum
Anzahl der öffentlichen Abonnenten
iterieren(spath)
Ende sub
öffentlicher Unterdruck
Response.write „ASP:“ & „<br/>“
Response.write "Gesamtzahl der codierten Zeilen: " & asplines & "<br/>"
Response.write "Gesamtbytes: " & aspbytes & "" & "<br/>"
Response.write „Gesamte einzelne Elemente (Wörter) eingegeben: „ & aspwords & „<br/>“
Response.write „JScript:“ & „<br/>“
Response.write „Gesamtzahl der codierten Zeilen: „ & jslines & „<br/>“
Response.write „Gesamtbytes:“ & jsbytes
Ende sub
Endklasse
'\\\\\\\\\\\\\\\\\\\ \\ \\\\
'\Beispielcode
'\\\\\\\\\\\\\\\\\\\ \\ \\\
dim o
setze o=neuen COUNT_CODE
o.path="bluedestiny/"
o.count
o.printf
%>