- @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%
复制代码
|