CrLf

看错题意，算了...

[ 本帖最后由 zm900612 于 2011-3-12 13:01 编辑 ]

CrLf

哈哈，这题么，全是单字节字符，正好用上cmd /u

@echo off&setlocal enabledelayedexpansion
find /v "" a.txt
echo 以下为纵横转换结果：
for /f "skip=1 delims=:" %%a in ('(type a.txt^&echo;^)^|findstr /o .*') do (
        set /a ho=%%a-2,l=ho-last-2,last=ho,"max+=(max-l)*((max-l)>>31)"
        set o=!o!!ho! 
)
set n=1
for /f "delims=" %%a in ('cmd /u /c type a.txt^|more') do (
        for /f "tokens=1,2" %%x in ("!n! !o!") do (
                set .!n!=!.%%x!%%a
                set /a n+=1,m+=1
                if !m!==%%y (
                        for /l %%z in (!n! 1 %max%) do set ".%%z=!.%%z! "
                        set o=!o:* =!&set /a n=1,m+=2
                )
        )
)
for /l %%a in (1 1 %max%) do echo [!.%%a!]
pause
复制代码

[ 本帖最后由 zm900612 于 2011-3-13 12:31 编辑 ]