联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@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%
@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