程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> 小工具:統計有多少行JS代碼和ASP代碼,並有多少字節

小工具:統計有多少行JS代碼和ASP代碼,並有多少字節

編輯:ASP技巧

計算當前文件夾中,有多少行JS代碼和ASP代碼,並且還可統計代碼有多少字節

有示例代碼

<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\    來自 codePRoject.com
'\\    計算JS和ASP代碼
'\\    修改 bluedestiny
'\\    mail:bluedestiny at 126.com
'\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

option explicit
response.buffer=false

class COUNT_CODE
 private fso,spath
 private asplines, jslines, aspbytes, JSbytes, ASPWords
 private sub class_initialize
  set fso = createobject("scripting.filesystemobject")
 end sub
 private sub class_terminate
  set fso=nothing
 end sub
 private function iterate(path)
  dim folder, folders, files, file, ts, txt, arr, f
  set folder = fso.getfolder(path)
  set files = folder.files
  dim rx, c
  set rx = new regexp
  rx.ignorecase = true
  rx.global = true
  rx.pattern = "  +"
  for each file in files
   if right(file.name,4)=".ASP" or right(file.name,3)=".JS" then
    set ts = file.openastextstream
    if ts.atendofstream then txt = "" else txt = ts.readall
    ts.close
    txt = rx.replace(txt," ")
    txt = replace(txt,vbcrlf&vbcrlf,vbcrlf)
    arr = split(replace(txt,vbcrlf," ")," ")
    aspWords = ASPWords + ubound(arr)
    arr = split(txt,vbcrlf)
    if right(file.name,4)=".ASP" then
     asplines = ASPlines + ubound(arr)
     aspbytes = ASPbytes + len(txt)
    else
     jslines = JSlines + ubound(arr)
     jsbytes = JSbytes + len(txt)
    end if
   end if
  next
  set folders = folder.subfolders
  for each f in folders
   iterate f.path
  next
 end function

 public property let path(s)
  spath=server.mappath(s)
 end property
 public sub count
  iterate(spath)
 end sub
 public sub printf
  response.write "ASP:" & "<br/>"
  response.write "Total Lines Coded: " & ASPlines & "<br/>"
  response.write "Total Bytes: " & ASPbytes & "" & "<br/>"
  response.write "Total Individual Elements (Words) Typed: " & ASPWords & "<br/>"
  response.write "JScript:" & "<br/>"
  response.write "Total Lines Coded: " & JSlines & "<br/>"
  response.write "Total Bytes: " & JSbytes
 end sub
end class

'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\示例代碼
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

dim o
set o=new COUNT_CODE
o.path="bluedestiny/"
o.count
o.printf
%>

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved