@echo off
set "file1=e:\test\1.txt"
set "file2=e:\test\2.txt"
powershell -command "((([regex]'\d+').Matches([System.IO.File]::ReadAllText(\"%file1%\",[System.Text.Encoding]::Default))|ForEach-Object{(($_.Value -replace '6','1').ToCharArray()|Sort-Object) -join ''})|Sort-Object|Group-Object|%%{$_.Group -join ' '})|set-content -LiteralPath \"%file2%\""
pause
exit /b
复制代码

"125 621 123 121 122 625".Replace("6","1").Split(' ') | group | Sort-Object -Property Name
复制代码

@echo off
set num=125 621 123 121 122 625
for /f "delims=" %%a in ('powershell -command "& {'%num%'.Replace('6','1').Split(' ') | group | Sort-Object -Property Name}"') do (
echo %%a
)
pause
复制代码

@echo off
for /f "delims=" %%a in ('powershell -command "& {[regex]::Matches([System.IO.StreamReader]::new('C:\Users\mac\Desktop\ip.txt').ReadToEnd().Replace('6','1'),'\d+') | group | sort -Property Name | select Group}"') do (
echo %%a)
pause
复制代码

<# :
@echo off&cd/d "%~dp0"
more +8 "%~f0" >"%temp%\%~n0.ps1"
powershell -NoLogo -NoProfile -ExecutionPolicy bypass -File "%temp%\%~n0.ps1"
del /f /q "%temp%\%~n0.ps1"
pause
#>

$file = 'C:\Users\CF\Desktop\1.txt';#文本路径

$ErrorActionPreference = 'SilentlyContinue';
$text = [io.file]::ReadAllText($file,[text.encoding]::Default);
[System.Collections.ArrayList] $arr = ($text -split '\s');
$result = @{};

foreach($elem in $arr)
{
	if($elem) {
		$elem = $elem -replace '6','1';
        $str='';
		$elem -split ''|sort-object|%{$str+=$_}

		$result.Add([int] $str, $str);
		if(!$?) { $result[[int] $str] += ' ' + $str; }
	}
}

$arr.Clear();
foreach($key in $result.Keys|Sort-Object)
{
    [void] $arr.Add($result[$key]);
}

[io.file]::WriteAllLines('结果.txt',$arr,[text.encoding]::Default);#输出结果
复制代码

my @nums = qw/125 621 123 121 122 625 6625 1126 1125/;
grep { tr/6/1/; $_ = join("", sort split("", $_)) } @nums;
print join(",", sort { $a <=> $b } @nums);
复制代码

set "str=125 621 123 121 122 625"
PowerShell "[int[]]('%str:6=1%' -split ' ') | sort | group | %%{($_.Name + ' ') * $_.Count}"
复制代码

@echo off & setlocal enabledelayedexpansion
if "%~1" == "arg" (
    set "str=125 621 123 121 122 625"
    for %%i in ( !str:6^=1! ) do (
        set "var=%%i"
        set "s="
        for /L %%j in (0 1 9) do (
            for %%k in ("!var:%%j=" "!") do set "s=!s!%%j"
            set "s=!s:~0,-1!"
        )
        echo;!s!
    )
) else (
    for /f %%i in ('"%~f0" arg ^| sort ^& echo;/') do (
        if "%%i" == "!s!" (
            set /p "=!s! "
        ) else if defined s (
            echo;!s!
        )
        set "s=%%i"
    ) < nul
    pause & exit /b
)
复制代码

@echo off
set "str=125 621 123 121 122 625"
PowerShell "'%str:6=1%' -split '\s+' | %%{([char[]]$_ | sort) -join ''} | sort | group | %%{($_.Name + ' ') * $_.Count}"
pause
复制代码

$file = '1.txt';#文本路径
$result='结果.txt';#输出文件

$text = type $file -ReadCount 0
[int[]]($text  -split ' ') | sort |%{ [int] (($_ -replace '6','1' -split ''|sort) -join '')}|group|%{$_.group -join ' '}|sc $result
复制代码