[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. @echo off&setlocal enabledelayedexpansion
  2. >b.txt cd.
  3. for /f "usebackq delims=" %%i in (`more a.txt`) do (set "numbers_old=!numbers_old! %%i")
  4. for %%i in (%numbers_old%) do (
  5.   set number=0000%%i
  6.   set number=!number:~-4!
  7.   set _!number!=%%i
  8. )
  9. for /f "tokens=2 delims==" %%i in ('set _') do (
  10.   for %%j in (%%i) do set "numbers_new=!numbers_new! %%j"
  11. )
  12. for %%i in (%numbers_new%) do (
  13.   set /p=%%i <nul >>b.txt
  14.   set /a n+=1
  15.   if !n! equ 6 echo.>>b.txt&set /a n=0
  16. )
  17. start b.txt
  18. exit
复制代码
说明一下:为此题学习了随风的排序函数,也终于搞懂了这个函数。学习了他的思路,不要分数,凑个热闹、搞点人气而已。

[ 本帖最后由 shqf 于 2009-2-26 12:57 编辑 ]
1

评分人数

    • batman: 代码还可精简PB + 10

TOP

  1. @echo off
  2. setlocal EnableDelayedExpansion
  3. >1.txt cd.&>b.txt cd.
  4. for /f "usebackq delims=" %%i in (`more a.txt`) do (
  5.   for %%j in (%%i)do (
  6.     set "number=   %%j"
  7.     echo !number:~-4!>>1.txt
  8.   )
  9. )
  10. for /f "usebackq" %%i in (`sort 1.txt`) do (
  11.   set /p=%%i <nul >>b.txt
  12.   set /a n+=1
  13.   if !n! equ 6 echo.>>b.txt&set /a n=0
  14. )
  15. start b.txt
  16. del 1.txt
  17. exit
复制代码
哈,我再来一个。这样的题蛮有意思。

TOP

返回列表