统计有几行JS代码和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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!