[文本处理] 批处理如何实现数字排序？

mlxsj1985

例如 125 621 123 121 122 625需要排成
112 112
122
123
125 125
需要的是把数字6变成1，路过大神帮帮忙

mlxsj1985

例如 125 621 123 121 122 625需要排成
112 112
122
123
125 125
需要的是把数字6变成1，路过大神帮帮忙，10元红包答谢

mlxsj1985

回复 2# smss
好像不是啊

smss

回复 4# mlxsj1985
那看不懂你的问题

flashercs

a.bat

@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
复制代码

ivor

回复 1# mlxsj1985

"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
复制代码

ivor

@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
复制代码

xczxczxcz

偶感觉楼上诸位把数字转为字符串排序，若数字的位数不一样，结果就不是按数字大小排序了。好像最后结果是哈希表，还需进一步处理。

yhcfsr

<# :
@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);#输出结果
复制代码

mlxsj1985

回复 11# yhcfsr

大神思路完全是正确的，我可能标题没有表达清楚，124 142 241 214 412 421都等于124 带6的全变1 166变111 356变135 其余的一点问题都没有，简直完美。

523066680

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);
复制代码

112,112,122,123,125,125,1112,1125,1125

WHY

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

WHY

@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
复制代码

yhcfsr

回复 12# mlxsj1985


之前没仔细看内容.现在代码更正了.

523066680

回复 16# yhcfsr

完整的问题描述渐渐浮出水面