Hitung berapa baris kode JS dan kode ASP yang ada di folder saat ini, dan hitung juga berapa byte kode
yang ada kode sampel
<%
'\\\\\\\\\\\\\\\\\\\
'\
'\ dari codeproject.com
'\ Hitung kode js dan asp
'\ Memodifikasi takdir biru
'\ mail:bluedestiny di 126.com
'\
'\\\\\\\\\\\\\\\\\\\\
opsi eksplisit
respon.buffer=
kelas palsu COUNT_CODE
fso pribadi, spa
asplines pribadi, jslines, aspbytes, jsbytes, aspwords
sub kelas pribadi_inisialisasi
set fso = buat objek("scripting.filesystemobject")
sub akhir
sub kelas_terminate pribadi
atur fso=tidak ada
sub akhir
fungsi pribadi mengulangi (jalur)
folder redup, folder, file, file, ts, txt, arr, f
setel folder = fso.getfolder(jalur)
mengatur file = folder.files
redup rx,c
atur rx = regexp baru
rx.ignorecase = benar
rx.global = benar
rx.pola = "+"
untuk setiap file dalam file
jika benar(nama file,4)=".asp" atau kanan(nama file,3)=".js" maka
set ts = file.openastextstream
jika ts.atendofstream maka txt = "" else txt = ts.readall
ts.tutup
txt = rx.ganti(txt," ")
txt = ganti(txt,vbcrlf&vbcrlf,vbcrlf)
arr = split(ganti(txt,vbcrlf," ")," ")
aspwords = aspwords + ubound(arr)
arr = terbagi(txt,vbcrlf)
jika benar(file.name,4)=".asp" maka
asplines = asplines + ubound(arr)
aspbyte = aspbyte + len(txt)
kalau tidak
jslines = jslines + ubound(arr)
jsbyte = jsbyte + len(txt)
berakhir jika
berakhir jika
Berikutnya
setel folder = folder.subfolder
untuk setiap f dalam folder
ulangi f.path
Berikutnya
fungsi akhir
properti publik biarkan jalur
spath=server.mappath(s)
properti akhir
jumlah sub publik
ulangi (spath)
sub akhir
sub cetak publikf
respon.tulis "ASP:" & "<br/>"
respon.tulis "Total Baris yang Dikodekan: " & asplines & "<br/>"
respon.tulis "Total Byte: " & aspbytes & "" & "<br/>"
respon.tulis "Total Elemen Individu (kata) yang Diketik: " & aspwords & "<br/>"
respon.tulis "JScript:" & "<br/>"
respon.tulis "Total Baris yang Dikodekan: " & jslines & "<br/>"
respon.tulis "Total Byte: " & jsbytes
sub akhir
akhir kelas
'\\\\\\\\\\\\\\\\\\\\ \\ \\\\
'\Contoh kode
'\\\\\\\\\\\\\\\\\\\\\ \\ \\\
redup o
setel o=COUNT_CODE baru
o.path="takdir biru/"
o.hitungan
o.printf
%>