Групповое переименование и объединение файлов txt, с алфавитно-числовой сортировкой

Get-Content -Path C:\Test2\*.txt | Set-Content -Path C:\Input.txt

Get-ChildItem -Path C:\Test2\*.txt | Foreach-Object {$i=1} {ren $_ -NewName ("{0:00#} $($_.Basename).txt" -f $i++) }

# Путь к файлу, считанному с ЧПУ:
$filein = '.\TEST\all-prog.txt'
 
# Путь к готовому файлу для заливки в ЧПУ:
$fileout = '.\TEST\all-prog_out.txt'
 
# Регулярки для работы с именами:
$reg = '^O\d{4}'
$regnumname = '^(O\d{4})\(?([^\(\)]+)\)?'
 
# Алгоритм сортировки:
$alphanum = {$_.name -replace '\d+',{$_.value.padleft(30,'0')}}
 
$basetxt = gc $filein -raw -enc utf8
$base = $basetxt -split '\n'
 
$bw = $null
$flg = $false
$bwork = [collections.generic.list[string]]::new()
 
$bw = foreach ($item in $base){
    if ($item -match '%'){if ($flg){$flg = $false}else{$flg = $true}}
    if ($flg -and $item -notmatch '%'){
        if ($item -match $reg){
            if ($bwork){
                [pscustomobject]@{
                    Number = $num
                    Name = $name
                    Data = ($bwork -join "`n"|out-string -nonew) + "`n"
                }
                $bwork = [collections.generic.list[string]]::new()
            }
            $item -match $regnumname|out-null
            $num,$name = $matches[1],$matches[2]
        } else {
            $bwork.add($item)
        }
    } elseif (!$flg -and $item -match '%'){
        if ($bwork){
            [pscustomobject]@{
                Number = $num
                Name = $name
                Data = ($bwork -join "`n"|out-string -nonew) + "`n"
            }
        }
        $bwork = [collections.generic.list[string]]::new()
    }
}
 
$bw|sort $alphanum|%{$i=1;"%" + "`n"|out-string -nonew}{
    "O"+$("$i".padleft(4,'0'))+'('+$_.name+')'+"`n"+$_.data
    $i++
}{"%"|out-string -nonew}|out-file $fileout -nonew
 
 
# Проверочные списки имен для сравнения, в конечном скрипте можно удалить:
#===здесь формируются файлы с несортированными и сортированными именами===
# как в файле, считанном с ЧПУ:
$bw|select number,name|%{$_.number+'('+$_.name+')'}|
out-file '!nosortname.txt'
 
# отсортированные имена с новыми номерами:
$bw|sort $alphanum|%{$i=1}{
    "O"+$("$i".padleft(4,'0'))+'('+$_.name+')'
    $i++
}|out-file '!sortname.txt'
#=======================end===============================================

# вариант с конечными пробелами в именах программ
# Путь к файлу, считанному с ЧПУ:
$filein = '.\TEST\All-Prog 22.04.25(Со станка).TXT'
 
# Путь к готовому файлу для заливки в ЧПУ:
$fileout = '.\TEST\all-prog_out_wspace.txt'
 
# Регулярки для работы с именами:
$reg = '^O\d{4}'
$regnumname = '^(O\d{4})([^\n]+)$'
 
# Алгоритм сортировки:
$alphanum = {$_.name -replace '[\(\)]' -replace '\d+',{$_.value.padleft(30,'0')}}
 
$basetxt = gc $filein -raw -enc utf8
$base = $basetxt -split '\n'
#$base.length
 
$bw = $null
$flg = $false
$bwork = [collections.generic.list[string]]::new()
 
$bw = foreach ($item in $base){
    if ($item -match '%'){if ($flg){$flg = $false}else{$flg = $true}}
    if ($flg -and $item -notmatch '%'){
        if ($item -match $reg){
            if ($bwork){
                [pscustomobject]@{
                    Number = $num
                    Name = $name
                    Data = ($bwork -join "`n"|out-string -nonew) + "`n"
                }
                $bwork = [collections.generic.list[string]]::new()
            }
            $item -match $regnumname|out-null
            $num,$name = $matches[1],$matches[2]
        } else {
            $bwork.add($item)
        }
    } elseif (!$flg -and $item -match '%'){
        if ($bwork){
            [pscustomobject]@{
                Number = $num
                Name = $name
                Data = ($bwork -join "`n"|out-string -nonew) + "`n"
            }
        }
        $bwork = [collections.generic.list[string]]::new()
    }
}
 
$bw|sort $alphanum|%{$i=1;"%" + "`n"|out-string -nonew}{
    "O"+$("$i".padleft(4,'0'))+$_.name+"`n"+$_.data
    $i++
}{"%"|out-string -nonew}|out-file $fileout -nonew
 
 
# Проверочные списки имен для сравнения, в конечном скрипте можно удалить:
#===здесь формируются файлы с несортированными и сортированными именами===
# как в файле, считанном с ЧПУ:
$bw|select number,name|%{$_.number+$_.name}|
out-file '!nosortname.txt'
 
# отсортированные имена с новыми номерами:
$bw|sort $alphanum|%{$i=1}{
    "O"+$("$i".padleft(4,'0'))+$_.name
    $i++
}|out-file '!sortname.txt'
#=======================end===============================================

$fin = '.\TEST\All-Prog 22.04.25(Со станка).TXT'
$fout = '.\TEST\all-prog_out_wspace.txt'
$fcin = '.\TEST\count_in_wsp.txt'
$fcout = '.\TEST\count_out_wsp.txt'
 
$arr1 = gc $fin -raw
$arr2 = gc $fout -raw
 
$count1 = [ordered]@{}
$count2 = [ordered]@{}
 
foreach ($item in $arr1.tochararray()){
    $count1[$item] += 1
}
 
foreach ($item in $arr2.tochararray()){
    $count2[$item] += 1
}
 
$count1.getenumerator()|sort key|out-file $fcin
$count2.getenumerator()|sort key|out-file $fcout

$all = Parse-FanucDumpFile xp26.txt
 
$втулки = $all | where ProgramName -like *VTULK*
 
Resort-Objects $втулки {$ProgramName -match '(\d+)'; $matches.1}
 
$втулки, $штифты, $метизы   | Create-FanucDumpFile -Path resorted_vtulki_shtifts_metiz.txt

param( [Parameter(Mandatory)][string]$file )
 
class FanucDump
{
    $CellNumber     # 000001
    $ProgramName    # VTULKA20
    $Program        # G-code lines (raw text)
    FanucDump($c,$n,$p) {
        $this.CellNumber  = [int]$c;
        $this.ProgramName = [string]$n;
        $this.Program     = $p
    }
}
$fd_list = [Collections.Generic.List[FanucDump]]::new();
 
switch -regex (get-content $file )
{
    '^O(\d+)(.+)$'
 
    {
        $CellNumber  =  [int]$matches.1        
        $ProgramName =  $matches.2 -Replace '[()]' -Replace '^\s+' -Replace '\s+$'
        $Program     =  [Collections.Generic.List[String]]::new()
        $fd_item     =  [FanucDump]::new($CellNumber, $ProgramName, $Program )
        $fd_list.Add($fd_item)
    }
    
    '^[%]' { continue }     # отфильтровать 'мусор'
 
 
    default
 
    {
        $fd_item.Program.Add($_)
    }
}
 
$fd_list

$matches.2.trim()

param(
        $obj,
        [Parameter(Mandatory=1)]
        [scriptblock]
        $sb 
    )
class FanucDump
{
    $CellNumber
    $ProgramName
    $Program
    FanucDump($cell,$name,$prog) {
        $this.CellNumber  = [int]$cell;
        $this.ProgramName = [string]$name;
        $this.Program     = [string]$prog
    }
}
$sorted = $obj | sort-object $sb
$delegate = [Func[Object, Object, Object]] { param($a, $b) [FanucDump]::new($a.CellNumber, $b.ProgramName, $b.Program) }
[System.Linq.Enumerable]::Zip($obj, $sorted, $delegate)

$all = Parse-FanucDumpFile all.txt
 
$some=$all | where  cellnumber -in (501..514)
 
Resort-FanucDump $some {$ProgramName -match 'X(\d+)'; [int]$matches.1}