把文本内容横列变纵列。 - 中国DOS联盟论坛

我是这样写的


@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (t.txt) do (
set "str=%%i"
for /l %%i in (0,1,3) do call :lp
)
pause
goto :eof
:lp
set str1=!str:~%n%,1!
set str2=!str2!!str1!
if defined str1 set/a n+=4&goto lp
set n=&echo !str2!
set str2=

还可以简化可以少循环一次:


@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (t.txt) do (
set "str=%%i"
for /l %%i in (3,-1,1) do call :lp %%i
echo !str!
)
pause
goto :eof
:lp
set/a m=n+1
set str1=!str:~%n%,1!
set str=!str:~0,%n%!!str:~%m%!
set str2=!str2!!str1!
if defined str1 set/a n+=%1&goto lp
set n=&echo !str2!
set str2=

[ Last edited by terse on 2008-4-24 at 12:30 AM ]

第16楼　bat-zw	发表于 2008-04-23 22:39
金牌会员　发帖 1,276　积分 3,105
Originally posted by 26933062 at 2008-4-23 22:35: 仔细看了下5楼的代码，201个字符循环了51次，那么是否可以这样呢？ : @echo off&setlocal enabledelayedexpansion set /p str=<a.txt for /l %%i in (1 1 51) do ( ... 是精简了，但我们不会知道有多少个字符啊，我都是考虑其通用性写的。

第17楼　terse	发表于 2008-04-23 23:44
银牌会员　发帖 946　积分 2,404
我是这样写的 @echo off&setlocal enabledelayedexpansion for /f "delims=" %%i in (t.txt) do ( set "str=%%i" for /l %%i in (0,1,3) do call :lp ) pause goto :eof :lp set str1=!str:~%n%,1! set str2=!str2!!str1! if defined str1 set/a n+=4&goto lp set n=&echo !str2! set str2= 还可以简化可以少循环一次: @echo off&setlocal enabledelayedexpansion for /f "delims=" %%i in (t.txt) do ( set "str=%%i" for /l %%i in (3,-1,1) do call :lp %%i echo !str! ) pause goto :eof :lp set/a m=n+1 set str1=!str:~%n%,1! set str=!str:~0,%n%!!str:~%m%! set str2=!str2!!str1! if defined str1 set/a n+=%1&goto lp set n=&echo !str2! set str2= [ Last edited by terse on 2008-4-24 at 12:30 AM ]

第18楼　cctv8068	发表于 2008-04-24 17:26
初级用户　发帖 15　积分 30
谢谢，长见识了。