欢迎光临
我们一直在努力

小工具:统计有多少行JS代码和ASP代码,并有多少字节-ASP教程,ASP技巧

建站超值云服务器,限时71元/月

计算当前文件夹中,有多少行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
%>

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 小工具:统计有多少行JS代码和ASP代码,并有多少字节-ASP教程,ASP技巧
分享到: 更多 (0)