[文本处理] [已解决]批处理是如何实现把文本内容的版式改变的呢？横版变竖版

@echo off&setlocal enabledelayedexpansion&set Ye=0
for /f "delims=" %%a in (a.txt) do set Han=%%a&call:Xing
for /l %%a in (1,1,%Ye%) do set Gu=　!Gu!
for /f "delims=" %%a in (a.txt) do (
        set Han=%%a%Gu%
        for /l %%b in (0,1,%Ye%) do set #%%b=^|!Han:~%%b,1!!#%%b!
)
set/a Ye-=1
(for /l %%a in (0,1,%Ye%) do echo;!#%%a!)>b.txt
exit
:Xing
if not "!Han:~%Ye%,1!"=="" set/a Ye+=1&goto:Xing
复制代码

@echo off
setlocal enableDelayedExpansion
set "InTxt=%~s1"
for /f "delims=" %%i in ('type "%InTxt%"')do (
　set/aRow+=1,C=0
　set "Str=%%i"
　set "Str=!Str: =　!"
　set "Str=!Str:—=　!"
　CALL :XY Str !Row!
)
for /l %%r in (1 1 %Col%)do (
　for /l %%c in (1 1 %Row%)do (
　　if not defined S%%c_%%r set "S%%c_%%r=　"
　　set "SL%%r=!S%%c_%%r! !SL%%r!"
　)
　echo\!SL%%r!
)
pause
goto :eof

:XY Str %Row%
if "!%1:~%C%,1!" neq "" (
　set/aC+=1
  if !C!0 gtr %Col%0 set/aCol=C
　set "S%2_!C!=!%1:~%C%,1!"
　goto :XY
)
复制代码