[文本处理] [已解决]批处理动态逐字显示一副对联

baiyuheitu

更新：我自己写了个，对联是随意的文字，请高手批评指正，水平有限，有很多不足之处！代码如下：

 
@echo off&setlocal enabledelayedexpansion
title 对联显示！
mode con lines=25 cols=60
set str=年年有余,家事,国事,天下事,风声,雨声,读书声
set hengpi=%str:~0,4%
set xialian=%str:~5,9%
set shanglian=%str:~15,9%
set c=0
for /l %%i in (1 1 4) do (
echo.&echo.&&set /a c+=1
set /p=                    !hengpi:~0,%%i!<nul
ping 127.1 -n 1 >nul
if !c! lss 4 cls
)
echo.&echo.&echo.
for /l %%j in (0 1 8) do (
echo        !xialian:~%%j,1!
ping 127.1 -n 1 >nul
)
cls&echo.&echo.&echo                      年年有余&echo.&echo.&echo.
for /l %%k in (0 1 8) do (
echo                                      !shanglian:~%%k,1!
ping 127.1 -n 1 >nul
)
cls&echo.&echo.
echo                  年 年 有 余
echo                家            风
echo                事            声
echo                 ，            ，
echo                国            雨
echo                事            声
echo                 ，            ，
echo                天            读
echo                下            书
echo                事            声
pause >nul
复制代码

原来部分：如何设计一批处理，显示一对联，左边一列，右边一列，上边横批。

[ 本帖最后由 baiyuheitu 于 2009-4-30 10:51 编辑 ]

baiyuheitu

看的脑袋都大了！有点迷惑！

everest79

@echo off
set str=四四四四ABCDEFG1234567
set "line=                    "
set "sleep=ping 127.1 -n 2 >nul"
echo.
call :split  4 7  col   
call :split 11 7  col "cls&echo."
call :split  0 4 line "cls"
pause>nul
goto :eof

:split
set /a _tmp1=%1+%2-1,count=0

for /l %%a in (%1,1,%_tmp1%) do (
set /a count+=1
%~4

if %~3 == col (
call call set %3%%count%%=%%%%%3%%count%%%%%%%line%%%str:~%%a,1%%
    if %~1 == 4 (
	call :cout %%count%%  %%count%% %~3
    ) else (
	call :cout 1          7         %~3
    )
) else (
call set %3=%%%3%%   %%str:~%%a,1%%
call :cout 1          7         col "echo %%%3%%"
)

%sleep%
)
goto :eof


:cout
%~4
for /l %%i in (%1,1,%2) do (
call echo.%%%3%%i%%
)
goto :eof
复制代码

namejm

　　在顶楼编辑帖子，把你的最新要求写到顶楼去。为了方便区分，最好说明哪些是改动过的内容。

baiyuheitu

如何将帖子更新到顶楼？？

Batcher

请把所有需求全部更新到顶楼

xxx

对得不工整啊...

baiyuheitu

谢谢啊，我现在想让上下联及横批滚动显示如何设计！

Batcher

@echo off
echo   批处理之家
echo 违          版
echo 规          规
echo 标          面
echo 题          前
echo 必          人
echo 锁          人
echo 无          平
echo 疑          等
pause
复制代码