$ToNatural = { [regex]::Replace($_, '\d+', { $args[0].Value.PadLeft(20) }) }
Get-ChildItem  -path 'X:\xx\a*.txt' | Sort-Object $ToNatural | ForEach-Object { get-content $_.fullname } | out-file a.txt
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir/b *1.txt^|findstr "[^0-9]1.txt"') do (
    set "str=%%~ni"
    set "str=!str:~0,-1!"
    for %%a in ("!str!*.txt") do set /a n+=1
    (for /l %%b in (1,1,!n!) do set/a nn=10000+%%b &ren !str!%%b.txt !str!!nn:~1!.txt)
    set n=
)
pause
复制代码

$sour = "aaa"
$ToNatural = { [regex]::Replace($_, '\d+', { $args[0].Value.PadLeft(20) }) }
Get-ChildItem -path $sour -Filter "*.txt" |
    Sort-Object $ToNatural |
    ForEach-Object {
        get-content -Encoding utf8 $_.fullname |
            Out-File -Append (( $_.basename -replace  "\d+$","" ) + ".txt")
}
复制代码

$sour = "."
Get-ChildItem -path $sour -Filter "*-*.txt" | ForEach-Object {
    if ($_.basename -match "(.*)-(\d+)$")
    {
       write-host $_.basename ($matches[1] + "-" + $matches[2].PadLeft(6,"0"))
#       rename-item -path $_.FullName -NewName ($matches[1] + "-" + $matches[2].PadLeft(6,"0") + $_.Extension)
     }
   }
复制代码

寄生\12.txt
寄生\13.txt
寄生\6.txt
寄生\7.txt
红尘仙道\100.txt
红尘仙道\93.txt
红尘仙道\94.txt
红尘仙道\95.txt
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1* delims=-" %%i in ('dir /b /a-d *-*.txt') do (
    if not exist %%i md %%i
    move "%%i-%%j" "%%i"
)
for /d %%k in (*) do (
    pushd "%%k"
    for /f "tokens=1* delims=-" %%a in ('dir /b /a-d') do (
        set str=0000%%b
        set str=!str:~-9!
        ren "%%a-%%b" "%%a-!str!"
    )
    copy "%%k-*" "%%~dpk%%k.txt"
    popd
)
pause
复制代码