中国DOS联盟

@echo off

:: 行内不能包含空格

:: 程序名不能以A打头，不能包含半角逗号和分号

:: 速度有点慢

cd.>tmp.txt

for /f "delims=" %%i in (A.txt) do (

    set "str=%%i"

    setlocal enabledelayedexpansion

    if "!str:~0,1!"=="A" (

        echo.>>tmp.txt

        set var=%%i

    ) else (

        endlocal&set var=!var!

    )

    set /p str!var!=%%i <nul>>tmp.txt

    endlocal

)

cd.>B.txt

for /f "delims=" %%i in ('sort tmp.txt') do (

    for %%j in (%%i) do >>B.txt echo %%j

    echo.>>B.txt

)

del tmp.txt

start B.txt

@echo off&setlocal enabledelayedexpansion

if "%~1"=="" (

   for /f "tokens=1* delims= " %%a in ('"%~0" h^|sort') do (

      if "%%b"=="" (echo.) else echo.%%b

    )

    pause&exit

)

for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (

  set "str=%%b"

  if "!str:~0,1!"=="A" set var=%%b

  if "%%b"=="" (echo !var!) else echo !var! %%b

)

goto :eof

@echo off

cd.>b.txt

for /f "tokens=1* delims=:" %%i in ('findstr /in "^A$" "A.txt"^|sort') do set .%%j=%%i

for /f "tokens=1,2 delims=.=" %%i in ('set.') do call:lp %%i %%j

pause

goto :eof

:lp

set .%1=

set/a n=%2-1

if %2 equ 1 (set skip=) else set skip=skip=%n%

for /f "%skip% delims=" %%i in (A.txt) do (

       if defined .%%i echo.>>b.txt&goto :eof

       >>b.txt echo %%i&set .%1=ok

)

echo.>>b.txt

Originally posted by xeibobin at 2008-5-15 11:37 AM:
谢谢namejm，26933062，terse，都试了可以用,就是26933062的批处理偶尔会出错,没有关系了,现在已经可以了,就是懵懵懂懂看不大明白意思,呵呵,正在学习中了....

Originally posted by xeibobin at 2008-5-15 11:39:
评分评错了,到时候再加给26933062,不好意思,现在加不了

Originally posted by terse at 2008-5-15 08:12 PM:

评错了55555555 我退给你吧