zhouyongjun

周哥，我目前只想到这个简单且效率不高的方法。

@echo off
for /f "tokens=1-10" %%a in (a.txt) do (
set/a _%%a=0,_%%b=0,_%%c=0,_%%d=0,_%%e=0,_%%f=0,_%%g=0,_%%h=0,_%%i=0,_%%j=0
)
for /l %%i in (1,1,9999) do (
if defined _%%i call :output %%i
)
exit
:output
<nul set/p=%1 >>b.txt
set/a n+=1
if %n% equ 6 echo.>>b.txt&set/a n=0
goto :eof
复制代码

zhouyongjun

回楼上随风兄，我试了这样修改下能处理重复，不知通用么。

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('more a.txt') do (
for %%j in (%%i) do (
set "num=0000%%j"&set "num=!num:~-4!"
if defined _!num! (set/a m+=1&set _!num!!m!=%%j
) else set _!num!=%%j
))
for /f "tokens=2 delims==" %%i in ('set _') do (
<nul set/p=%%i >>b.txt
set/a n+=1
if !n! equ 6 echo.>>b.txt&set/a n=0
)
start "" "b.txt"
复制代码

[ 本帖最后由 zhouyongjun 于 2009-3-3 12:11 编辑 ]