Berechnen Sie, wie viele Zeilen von JS -Code und ASP -Code im aktuellen Ordner enthalten sind, und kann auch zählen, wie viele Bytes der Code ist
Es gibt Beispielcode
Die Codekopie lautet wie folgt:
<%
'//////////////// .///////////// .///////////.
'//
'// von CodeProject.com
'// Berechnen Sie JS- und ASP -Code
'// modifizieren Sie BlueSestiny
'//mail:Bluedestinyat126.com
'//
'//////////////// .///////////// .///////////.
OptionExPlicit
Antwort.Buffer = false
classCount_code
privatfso, Spath
PrivateAsPlines, JSlines, Aspbyte, JSBytes, Aspwords
privateSubclass_initialize
setfso = createObject ("scripting.filesystemObject")
Ende
privateSubclass_terate
setfso = nichts
Ende
privateFunctioniritate (Pfad)
DimFolder, Ordner, Dateien, Datei, TS, TXT, arr, f
setFolder = fso.getFolder (Pfad)
setFiles = order.files
dimrx, c
setRx = newRegExp
rx.ignorecase = true
rx.global = true
rx.pattern = "+"
foreachFileInfiles
IFright (Datei.Name, 4) = ". Asp" Orright (Datei.Name, 3) = ". Js" dann
Setts = File.OpenastextStream
ifts.atendofStreamthentxt = "" elsetxt = ts.readall
ts.close
txt = rx.replace (txt, "")
txt = ersetzen (txt, vbcrlf & vbcrlf, vbcrlf)
arr = split (ersetzen (txt, vbcrlf, ""), "")
ASPWords = ASPWords+Ubund (arr)
arr = split (txt, vbcrlf)
IFright (Datei.name, 4) = ". ASP" dann
Asplines = Aspline+Ubund (arr)
AspBytes = AspByte+len (txt)
anders
JSLINES = JSLINES+UBUND (arr)
JSByTES = JSBYTES+LEN (TXT)
Endif
Endif
nächste
setFolders = ordner.subfolders
foreachfinfolders
ITERATEF.PATH
nächste
Endfunktion
PublicPropertyletPath (en)