批处理如何统计指定目录下(包括子目录)多个文本文件各自的行数和累加一起的总行数？

chichenzhe

1. @echo off
   
2. for /f "delims=" %%i in ('dir/b *.java') do (
   
3. echo %%i
   
4. for /f "usebackq" %%j in ("%%i") do  set/a n=n+1
   
5. )
   
6. echo 总行数:%n%
   
7. pause

复制代码

上面只能运算一个目录,对子目录没办法
请求修改.

最好能告诉为什么那么改.

pcl_test

1. //&cls&dir /a-d/b/s *.java|cscript -nologo -e:jscript "%~f0"&pause&exit
   
2. 
   
3. var fso = new ActiveXObject('Scripting.FileSystemObject');
   
4. var blank = 1;  //设置是否统计空白行，0为不统计，1为统计
   
5. 
   
6. if(!/^[01]$/.test(blank)){WSH.echo('参数有误！');WSH.quit()}
   
7. var s=f=fd=0, arr={};
   
8. var endstr = '=========================================\r\n'
   
9. while(!WSH.StdIn.AtEndOfStream){
   
10.     var file = WSH.StdIn.ReadLine();
    
11.     var fpath = fso.GetParentFolderName(file);
    
12.     if(!fpath)fpath = '当前目录/文件夹';
    
13.     if(!arr[fpath]){
    
14.         arr[fpath]={};
    
15.         arr[fpath]['list']=[];
    
16.         arr[fpath]['lines']=0;
    
17.         arr[fpath]['files']=0;
    
18.     }
    
19.     var m = GetLineCount(file, blank);
    
20.     arr[fpath]['list'].push('['+m+']'+file.replace(/^.+\\/,''));
    
21.     arr[fpath]['lines']+=m;
    
22.     arr[fpath]['files']++;
    
23. }
    
24. for(var b in arr){
    
25.     WSH.echo(b);
    
26.     fd++;
    
27.     for(var i=0; i<arr[b]['list'].length; i++){
    
28.         WSH.echo(arr[b]['list'][i]);
    
29.     }
    
30.     s+=arr[b]['lines'];
    
31.     f+=arr[b]['files'];
    
32.     WSH.echo('['+arr[b]['files']+'个文本文件'+(blank?'包括空白行':'不包括空白行')+'共'+arr[b]['lines']+'行]\r\n');
    
33. }
    
34. WSH.Echo(endstr+fd+'个文件夹'+f+'个文本文件'+(blank?'包括空白行':'不包括空白行')+'共'+s+'行');
    
35. 
    
36. function GetLineCount(file, blank){
    
37.     var m=0;
    
38.     var f = fso.OpenTextFile(file, 1);
    
39.     try{
    
40.         while(!f.AtEndOfStream){
    
41.             var line = f.ReadLine();
    
42.             if(blank){
    
43.                 m++;
    
44.             }else{
    
45.                 if(!/^[　\s]*?$/.test(line))m++;
    
46.             }
    
47.         }
    
48.     }catch(e){}
    
49.     f.Close();
    
50.     return m;
    
51. }
    

复制代码

pcl_test

1. @echo off&setlocal enabledelayedexpansion
   
2. for /f "delims=" %%a in ('dir /ad/b/s^|sort /r') do (
   
3.     if exist "%%a\*.java" (
   
4.         echo;%%a
   
5.         pushd "%%a"
   
6.         set t=0
   
7.         for /f "tokens=1* delims=:" %%a in ('find /c /v "" *.java') do (
   
8.             echo;%%a%%b
   
9.             set /a t+=%%b
   
10.         )
    
11.         echo;!t!
    
12.         set /a s+=t
    
13.         popd
    
14.     )
    
15. )
    
16. echo;===================
    
17. echo;总%s%
    
18. pause

复制代码

1. @echo off
   
2. for /f "delims=" %%a in ('dir /a-d/b/s *.java') do (
   
3.     for /f "tokens=1,2* delims=:" %%b in ('find /c /v "" "%%a"') do (
   
4.         if "%%d" neq "" (
   
5.             echo;%%b:%%c%%d
   
6.             set /a s+=%%d
   
7.         ) else (
   
8.             echo;%%b%%c
   
9.             set /a s+=%%c
   
10.         )
    
11.     )
    
12. )
    
13. echo;====================================
    
14. echo;总%s%
    
15. pause

复制代码

pcl_test

第三方http://www.bathome.net/s/tool/index.html?key=gawk

1. #*&cls&(dir /a-d/b/s *.java)|gawk -f "%~f0">con&pause&exit
   
2. BEGIN{
   
3.     s=f=fd=0;
   
4.     blank=1;  #设置是否统计空白行，0为不统计，1为统计
   
5.     if(blank!~/^[01]$/){print "参数有误！";exit}
   
6.     endstr="=========================================\n"
   
7.     while(getline file>0){
   
8.         if(!match(file, /(^.+\\)/, path))path[1]="当前目录/文件夹";
   
9.         if(!arr[path[1]])arr[path[1]]=1;
   
10.         n=GetLineCount(file, blank);
    
11.         sub(/^.+\\/, "" ,file);
    
12.         list[path[1]]=list[path[1]]"\n["n"]"file;
    
13.         lines[path[1]]+=n;
    
14.         files[path[1]]++;
    
15.     }
    
16.     for(b in arr){
    
17.         ++fd;
    
18.         s+=lines[b];
    
19.         f+=files[b];
    
20.         print b;
    
21.         print substr(list[b], 2);
    
22.         print "["files[b]"个文本文件"(blank?"包括空白行":"不包括空白行")"共"lines[b]"行]\n"
    
23.     }
    
24.     print endstr""fd"个文件夹"f"个文本文件"(blank?"包括空白行":"不包括空白行")"共"s"行"
    
25. }
    
26. 
    
27. function GetLineCount(file, blank){
    
28.     m=0;
    
29.     while(getline<file>0){
    
30.         if(blank){m++}
    
31.         else{if($0!~/^[[:space:]]*$/)m++}
    
32.     }
    
33.     close(file);
    
34.     return m;
    
35. }

复制代码