中国DOS联盟

这里高手真多啊，偶刚学，还没入门呢。以后大家多多指教...

 @echo off&setlocal enabledelayedexpansion

set max=0

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

set /a i+=1

call :split "%%i" !i!)

for /l %%i in (0 1 %max%) do (

for /l %%j in (0 1 !i!) do (

set t=!s_%%j_%%i!

if not "!t!" == "" if not "!t!" == " " echo !t!))

pause&exit

:split

set c=-1&set s=%~1

:next

set /a c+=1

if not "!s:~%c%,1!" == "" (

set s_%2_%c%=!s:~%c%,1!

goto next

) else if %c% gtr %max% set max=%c%

写了个。完后参看前辈们写的，发觉和terse的接近了。

刚才试着处理1K左右的不同文本，私下觉得这个是最快的。

Last edited by dreamseed on 2008-4-23 at 08:28 PM ]

有些特殊字符不支持

仔细一看才明白你的意思。刚才回复出错。

Last edited by amao on 2008-4-25 at 10:08 AM ]

写的太多了

@echo off&&setlocal enabledelayedexpansion

for /f "tokens=*" %%i in (a.txt) do (

set str=%%i

set str=!str: =!&call :lp

)

pause

:lp

echo !str:~0,1!&set str=!str:~1!&if defined str goto :lp&goto :eof

君的代码处遇上%时会丢失.

我参考大家的写了一段,有处理空行时会出现重复的问题,
哪位帮解决一下:

@echo off & setlocal enabledelayedexpansion
set m=0&set n=0&set en=y

:angin
call :lp
set /a m+=1&if not defined endy goto :angin
pause&goto :eof

:lp
if !m!==0 (set skip= ) else (set skip="skip=%m% delims=")

for /f %skip% %%i in (a.txt) do (
set str=%%i
set str=!str:~ %n%,1!
if not defined str goto :eof
set en=n&if not "!str!"==" " echo !str!
goto :eof
)

set m=-1&set /a n+=1&if !en!==y set endy=q
set en=y&goto :eof