คำนวณว่ามีโค้ด JS และโค้ด ASP กี่บรรทัดในโฟลเดอร์ปัจจุบัน และยังนับด้วยว่า
มีโค้ดตัวอย่าง
กี่ไบต์<%
-
-
'\ จาก codeproject.com
'\ คำนวณ js และโค้ด asp
'\ แก้ไข bluedestiny
'\ mail:bluedestiny ที่ 126.com
-
'\\\\\\\\\\\\\\\\\\\\
ตัวเลือกที่ชัดเจน
response.buffer=false
คลาส COUNT_CODE
fso ส่วนตัวสปาย
asplines ส่วนตัว, jslines, aspbytes, jsbytes, aspwords
class_initialize ส่วนตัวย่อย
ตั้งค่า fso = createobject("scripting.filesystemobject")
จบย่อย
class_terminate ย่อยส่วนตัว
ตั้งค่า fso=nothing
จบย่อย
ฟังก์ชั่นส่วนตัววนซ้ำ (เส้นทาง)
โฟลเดอร์ dim, โฟลเดอร์, ไฟล์, ไฟล์, ts, txt, arr, f
ตั้งค่าโฟลเดอร์ = fso.getfolder (เส้นทาง)
ตั้งค่าไฟล์ = folder.files
สลัว rx,c
ตั้งค่า rx = regexp ใหม่
rx.ignorecase = จริง
rx.global = จริง
rx.รูปแบบ = " +"
สำหรับแต่ละไฟล์ในไฟล์
ถ้า right(file.name,4)=".asp" หรือ right(file.name,3)=".js" แล้ว
ตั้งค่า ts = file.openastextstream
ถ้า ts.atendofstream ดังนั้น txt = "" else txt = ts.readall
ts.ปิด
txt = rx.แทนที่ (txt," ")
txt = แทนที่ (txt, vbcrlf & vbcrlf, vbcrlf)
arr = แยก (แทนที่ (txt,vbcrlf," ")," ")
aspwords = aspwords + ubound(arr)
arr = แยก (txt, vbcrlf)
ถ้าใช่ (file.name,4)=".asp" แล้ว
asplines = asplines + ubound (arr)
aspbytes = aspbytes + len (txt)
อื่น
jslines = jslines + ubound(arr)
jsbytes = jsbytes + เลน (txt)
สิ้นสุดถ้า
สิ้นสุดถ้า
ต่อไป
ตั้งค่าโฟลเดอร์ = folder.subfolders
สำหรับแต่ละ f ในโฟลเดอร์
ย้ำ f.path
ต่อไป
ก์ชั่นสิ้นสุด
เส้นทางทรัพย์สินสาธารณะ
spath=server.mappath(s)
ทรัพย์สินสุดท้าย
จำนวนย่อยสาธารณะ
วนซ้ำ (ทะเลาะวิวาท)
จบย่อย
พิมพ์ย่อยสาธารณะ
response.write "ASP:" & "<br/>"
response.write "รหัสบรรทัดทั้งหมด: " & asplines & "<br/>"
response.write "จำนวนไบต์ทั้งหมด: " & aspbytes & "" & "<br/>"
response.write "องค์ประกอบส่วนบุคคลทั้งหมด (คำ) ที่พิมพ์: " & aspwords & "<br/>"
response.write "JScript:" & "<br/>"
response.write "รหัสบรรทัดทั้งหมด: " & jslines & "<br/>"
response.write "จำนวนไบต์ทั้งหมด: " & jsbytes
จบย่อย
คลาสสิ้นสุด
'\\\\\\\\\\\\\\\\\\\\\\\ \\\\
'\โค้ดตัวอย่าง
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\' \\\
สลัว o
ตั้ง o=ใหม่ COUNT_CODE
o.path="bluedestiny/"
o.นับ
o.printf
-