Выделить, отсортировать и проверить на непрерывность номера из имён каталогов

dir -name | foreach-object {$_.PSChildName -match "/d+" | %{$matches[0]}} | sort-object

$i = 0
$preItem = 0
 
foreach ($Item in (Get-ChildItem -Path C:\Temp\_Files -Recurse | ? PSIsContainer | Select @{name="Name"; Expression = {[int]($_.Name -replace '\D','')}} | sort name))
{
    
    if ((($Item.Name - $preItem) -gt 1) -and ($i -ne 0))
        {
        Write-Host ($i+=1) $Item.Name "Внимание пропущен номер!"
        }
    else
        {
        Write-Host ($i+=1) $Item.Name "Ok"
        }
    $preItem = $Item.Name
 
}

$ResultFile = 'C:\Temp\result.csv'
$i = 0
$preItem = 0
 
Set-Content -Path $ResultFile -Value "NN;Name;Status" -Encoding UTF8
 
foreach ($Item in (Get-ChildItem -Path C:\Temp\_Files -Recurse | ? PSIsContainer | Select @{name="Name"; Expression = {[int]($_.Name -replace '\D','')}} | sort name))
{
    
    if ((($Item.Name - $preItem) -gt 1) -and ($i -ne 0))
        {
        $data = ($i+=1),$Item.Name,"Внимание пропущен номер!" -join ';'
        }
    else
        {
        $data = ($i+=1),$Item.Name,"OK" -join ';'
        }
    Add-Content -Path $ResultFile -Value $data -Encoding UTF8
    $preItem = $Item.Name
 
}

$i = 0
$preItem = 0
 
foreach ($Item in (Get-ChildItem -Path "C:\Temp\_Files" -Recurse | Where {$_.PSIsContainer} | Select @{name="Name"; Expression = {[int]($_.Name -replace '\D','')}} | Sort name))
{
    
    if ((($Item.Name - $preItem) -gt 1) -and ($i -ne 0))
        {
        Write-Host ($i+=1) $Item.Name "Внимание пропущен номер!"
        }
    else
        {
        Write-Host ($i+=1) $Item.Name "Ok"
        }
    $preItem = $Item.Name
 
}

$i=0;$preItem=0;ls "C:\Temp\_Files" -R|?{$_.PSIsContainer}|Select @{name="Name";Expression={[int]($_.Name -replace '\D')}}|Sort name|%{if((($_.Name-$preItem)-gt 1)-and($i-ne 0)){Write-Host ($i+=1) $_.Name "Внимание!"}else{Write-Host($i+=1) $_.Name "Ok"};$preItem=$_.Name}

ls 'C:\Temp\_Files' -R | ? {$_.PSIsContainer}

ls 'C:\Temp\_Files' -R | ? PSIsContainer

$i = 0
$preItem = 0
$numbers = @()
 
foreach ( $sample in (Get-ChildItem -Path "C:\Temp\_Files" -Recurse | ? {$_.PSIsContainer} | Select @{name="Name"; Expression = {$_.Name -replace '\D'}}) )
{
 
$str = $sample.name
if ($str.Length -gt 5)
    {
    $str.Substring(3) -split '(..)' | ?{$_} | % {$numbers+= [int]($str.Substring(0,3) + $_)}
    }
else
    {
    $numbers+= [int]$str
    }
 
}
 
foreach ( $Item in ($numbers | sort) )
{
    
if ((($Item - $preItem) -gt 1) -and ($i -ne 0))
    {
    Write-Host ($i+=1) $Item "Внимание пропущен номер!"
    }
else
    {
    Write-Host ($i+=1) $Item "Ok"
    }
$preItem = $Item
 
}

$i = 0
$preItem = 0
$numbers = @()
 
$samples = Get-ChildItem -Path "C:\Temp\_Files" -Recurse | ? {$_.PSIsContainer} | Select @{name="Name"; Expression = {$_.Name -replace '\D'}}
 
foreach ( $sample in $samples )
{
 
$str = $sample.name
if ($str.Length -gt 5)
    {
    $base = [int]$str.Substring(0,3)
    $str.Substring(3) -split '(..)' | ?{$_} | % {       
        $numbers+= [int]($base.ToString() + $_)
        [int]$testBase = ($numbers[-1]+1).ToString().Substring(0,3)
        if ($testBase -ne $base) {$base = $testBase}}
    }
else
    {
    $numbers+= [int]$str
    }
 
}
 
foreach ( $Item in ($numbers | sort) )
{
    
if ((($Item - $preItem) -gt 1) -and ($i -ne 0))
    {
    Write-Host ($i+=1) $Item "Внимание пропущен номер!"
    }
else
    {
    Write-Host ($i+=1) $Item "Ok"
    }
$preItem = $Item
 
}
 
$missedItem = 0
$preItem = 0
$i = 0
$j = 0
 
Write-Host "`nПропущенные номера:"
foreach ( $Item in ($numbers | sort) )
{
 
if ((($Item - $preItem) -gt 1) -and ($i -ne 0))
    {
    $missedItem = $preItem + 1
    while($missedItem -ne $Item)
        {
        Write-Host ($j+=1) $missedItem
        $missedItem+= 1
        }
    }
 
$i+=1
$preItem = $Item
 
}
 
$numbers = @()
$i = 0
Write-Host "`nОбъединённые номера:"
foreach ( $sample in ($samples | ?{$_.Name.Length -gt 5}) )
{
 
$str = $sample.name
$base = [int]$str.Substring(0,3)
Write-Host ($i+=1) ":" -NoNewline
 
$str.Substring(3) -split '(..)' | ?{$_} | % {       
    $numbers += [int]($base.ToString() + $_)
    [int]$testBase = ($numbers[-1]+1).ToString().Substring(0,3)
    if ($testBase -ne $base) {$base = $testBase}}
 
Write-Host ($numbers -join ',')
$numbers = @()
 
}

$samples = Get-ChildItem -Path "C:\Temp\_Files" -Recurse | ? {$_.PSIsContainer} | Select @{name="Name"; Expression = {$_.Name -replace '\D'}}
$numbers = @()
foreach ( $sample in $samples )
{
 
$str = $sample.name
 
if ($str.Length -gt 5)
    {
    $base = [int]$str.Substring(0,3)
    $str.Substring(3) -split '(..)' | ?{$_} | % {
        $numbers += @([pscustomobject]@{Number=[int]($base.ToString() + $_);Sample=$str;Status='?'})
        [int]$testBase = ($numbers[-1].Number+1).ToString().Substring(0,3)
        if ($testBase -ne $base) {$base = $testBase}}
    }
else
    {
    $numbers += @([pscustomobject]@{Number=[int]$str;Sample=$str;Status='?'})
    }
 
}
 
$j = 0
$preNumber = 0
$preSample =''
$index = @()
$numbers |%{$index+=$_.number}
 
foreach ( $Item in ($numbers | sort Number) )
{
 
$i = [array]::indexof($index,$Item.Number)
 
if ((($Item.Number - $preNumber) -gt 1) -and ($j -ne 0))
    {
    $numbers[$i].Status = "Пропущен номер!"
    if ($item.Sample -ne $preSample) {Write-Host ($j+=1) $item.Sample "Пропущен номер!"}
    }
else
    {
    $numbers[$i].Status = "Ok"
    if ($item.Sample -ne $preSample) {Write-Host ($j+=1) $item.Sample "Ok"}
    }
$preNumber = $Item.Number
$preSample = $item.Sample
 
}
 
$preItem = 0
$i = 0
$j = 0
 
Write-Host "`nПропущенные номера:"
foreach ( $Item in ($numbers | sort Number) )
{
 
if ((($Item.Number - $preItem) -gt 1) -and ($i -ne 0))
    {
    ($preItem+1)..($item.Number-1) | %{Write-Host ($j+=1) $_}
    }
$i+=1
$preItem = $Item.Number
 
}
 
$join = @()
$i = 0
Write-Host "`nОбъединённые номера:"
foreach ( $sample in ($samples | ?{$_.Name.Length -gt 5}) )
{
 
$str = $sample.name
$base = [int]$str.Substring(0,3)
Write-Host ($i+=1) ": " -NoNewline -Separator ''
 
$str.Substring(3) -split '(..)' | ?{$_} | % {
    $join += [int]($base.ToString() + $_)
    [int]$testBase = ($join[-1]+1).ToString().Substring(0,3)
    if ($testBase -ne $base) {$base = $testBase}}
 
Write-Host ($join -join ',')
$join = @()
 
}