【已解决】【50元求助】bat处理csv指定列，

#&cls&@cd /d "%~dp0"&powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression" &pause&exit
cls
#输入csv文件
$csv_in = '需要处理的.csv'
#输出csv文件
$csv_out = '1.csv'
#名称明细列号
$col1 = 7
$col2 = 24
&{
'明细,数量,名称'
&{
    Get-Content $csv_in | Select-Object -Skip 1 | foreach { 
        $arr = $_ -replace ',,',',0,' -split ','
        @{'a'=$arr[$col1-1];'b'=$arr[$col2-1] -replace '（.*$',''}
    }
} | Group-Object { $_.b } | Sort-Object { $_.Count } -Descending | foreach {
    $__ = $_
    $_.Group | foreach {
        '{0},{1},{2}' -f $__.Name,$__.Count,$_.a
    }
} 
} | Select-Object -Unique | Out-File $csv_out -Encoding Default
复制代码

<# :
cls&echo off&cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal \"%~f0\"|out-string|Invoke-Expression"
pause
exit
#>
$oldcsvfile="原文件.csv";
$newcsvfile="结果.csv";
$column=@('7','24') ;
$len=6;
if(-not (test-path -literal $oldcsvfile)){write-host ('"'+$oldcsvfile+'" not fount');exit;}
$enc=[Text.Encoding]::GetEncoding('GB2312');
$text=[IO.File]::ReadAllText($oldcsvfile, $enc).trim() -split '\r\n';
$csv=$text[1..($text.Count-1)]|%{$_ -replace '[\r\n]',''}|ConvertFrom-CSV -head @(1..[int]$column[1]|%{$_.ToString()})|select $column;
$dic=New-Object 'System.Collections.Generic.Dictionary[string, object]';
foreach($col in $csv){
    $name=$col.($column[0]);
    $detail='';
    $reg='^.{1,'+$len.toString()+'}';
    $m=[regex]::match($col.($column[1]), $reg);
    if($m.Success){
        $detail=$m.groups[0].value;
        if(-not $dic.ContainsKey($detail)){
            [System.Collections.ArrayList]$arr=@();
            $dic.add($detail, @(0, $arr));
        }
        $dic[$detail][0]++;
        if($dic[$detail][1] -notcontains $name){
            [void]$dic[$detail][1].add($name);
        }
    }
}
[System.Collections.ArrayList]$s=@();
$title=@('明细', '数量', '名称') -join ',';
[void]$s.add($title);
foreach($k in ($dic.Keys|sort {$dic[$_][0]} -Descending)){
    for($i=0;$i -lt $dic[$k][1].count;$i++){
        $line=@($k, $dic[$k][0].ToString(), $dic[$k][1][$i]) -join ',';
        [void]$s.add($line);
    }
}
[IO.File]::WriteAllLines($newcsvfile, $s, $enc);
复制代码