中国DOS联盟

原贴发表于http://bbs.verybat.cn/viewthread.php?tid=11742&highlight=%2Bzw19750516

@echo off&mode con cols=40 lines=26&color 1f

:: 　　　　沁园春.雪－毛泽东

:: 　北国风光，千里冰封，万里雪飘。 

:: 　望长城内外，惟余莽莽； 

:: 　大河上下，顿失滔滔。 

:: 　山舞银蛇，原驰蜡象，欲与天公试比高。 

:: 　须晴日，看红装素裹，分外妖娆。 

:: 　江山如此多娇，引无数英雄竞折腰。 

:: 　惜秦皇汉武，略输文采； 

:: 　唐宗宋祖，稍逊风骚。 

:: 　一代天骄，成吉思汗，只识弯弓射大雕。 

:: 　俱往矣，数风流人物，还看今朝。

title 逐字读词

:begin

echo.&echo.

set /a n+=1,m=-1

for /f "skip=%n% delims=:: " %%i in (%~fs0) do set str=%%i&goto lp

:lp

set /a m+=1

call,set var=%%str:~%m%,1%%

call,set /p=%var%<nul

if defined var (for /l %%i in (1,1,4000) do echo.>nul&goto lp)

if %n% lss 11 goto begin

pause>nul

经典的就是经典，高手就是高手

厉害，学习了……

执行不了,肯定是小毛病哈,学习思路了

Last edited by qingfushuan on 2008-6-20 at 03:14 PM ]

@echo off&mode con cols=40 lines=26&color 1f
:: 　　　　沁园春.雪－毛泽东
:: 　北国风光，千里冰封，万里雪飘。
:: 　望长城内外，惟余莽莽；
:: 　大河上下，顿失滔滔。
:: 　山舞银蛇，原驰蜡象，欲与天公试比高。
:: 　须晴日，看红装素裹，分外妖娆。
:: 　江山如此多娇，引无数英雄竞折腰。
:: 　惜秦皇汉武，略输文采；
:: 　唐宗宋祖，稍逊风骚。
:: 　一代天骄，成吉思汗，只识弯弓射大雕。
:: 　俱往矣，数风流人物，还看今朝。
title 逐字读词
:begin
echo.&echo.
set /a n+=1,m=-1
for /f "skip=%n% delims=:: " %%i in ('type %0') do set str=%%i&goto lp
:lp
set /a m+=1
call,set var=%%str:~%m%,1%%
call,set /p=%var%<nul
if defined var (for /l %%i in (1,1,4000) do echo.>nul&goto lp)
if %n% lss 11 goto begin
pause>nul

请指导一下下面的内容
call,set var=%%str:~%m%,1%%
call,set /p=%var%<nul
if defined var (for /l %%i in (1,1,4000) do echo.>nul&goto lp)
if %n% lss 11 goto begin

call,set var=%%str:~%m%,1%%
call,set /p=%var%<nul
if defined var (for /l %%i in (1,1,4000) do echo.>nul&goto lp)
if %n% lss 11 goto begin

call,set var=%%str:~%m%,1%%，这是逐行逐字符截取命令，%str%是行的变量，而%m%是从0一直向上递加的(每次加1)，这样就实行了对词的每行的逐字截取并赋值给变量%var%；
call,set /p=%var%<nul，echo 是换行输出命令，而set /p是不换行输出命令，当一行中还在截取字符时，新的字符总是紧跟输出的最后一个字符后被输出；
if defined var (for /l %%i in (1,1,4000) do echo.>nul&goto lp)这句的意思是如果存在不为空的变量%var%刚进行对程序延迟设定时间后再继续运行；
if %n% lss 11 goto begin，如果变量n(也是每次递加1)的值小于11(词有11行)，则返回begin标签处进行下一轮循环。

完全没一点新鲜内容。就不要写什么原创了。