统计PHP代码行数的小bat程序
放到一个PHP文件夹下面，点他，就会自动统计当前目录下面的PHP文件了。
如果用记事本打开，还可以设置是否统计子目录的；也可以设置统计其它类型的代码！
统计的标准是非回车空行！
@echo off
:config()
:{
set count_type=0
:# 0：表示只统计当前目录
:# 1：表示只统计当前目录，包括子目录
set count_ext=.php
:# 表示统计文件的后缀名称
:}
:main()
:{
if %count_type%==0 (set count_info=当前目录)
if %count_type%==1 (set count_info=当前目录，包括子目录)
echo 代码文件数与行数统计(HonestQiao 2006-5-20 0:14)
echo 统计方式：%count_info%
echo 文件后缀：%count_ext%
set /P PauseKey=开始统计（回车开始，Q退出）
if "%PauseKey%" == "Q" goto :EOF
if "%PauseKey%" == "q" goto :EOF
echo.
cd "%CD%"
set counts=0
set count=0
set tmp_list=%RANDOM%.tmp
copy /Y NUL %tmp_list% >nul 2>nul
if %count_type%==0 (dir/b | findstr "%count_ext%\>" > %tmp_list%)
if %count_type%==1 (dir/b/s | findstr "%count_ext%\>" > %tmp_list%)
call :function_files_count %tmp_list%
echo 文件总数：%counts%
echo 行数总计：%count%
del /Q %tmp_list%
echo.
set /P PauseKey=回车退出
@echo on
@goto :EOF
:}
:function_files_count
:{
set counts_tmp=0
for /F %%l in ('type %1') do (call :function_files_add "%%l")
set /A counts=%counts%+%counts_tmp%
goto :EOF
:}
:function_files_add
:{
set /A counts_tmp=%counts_tmp%+1
call :function_file_count %1
goto :EOF
:}
:function_file_count
:{
echo 第%counts_tmp%个文件：%1
set count_tmp=0
for /F %%l in ('type %1') do (call :function_file_add %1)
set /A count=%count%+%count_tmp%
echo 小计行数：%count_tmp%
echo.
goto :EOF
:}
:function_file_add
:{
set /A count_tmp=%count_tmp%+1
goto :EOF
:}
下载文件
该脚本运行于windows.
记得有位朋友问过我CNZZ大概有多少行代码,我说没有统计过,应该有几万行.他说几千行,如果有机会再跟这位朋友聊聊,我要告诉他统计结果:10万行左右,而且只是主站的,不包括统计底层的代码.虽然很多代码重用了,但几千行绝对不可能滴.
有机会生我重写全部代码的话,我觉得5万行左右吧.
放到一个PHP文件夹下面，点他，就会自动统计当前目录下面的PHP文件了。
如果用记事本打开，还可以设置是否统计子目录的；也可以设置统计其它类型的代码！
统计的标准是非回车空行！
@echo off
:config()
:{
set count_type=0
:# 0：表示只统计当前目录
:# 1：表示只统计当前目录，包括子目录
set count_ext=.php
:# 表示统计文件的后缀名称
:}
:main()
:{
if %count_type%==0 (set count_info=当前目录)
if %count_type%==1 (set count_info=当前目录，包括子目录)
echo 代码文件数与行数统计(HonestQiao 2006-5-20 0:14)
echo 统计方式：%count_info%
echo 文件后缀：%count_ext%
set /P PauseKey=开始统计（回车开始，Q退出）
if "%PauseKey%" == "Q" goto :EOF
if "%PauseKey%" == "q" goto :EOF
echo.
cd "%CD%"
set counts=0
set count=0
set tmp_list=%RANDOM%.tmp
copy /Y NUL %tmp_list% >nul 2>nul
if %count_type%==0 (dir/b | findstr "%count_ext%\>" > %tmp_list%)
if %count_type%==1 (dir/b/s | findstr "%count_ext%\>" > %tmp_list%)
call :function_files_count %tmp_list%
echo 文件总数：%counts%
echo 行数总计：%count%
del /Q %tmp_list%
echo.
set /P PauseKey=回车退出
@echo on
@goto :EOF
:}
:function_files_count
:{
set counts_tmp=0
for /F %%l in ('type %1') do (call :function_files_add "%%l")
set /A counts=%counts%+%counts_tmp%
goto :EOF
:}
:function_files_add
:{
set /A counts_tmp=%counts_tmp%+1
call :function_file_count %1
goto :EOF
:}
:function_file_count
:{
echo 第%counts_tmp%个文件：%1
set count_tmp=0
for /F %%l in ('type %1') do (call :function_file_add %1)
set /A count=%count%+%count_tmp%
echo 小计行数：%count_tmp%
echo.
goto :EOF
:}
:function_file_add
:{
set /A count_tmp=%count_tmp%+1
goto :EOF
:}
下载文件 该脚本运行于windows.
记得有位朋友问过我CNZZ大概有多少行代码,我说没有统计过,应该有几万行.他说几千行,如果有机会再跟这位朋友聊聊,我要告诉他统计结果:10万行左右,而且只是主站的,不包括统计底层的代码.虽然很多代码重用了,但几千行绝对不可能滴.
有机会生我重写全部代码的话,我觉得5万行左右吧.
