Calculez le nombre de lignes de code JS et de code ASP dans le dossier actuel, et comptez également le nombre d'octets de code
contenant des exemples de codes
<%
'\\\\\\\\\\\\\\\\\\\
'\
'\ de codeproject.com
'\ Calculer le code js et asp
'\ Modifier bluedestiny
'\ mail:bluedestiny sur 126.com
'\
'\\\\\\\\\\\\\\\\\\\\
option explicite
réponse.buffer=fausse
classe COUNT_CODE
fso privé,spath
asplines privées, jslines, aspbytes, jsbytes, aspwords
sous-classe_initialize privée
set fso = createobject("scripting.filesystemobject")
fin du sous
sous-classe privée_terminate
définir fso = rien
fin du sous
itération de fonction privée (chemin)
dossier dim, dossiers, fichiers, fichier, ts, txt, arr, f
définir le dossier = fso.getfolder (chemin)
définir les fichiers = dossier.files
faible rx,c
set rx = nouvelle expression rationnelle
rx.ignorecase = vrai
rx.global = vrai
rx.motif = " +"
pour chaque fichier dans les fichiers
si right(file.name,4)=".asp" ou right(file.name,3)=".js" alors
set ts = fichier.openastextstream
si ts.atendofstream alors txt = "" sinon txt = ts.readall
ts.fermer
txt = rx.replace(txt," ")
txt = remplacer(txt,vbcrlf&vbcrlf,vbcrlf)
arr = split(remplacer(txt,vbcrlf," ")," ")
aspwords = aspwords + ubound(arr)
arr = split(txt,vbcrlf)
si c'est vrai(file.name,4)=".asp" alors
asplines = asplines + ubound(arr)
aspbytes = aspbytes + len(txt)
autre
jslines = jslines + ubound(arr)
jsoctets = jsoctets + len(txt)
finir si
finir si
suivant
définir les dossiers = dossier.sous-dossiers
pour chaque f dans les dossiers
itérer f.path
suivant
fonction de fin
propriété publique laisser chemin(s)
spath=serveur.mappath(s)
propriété finale
sous-compte public
itérer (spath)
fin du sous
sous-impression publique
réponse.écrivez "ASP :" et "<br/>"
réponse.write "Total des lignes codées : " & asplines & "<br/>"
réponse.write "Total d'octets : " & aspbytes & "" & "<br/>"
réponse.write "Total des éléments individuels (mots) saisis : " & aspwords & "<br/>"
réponse.write "JScript :" et "<br/>"
réponse.write "Total des lignes codées : " & jslines & "<br/>"
réponse.write "Total d'octets : " et jsbytes
fin du sous
classe de fin
'\\\\\\\\\\\\\\\\\\\\ \\ \\\\
'\Exemple de code
'\\\\\\\\\\\\\\\\\\\\\ \\ \\\
atténuer
définir o=nouveau COUNT_CODE
o.path="destin bleu/"
o.compte
o.printf
%>