WHY

$d = get-Date;
$arr = [IO.File]::ReadAllLines('3.txt', [Text.Encoding]::UTF8) -match '-{4}';
$Len = $arr.Count;
$dic = New-Object 'System.Collections.Generic.Dictionary[string, [Collections.ArrayList]]';
$max = 0;

for($i=0; $i -lt $Len; $i++) {
    $a = $arr[$i].Trim() -split('----');
    if( !$dic.ContainsKey($a[0]) ){
        $dic.Add($a[0], @($a[1]));    #用户名加入到字典，密码加入到数组
    } else {
        [void]$dic[$a[0]].Add($a[1]);
    }
}

forEach($key In $dic.Keys) {         #找长度最大的数组
    if($dic[$key].Count -gt $max){ $max = $dic[$key].Count; }
}

$out = for($i=0; $i -lt $max; $i+=3) {
    forEach($key In $dic.Keys) {
        for($j=0; $j -lt 3; $j++) {
            if($dic[$key].Count -gt $i+$j) {
                $key + '----' + $dic[$key][$i+$j];
            } else { break; }
        }
    }
}

[IO.File]::WriteAllLines('22.txt', $out);
((get-Date) - $d).TotalSeconds
pause
复制代码

2.6404314
按 Enter 键继续...:
563024 行，速度不算快，也不算太慢

@echo off
chcp 65001 > nul
gawk -F"-{3,}" "BEGIN{max=0}{if($1!=s){i++;j=1};a[i][j++]=$0;s=$1;if(j>max)max=j}END{for(n=1;n<max;n+=3)for(i in a)for(j=0;j<3;j++)if(a[i][n+j])print a[i][n+j]}" 3.txt > 22.txt
pause
复制代码