Calculez le nombre de lignes de code JS et de code ASP dans le dossier actuel, et peut également compter le nombre d'octets que le code est
Il y a un exemple de code
La copie de code est la suivante:
<%
'//////////////////////////////////////////////////////////////////////////////////// /
'//
'// de codeproject.com
'// Calculer le code JS et ASP
'// Modifier le blueDestiny
'//mail:BlueStinyat126.com
'//
'//////////////////////////////////////////////////////////////////////////////////// /
option Explicit
réponse.buffer = false
classcount_code
privatedso, spath
Privateasplines, jslines, aspbytes, jsbytes, mots de mots
PrivésubClass_Initialize
setfso = createObject ("scripting.fileSystemObject")
fin
PrivésUbclass_termince
setfso = rien
fin
Fonctionnement privé (chemin)
Dimfolder, dossiers, fichiers, fichiers, ts, txt, arr, f
setFolder = fso.getfolder (chemin)
setFiles = dossier.files
dimrx, c
setrx = newRegexp
rx.ignorecase = true
rx.global = true
rx.Pattern = "+"
foreachfileinfiles
ifRight (file.name, 4) = ". asp" orright (file.name, 3) = ". js" alors
setts = file.openastextstream
ifts.atendofstreamthentxt = "" elsetxt = ts.readall
ts.close
txt = rx.replace (txt, "")
txt = remplacer (txt, vbcrlf et vbcrlf, vbcrlf)
Arr = Split (remplacer (txt, vbcrlf, ""), "")
ASPWORS = ASPWORSS + UBUND (ARR)
arr = Split (txt, vbcrlf)
ifRight (file.name, 4) = ". asp" alors
asplines = asplines + ubund (arr)
aspbytes = aspbytes + len (txt)
autre
jslines = jslines + ubund (arr)
jsbytes = jsbytes + len (txt)
endire
endire
suivant
Setfolders = dossier.Sublolders
foreachfinfolders
itérerf.path
suivant
finition de fin
PublicPropertyletPath (s)