[文本处理] 批处理如何将文件夹下所有TXT文件，提取第二列不为空的数据行？谢谢！

<# :
@echo off
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
pause
#>
$txts=ls -s *.txt
foreach($txt in $txts){gc $txt|%{$_ -match ".*?,.+,.*";$Matches.Values >>result.txt;$Matches=@()}}
复制代码

gawk "BEGIN{print \"字段 1, 字段 2, 字段 3\"}{if(FNR>1){if($0~/^.*(,|，).+(,|，).*$/){print}}}" *.txt>con
复制代码

@echo off
(echo,字段1,字段2,字段3
for /d %%i in (*) do (
    pushd "%%i"
    type *.txt 2>nul|findstr /rv "字段1,字段2,字段3 ,,"
    popd
))>out.txt
pause
复制代码

@if (0)==(0) echo off
title 保存为ANSI编码，处理ANSI编码的TXT文件
for /d %%a in (*) do (pushd %%a
    dir /b *.txt | cscript -nologo -e:jscript "%~0" >提取.log
popd
)
pause&exit/b
@end

fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WSH.StdIn.AtEndOfStream) {
    f = WSH.StdIn.ReadLine();
    txt = fso.OpenTextFile(f,1).ReadAll().replace(/^[^,]+,(?!,,),.+[\r\n]*/mg,'');
    log = txt.match(/^[^\r\n]+/mg).join('\r\n');
    WScript.Echo(log)
}
复制代码

@if (0)==(0) echo off
title 保存为ANSI编码，处理ANSI编码的TXT文件
for /d %%a in (*) do (pushd %%a
cscript -nologo -e:jscript "%~f0" "a.txt" "b.txt">"提取.txt"
popd
)
pause&exit/b
@end

var s = '', a = {}, files = WScript.Arguments;
var fso = new ActiveXObject('Scripting.FileSystemObject'); 
for (var i = 0; i<files.length; i++){
    var f = fso.opentextfile(files(i), 1);
    while(!f.AtEndOfStream){ 
        var str = f.ReadLine();
        var str = str.replace(/^[^,]+,(?!,,),.+$/mg,'');
        if(!a[str]){
            a[str] = 1;
            s += str+'\r\n';
        }
    s = s.match(/^[^\r\n]+\r\n/mg).join('');
    }
    f.Close();
}
WSH.echo(s);
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1* delims=:" %%i in ('findstr /s /b "[^,][^,]*,[^,][^,]*," *.txt') do (
    if not defined s (
        set "s=%%j"
        echo;%%j
    ) else if /i not "!s!" == "%%j" (
        echo;%%j
    )
)) > new.Log
pause
复制代码