lengmoke

@echo off
Setlocal EnableDelayedExpansion
set maxlength=0
for /f "delims=" %%i in (a.txt) do ( 
    call :len "%%i" length
    set "number=!number! !length!" 
    set "list=!list!%%i"
)
for /l %%i in (1,1,%maxlength%) do (
    set /a x=0
    set "temp="
    for %%j in (%number%) do (
        set /a m=!x!+%%i-1
        call set temp=!temp!%%list:~!m!,1%%
        set /a x+=%%j
    )
    echo !temp!
)
exit
:len
set "strs=%~1" & set /a n=0
:loop
if defined strs (
    set strs=%strs:~1%
    set /a n+=1 
    goto:loop
)
if %maxlength% lss %n% (
    set maxlength=%n% 
)
set %2=%n%
复制代码