[代码行数统计] 一个小小的统计PHP代码行数的小BAT程序

HonestQiao

[代码行数统计]　一个小小的统计PHP代码行数的小BAT程序

　　放到一个PHP文件夹下面，点他，就会自动统计当前目录下面的PHP文件了。

　　如果用记事本打开，还可以设置是否统计子目录的；也可以设置统计其它类型的代码！

　　统计的标准是非回车空行！

1. 
   
2. @echo off
   
3. :config()
   
4. :{
   
5.         set count_type=0
   
6.         :#  0：表示只统计当前目录
   
7.         :#  1：表示只统计当前目录，包括子目录
   
8. 
   
9.         set count_ext=.php
   
10.         :#  表示统计文件的后缀名称
    
11. :}
    
12. 
    
13. :main()
    
14. :{
    
15.         if %count_type%==0 (set count_info=当前目录)
    
16.         if %count_type%==1 (set count_info=当前目录，包括子目录)
    
17.         echo 代码文件数与行数统计(HonestQiao 2006-5-20 0:14)
    
18.         echo 统计方式：%count_info%
    
19.         echo 文件后缀：%count_ext%
    
20.         set /P PauseKey=开始统计（回车开始，Q退出）
    
21.         if "%PauseKey%" == "Q" goto :EOF
    
22.         if "%PauseKey%" == "q" goto :EOF
    
23.         echo.
    
24. 
    
25.         cd "%CD%"
    
26.         set counts=0
    
27.         set count=0
    
28.         set tmp_list=%RANDOM%.tmp
    
29.         copy /Y NUL %tmp_list% >nul 2>nul
    
30.         if %count_type%==0 (dir/b | findstr "%count_ext%\>" > %tmp_list%)
    
31.         if %count_type%==1 (dir/b/s | findstr "%count_ext%\>" > %tmp_list%)
    
32.         call :function_files_count %tmp_list%
    
33.         echo 文件总数：%counts%
    
34.         echo 行数总计：%count%
    
35.         del /Q %tmp_list%
    
36.         echo.
    
37.         set /P PauseKey=回车退出
    
38.         @echo on
    
39.         @goto :EOF
    
40. :}
    
41. 
    
42. :function_files_count
    
43. :{
    
44.         set counts_tmp=0
    
45.         for /F %%l in ('type %1') do (call :function_files_add "%%l")
    
46.         set /A counts=%counts%+%counts_tmp%
    
47.         goto :EOF
    
48. :}
    
49. 
    
50. :function_files_add
    
51. :{
    
52.         set /A counts_tmp=%counts_tmp%+1
    
53.         call :function_file_count %1
    
54.         goto :EOF
    
55. :}
    
56. 
    
57. :function_file_count
    
58. :{
    
59.         echo 第%counts_tmp%个文件：%1
    
60.         set count_tmp=0
    
61.         for /F %%l in ('type %1') do (call :function_file_add %1)
    
62.         set /A count=%count%+%count_tmp%
    
63.         echo 小计行数：%count_tmp%
    
64.         echo.
    
65.         goto :EOF       
    
66. :}
    
67. 
    
68. :function_file_add
    
69. :{
    
70.         set /A count_tmp=%count_tmp%+1
    
71.         goto :EOF
    
72. :}
    

复制代码

[ 本帖最后由 HonestQiao 于 2006-5-20 01:38 编辑 ]

macleo

沙发！呵呵！支持一哈QIAO！

macleo

QIAO,不仅研究php，apache！连bat也不放过啊！^_^！佩服！

hightman

在 Linux/BSD 下, 用以下一行即可, 不过这行也有点长

1. 
   
2. find . -name "*.php" -exec wc -l {} \; | awk 'BEGIN {f=0;l=0} {f++;l=l+$1} END {printf("total: %d files, %d lines\n",f,l)}'
   

复制代码

HonestQiao

原帖由 hightman 于 2006-5-20 10:12 发表
在 Linux/BSD 下, 用以下一行即可, 不过这行也有点长
[code]
find . -name "*.php" -exec wc -l {} \; | awk 'BEGIN {f=0;l=0} {f++;l=l+$1} END {printf("total: %d files, %d lines\n",f ...

呵呵，dos里面也可整缩到一起，不过太长了也不好。
实际上，我那个里面只有几行做统计的事情。

mikespook

弓虽～～

BAT已经有点看不懂了～～晕死～～

ziggler

学习了