현재 폴더에 JS 코드와 ASP 코드가 몇 줄 있는지 계산하고
샘플 코드가 몇 바이트 있는지
계산합니다.<%
'\\\\\\\\\\\\\\\\\\\
'\
'\ codeproject.com에서
'\ js 및 asp 코드 계산
'\ bluedestiny 수정
'\ 메일:bluedestiny(126.com)
'\
'\\\\\\\\\\\\\\\\\\\\
옵션 명시적
response.buffer=false
클래스 COUNT_CODE
개인 fso, spath
개인 아스플라인, jslines, aspbytes, jsbytes, aspwords
비공개 하위 클래스_초기화
fso = createobject("scripting.filesystemobject") 설정
서브 끝
비공개 하위 클래스_종료
fso=아무것도 설정하지 않음
서브 끝
개인 함수 반복(경로)
희미한 폴더, 폴더, 파일, 파일, ts, txt, arr, f
폴더 설정 = fso.getfolder(경로)
파일 설정 = 폴더.파일
희미한 rx,c
rx = 새 정규식 설정
rx.ignorecase = true
rx.global = 참
rx.pattern = " +"
파일의 각 파일에 대해
right(file.name,4)=".asp" 또는 right(file.name,3)=".js"인 경우
ts = file.openastextstream 설정
ts.atendofstream이면 txt = "" else txt = ts.readall
ts.닫기
txt = rx.replace(txt," ")
txt = 교체(txt,vbcrlf&vbcrlf,vbcrlf)
arr = 분할(replace(txt,vbcrlf," ")," ")
aspwords = aspwords + ubound(arr)
arr = 분할(txt,vbcrlf)
right(file.name,4)=".asp"이면
아스플라인 = 아스플라인 + ubound(arr)
aspbytes = aspbytes + len(txt)
또 다른
jslines = jslines + ubound(arr)
jsbytes = jsbytes + len(txt)
종료하면
종료하면
다음
폴더 설정 = 폴더.하위 폴더
폴더의 각 f에 대해
f.path 반복
다음
함수 종료
공용 속성 let 경로
spath=server.mappath(들)
끝 속성
공개 구독자 수
반복(spath)
서브 끝
공개 하위 printf
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=새 COUNT_CODE로 설정
o.path="블루데스티니/"
o.count
o.printf
%>