yslyxqysl

@echo off
setlocal ENABLEDELAYEDEXPANSION
echo ┌──────────────────────────────┐
for /f "delims=" %%i in (a.txt) do set i=%%i&&call :aaa
echo └──────────────────────────────┘
pause>nul&&exit
:aaa
if not "%tp2%"=="" echo ├──────────────────────────────┤
:bbb
if not "!i:~0,%tp%!"=="%i%" set /a tp+=1&&goto bbb
set /a spacenum=60-%tp%
if %spacenum% lss 0 set spacenum=0
set tp=
set space=
for /l %%t in (1 1 %spacenum%) do set space= !space!
echo │%i%%space%│
set tp2=aaa
goto :eof
复制代码

哈哈，先下手为强！！（仅做到输进表格）

[ 本帖最后由 yslyxqysl 于 2008-10-5 15:39 编辑 ]

yslyxqysl

@echo off&&setlocal ENABLEDELAYEDEXPANSION
for /f "delims=" %%e in (a.txt) do set e=%%e&&call :abc
set /a tp=longest%%2
if %tp%==1 set /a longest+=1
set /a tp=%longest%/2
for /l %%m in (1 1 %tp%) do set heng=─!heng!
echo ┌%heng%┐
for /f "delims=" %%i in (a.txt) do (
set i=%%i
if not "!tp2!"=="" echo ├%heng%┤
set tp=
call :aaa
)
echo └%heng%┘&&pause>nul&&exit
:abc
if not "%tp%"=="" (if not "!e:~0,%tp%!"=="%e%" set /a tp+=1&&goto abc) else ^
set /a tp+=1&&goto abc
if "%longest%"=="" (set longest=%tp%) else if longest gtr %tp% set longest=%tp%
goto :eof
:aaa
if not "!i:~0,%tp%!"=="%i%" set /a tp+=1&&goto aaa
set /a spacenum=%longest%-%tp%
if %spacenum% lss 0 set spacenum=0
set space=&&set tp=
for /l %%t in (1 1 %spacenum%) do set space= !space!
echo │%i%%space%│&&set tp2=aaa&&goto :eof
复制代码

超级复杂版

[ 本帖最后由 yslyxqysl 于 2008-10-5 17:54 编辑 ]