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

chichenzhe

@echo off
for /f "delims=" %%i in ('dir/b *.java') do (
 echo %%i
 for /f "usebackq" %%j in ("%%i") do  set/a n=n+1
) 
echo 总行数:%n%
pause
复制代码

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

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

pcl_test

//&cls&dir /a-d/b/s *.java|cscript -nologo -e:jscript "%~f0"&pause&exit

var fso = new ActiveXObject('Scripting.FileSystemObject');
var blank = 1;  //设置是否统计空白行，0为不统计，1为统计

if(!/^[01]$/.test(blank)){WSH.echo('参数有误！');WSH.quit()}
var s=f=fd=0, arr={};
var endstr = '=========================================\r\n'
while(!WSH.StdIn.AtEndOfStream){
    var file = WSH.StdIn.ReadLine();
    var fpath = fso.GetParentFolderName(file);
    if(!fpath)fpath = '当前目录/文件夹';
    if(!arr[fpath]){
        arr[fpath]={};
        arr[fpath]['list']=[];
        arr[fpath]['lines']=0;
        arr[fpath]['files']=0;
    }
    var m = GetLineCount(file, blank);
    arr[fpath]['list'].push('['+m+']'+file.replace(/^.+\\/,''));
    arr[fpath]['lines']+=m;
    arr[fpath]['files']++;
}
for(var b in arr){
    WSH.echo(b);
    fd++;
    for(var i=0; i<arr[b]['list'].length; i++){
        WSH.echo(arr[b]['list'][i]);
    }
    s+=arr[b]['lines'];
    f+=arr[b]['files'];
    WSH.echo('['+arr[b]['files']+'个文本文件'+(blank?'包括空白行':'不包括空白行')+'共'+arr[b]['lines']+'行]\r\n');
}
WSH.Echo(endstr+fd+'个文件夹'+f+'个文本文件'+(blank?'包括空白行':'不包括空白行')+'共'+s+'行');

function GetLineCount(file, blank){
    var m=0;
    var f = fso.OpenTextFile(file, 1);
    try{
        while(!f.AtEndOfStream){
            var line = f.ReadLine();
            if(blank){
                m++;
            }else{
                if(!/^[　\s]*?$/.test(line))m++;
            }
        }
    }catch(e){}
    f.Close();
    return m;
}
复制代码

pcl_test

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /ad/b/s^|sort /r') do (
    if exist "%%a\*.java" (
        echo;%%a
        pushd "%%a"
        set t=0
        for /f "tokens=1* delims=:" %%a in ('find /c /v "" *.java') do (
            echo;%%a%%b
            set /a t+=%%b
        )
        echo;!t!
        set /a s+=t
        popd
    )
)
echo;===================
echo;总%s%
pause
复制代码

@echo off
for /f "delims=" %%a in ('dir /a-d/b/s *.java') do (
    for /f "tokens=1,2* delims=:" %%b in ('find /c /v "" "%%a"') do (
        if "%%d" neq "" (
            echo;%%b:%%c%%d
            set /a s+=%%d
        ) else (
            echo;%%b%%c
            set /a s+=%%c
        )
    )
)
echo;====================================
echo;总%s%
pause
复制代码

pcl_test

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

#*&cls&(dir /a-d/b/s *.java)|gawk -f "%~f0">con&pause&exit
BEGIN{
    s=f=fd=0;
    blank=1;  #设置是否统计空白行，0为不统计，1为统计
    if(blank!~/^[01]$/){print "参数有误！";exit}
    endstr="=========================================\n"
    while(getline file>0){
        if(!match(file, /(^.+\\)/, path))path[1]="当前目录/文件夹";
        if(!arr[path[1]])arr[path[1]]=1;
        n=GetLineCount(file, blank);
        sub(/^.+\\/, "" ,file);
        list[path[1]]=list[path[1]]"\n["n"]"file;
        lines[path[1]]+=n;
        files[path[1]]++;
    }
    for(b in arr){
        ++fd;
        s+=lines[b];
        f+=files[b];
        print b;
        print substr(list[b], 2);
        print "["files[b]"个文本文件"(blank?"包括空白行":"不包括空白行")"共"lines[b]"行]\n"
    }
    print endstr""fd"个文件夹"f"个文本文件"(blank?"包括空白行":"不包括空白行")"共"s"行"
}

function GetLineCount(file, blank){
    m=0;
    while(getline<file>0){
        if(blank){m++}
        else{if($0!~/^[[:space:]]*$/)m++}
    }
    close(file);
    return m;
}
复制代码