[已解决]批处理将txt文本内每段数字的每一位数字按大小排序

慕夜蓝化

现有一a.txt:
587 263 106 30655 8799 239277
18937066188 18137052119 13937082119
18571266838 18252119017 15380992871
...
要求如下:
b.txt
578, 236, 016, 03556, 7899, 223779,
01136678889, 01111235789, 01112337899,
11235667888, 01111225789, 01123578899,
...

求解。

xxpinqz

1. 
   
2. @echo off
   
3. set n=10000
   
4. (for /f "delims=" %%a in (a.txt) do (
   
5.     setlocal enabledelayedexpansion
   
6.     for %%b in (%%a) do (
   
7.          set "str=%%b"
   
8.          set "l=%%bfedcba9876543210"
   
9.          set /a len=0x!l:~16,1!
   
10.          for %%c in (!len!) do (
    
11.              for /l %%a in (0,1,%%c) do set #!n!#!str:~%%a,1!#!random!=.
    
12.              set/an+=1
    
13.          )
    
14.          set #!n!#, #=.
    
15.     )
    
16.     for /f "tokens=2 delims=#" %%d in ('set #') do set "s=!s!%%d"
    
17.     echo,!s!
    
18.     endlocal
    
19. ))>b.txt
    

复制代码

愤怒的CMD

awk.awk中的内容：

1. BEGIN{
   
2. }
   
3.      {
   
4.           split($0,a," ")
   
5.           for(i in a)
   
6.               {
   
7.                   split(a[i],b,"")
   
8.                   t=asort(b)
   
9.                   for(n=0;n++<=t;)
   
10.                   printf b[n]
    
11.                   printf " "
    
12.          }
    
13.          print ""
    
14. }

复制代码

CMD下输入：gawk -f awk.awk a.txt

apang

1. @echo off & setlocal enabledelayedexpansion
   
2. for /f "delims=" %%i in (a.txt) do (
   
3.         for %%a in (%%i) do (
   
4.                 set "s=%%a"
   
5.                 set "s1="
   
6.                 for /l %%b in (0 1 9) do (
   
7.                         set n=-1
   
8.                         for %%c in ("!s:%%b=" "!") do set /a n+=1
   
9.                         for /l %%c in (1 1 !n!) do set "s1=!s1!%%b"
   
10.                 )
    
11.                 set /p=!s1!,<nul
    
12.         )
    
13.         echo,
    
14. )
    
15. pause

复制代码

发现可以简化：

1. @echo off & setlocal enabledelayedexpansion
   
2. for /f "delims=" %%i in (a.txt) do (
   
3.         for %%a in (%%i) do (
   
4.                 set "s=%%a"
   
5.                 set "s1="
   
6.                 for /l %%b in (0 1 9) do (
   
7.                         for %%c in ("!s:%%b=" "!") do set "s1=!s1!%%b"
   
8.                         set "s1=!s1:~,-1!"
   
9.                 )
   
10.                 set /p=!s1!,<nul
    
11.         )
    
12.         echo,
    
13. )
    
14. pause

复制代码

apang

1. @set @n=0;//&cscript -nologo -e:jscript "%~0"<a.txt>b.txt & pause&exit
   
2. 
   
3. s = WScript.StdIn.ReadAll();
   
4. s = s.replace(/(\d+)( +)?/g,
   
5.         function(s0,s1){return s1.match(/\d/g).sort().join("") + ","}
   
6. )
   
7. WScript.Echo(s)

复制代码

慕夜蓝化

回复 3# 愤怒的CMD

嗯，确实可以，不过顺序都被打乱了。

愤怒的CMD

我这里没有问题。
WIN7 + GNU Awk 4.1.0

pcl_test

回复 1# 慕夜蓝化

1. 
   
2. @echo off
   
3. setlocal enabledelayedexpansion
   
4. for /f "delims=" %%a in (a.txt) do (
   
5. set t=
   
6. for %%b in (%%a) do (
   
7. set "str=%%b"
   
8. for /l %%c in (0 1 20) do (
   
9. >>$1 echo,!str:~%%c,1!
   
10. rem if "!str:~%%c,1!" == "" goto :eof 不晓得怎么跳出导致效率慢了
    
11. )
    
12. set s=
    
13. for /f "delims=" %%d in ('sort $1') do set s=!s!%%d
    
14. set t=!t!!s!,
    
15. del $1
    
16. )
    
17. >>$ echo,!t!
    
18. )
    
19. move $ a.txt
    
20. pause
    

复制代码

xxpinqz

回复 1# 慕夜蓝化

1. set "l=%%bfedcba9876543210"
   
2. set /a len=0x!l:~16,1!

复制代码

用来算每组数字的字符串长度0x表示16进制，例如len=0xe 则len=14

慕夜蓝化

回复 10# xxpinqz


    嗯嗯，我自已之前也根据这个问题写了一个两个解法，但是速度太慢了。
同样需要计算它的长度。
但很糟糕，用的是findstr /o　的计算方式。
包括你后来的set列举的手法，都很有见地，受益非浅。

1. 
   
2. @echo off
   
3. for /f "delims=" %%i in (a.txt) do (
   
4.     for %%a in (%%i) do (
   
5.         setlocal enabledelayedexpansion
   
6.         set "str=%%a"&set/a a=9
   
7.         for /f "delims=:" %%b in ('(echo,!str!^&echo,^)^|findstr /o "."') do set/a n=%%b-3
   
8.         for /l %%c in (0 1 !n!) do set/a a+=1&set @!a!=!str:~%%c,1!
   
9.         for /f "tokens=2 delims==" %%d in ('set @^|sort /+5') do set v=!v!%%d
   
10.         set/p=!v!, <nul&endLocal
    
11.     )
    
12.     echo,
    
13. )
    
14. pause
    

复制代码

慕夜蓝化

回复 5# apang

这是最快的方法...很快，很快，其实之前也见别人用过，但是一直不清楚该在什么条件下使用。

1. 
   
2. for %%i in ("!s:Replace=" "!") do (
   

复制代码

不认真看的话，挺晕的。

apang

回复 12# 慕夜蓝化


    其实就是为了算出每个数字的个数
假设 s 的值为 112233
把1替换成" "，!s:1=" "! 变成：" "" "2233
两端再加上引号："!s:1=" "!" 就变成这样了："" "" "2233"
放到for循环中需要循环3次，就算出数字1的个数为2了

慕夜蓝化

回复 13# apang

嗯，记下了，这样来讲清楚了好多。

CrLf

表驱动法，长了点：

1. @echo off&setlocal enabledelayedexpansion
   
2. for /l %%a in (0 1 9) do for /l %%b in (6 -1) do set [%%a]=![%%a]!![%%a]!%%a
   
3. 
   
4. for /f "delims=" %%a in (123.txt) do (
   
5.         set "line="
   
6. 
   
7.         for %%b in (%%a) do (
   
8.                 set/a len=0&set "str=%%b$"
   
9.                 for %%z in (64,32,16,8,4,2,1) do (
   
10.                         if not "!str:~%%z!"=="" set/a len+=%%z&set str=!str:~%%z!
    
11.                 )
    
12. 
    
13.                 set "str=%%b"
    
14.                 for %%z in (!len!) do (
    
15.                         for /l %%c in (9 -1) do (
    
16.                                 set str=![%%c]!!str:%%c=!
    
17.                                 set str=!str:~-%%z!
    
18.                         )
    
19.                 )
    
20. 
    
21.                 set line=!line!,!str!
    
22.         )
    
23. 
    
24.         echo !line:~1!
    
25. )
    
26. pause

复制代码