【练习-042】批处理将文本数值按尾数分类

zhouyongjun

我贴个代码吧

1. @echo off&setlocal enabledelayedexpansion
   
2. for /f "delims=" %%a in (a.txt) do (
   
3. for %%b in (%%a) do (
   
4. set/a num=%%b%%10
   
5. for %%c in (!num!) do set #%%c=!#%%c! %%b
   
6. )
   
7. )
   
8. for /f "tokens=2 delims==" %%a in ('set #') do echo %%a
   
9. pause>nul

复制代码

netbenton

不用set /a也可以做到，用  :~-1

vsbat

可是 batman 要求是尽量不用 set  截取字符啊-----

vsbat

1. @echo off&setlocal enabledelayedexpansion
   
2. for /f "delims=" %%i in (a.txt) do (
   
3. for %%j in (%%i) do (set /a num=%%j%%10
   
4. for %%k in  (!num!) do set #%%k=!#%%k! %%j))
   
5. for /f "tokens=1,2 delims=#=" %%h in ('set #') do echo %%h %%i
   
6. pause
   

复制代码

新学习的方法----------

[ 本帖最后由 vsbat 于 2009-11-7 21:42 编辑 ]

batman

晕，是我大意了，没想到这题已经出过了（见练习-42），特向大家道歉，并将此贴关闭！

terse

重温一下 前面发过没？前面随风兄提示直接for的  后面冒泡排

1. @echo off&setlocal enabledelayedexpansion
   
2. for /f "delims=" %%i in (a.txt) do (
   
3.    for %%j in (%%i) do (
   
4.        set "str=%%j"
   
5.        for %%k in (!str:~-1!) do set/a _%%k+=1&set "_%%k_!_%%k!=%%j"
   
6.     )
   
7. )
   
8. for /l %%a in (0,1,9) do if defined _%%a (
   
9.    set /a "c=_%%a-1"
   
10.        for /l %%i in (1,1,!c!) do (
    
11.            set /a "b=%%i+1"
    
12.            for /l %%j in (!b!,1,!_%%a!) do (
    
13.            if !_%%a_%%i! gtr !_%%a_%%j! set/a "_%%a_%%j=!_%%a_%%i!,_%%a_%%i=!_%%a_%%j!"
    
14.         )
    
15.     )
    
16.     for /l %%i in (1,1,!_%%a!) do set "var=!var! !_%%a_%%i!"
    
17.     echo;%%a!var!&set "var="
    
18. )
    
19. pause

复制代码

Seter

我也来个..

1. @echo off&setlocal enabledelayedexpansion
   
2. for /f "delims=" %%a in (in.txt) do for %%b in (%%a) do set b=000%%b&set/a_!b:~-1!_!b:~-3!+=1
   
3. for /l %%a in (0,1,9) do (for /f "tokens=1,2,3 delims=_=" %%i in ('set _%%a 2^>nul') do (if not defined _%%a set/p=%%a<nul&set _%%a=1)&set/ai=1%%j-1000&&for /l %%b in (1,1,%%k) do set/p= !i!<nul)&if defined _%%a echo.
   
4. pause

复制代码

Seter

郁闷,突然发现batman已经有差不多的代码了