Удалить в файле пустые строки, если их больше чем N штук подряд

#Получаем содержимое нашего исходного файла
$strings= Get-Content c:\forPowerShell.txt
 
#Считаем допустимое количество пустых строк
$dopustimoeKolvoPustuxStrok = read-host "Please enter N:"
 
#Переменная в которой будет содержаться количество пустых строк, которые идут подряд
$nullStringCounter=0
 
#Переменная, в которой будет содержаться адрес НАЧАЛА того, что мы будем считывать в РЕЗУЛЬТИРУЮЩИЙ файл
$start=0
 
#Переменная, в которой будет содержаться адрес КОНЦА того, что мы будем считывать в РЕЗУЛЬТИРУЮЩИЙ файл
$finish=0
 
 
#перебираем каждую строку
for($i=0; $i -lt $strings.length; $i++){
 
     #если строка равна пустой
     if ($strings[$i] -eq ""){
     $nullStringCounter++
     continue
     }
    
    #если строка не равна пустой
    if ($strings[$i] -ne ""){
   
        #если количество пустых строк превысило допустимое
        if($nullStringCounter -gt $dopustimoeKolvoPustuxStrok) {
    
        $finish=$i-$nullStringCounter-1
       
            #перебираем каждую строку начиная со start и по finish и записываем в новый файл
            for($j=$start; $j -le $finish; $j++){
            Add-Content -path c:\forPowerShellResult.txt -value ($strings[$j])
            }
            
            #раз начались не пустые строки , то start=$i
            if ($strings[$i-1] -eq ""){
            $start=$i
            }   
         
        }
        
    #сбросить счетчик пустых строк
    $nullStringCounter=0      
    }
 
#finish=$i   
$finish=$i 
}
 
#Запишем концовку файла
for($j=$start; $j -le $finish; $j++){
Add-Content -path c:\forPowerShellResult.txt -value ($strings[$j])
}

#Получаем содержимое исходного файла
$content = [System.IO.File]::ReadAllText("D:\test\test.txt")
 
#Считаем допустимое количество пустых строк
$nValue = read-host "Please enter N"
 
#Составляем регулярное выражение для поиска соответствующего количества пустых строк
$re = "(?m)(^\s*\r?\n){" + $nValue + ",}"
 
#Заменяем найденное пустой строкой (удаляем из строки, фактически)
$res = $content -replace $re, ""
 
#И выводим в результирующий файл
[System.IO.File]::WriteAllText("D:\test\test_out.txt", $res)

[System.IO.File]::WriteAllText("D:\a_out.txt", ($([System.IO.File]::ReadAllText("D:\a.txt")) -replace "(?m)(^\s*\r?\n){2,}", ""))