批处理特效之“看我倒背如流”

batman

&&相信大家都知道倒背如流的意思吧，下面我们就用批来模拟对文本的倒背特效：

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. rem 因论坛处理不了制表符，请将下面tab=后面的空格替换为制表符再运行代码
   
4. set "tab=        "
   
5. for /l %%a in (10000,1,11000) do (
   
6.   set "tg=!tg!"&set "k=!k! "
   
7.   set "str=%%a"&set "code=!str:~1!!code!"
   
8. )
   
9. echo,&echo,┌────────────────────┐
   
10. echo,&echo,└────────────────────┘
    
11. echo,%tab%%tg:~,24%
    
12. for /l %%a in (1,1,20) do (
    
13.   set /a bf=%%a*5,n=40-2*%%a
    
14.   set /p=!tg!│<nul
    
15.   for /l %%b in (1,1,%%a) do set /p=■<nul
    
16.   for %%i in (!n!) do set /p=!k:~,%%i!│文本阅读中，请稍等...!bf!%%<nul
    
17.   for /l %%c in (1,1,2000) do echo,>nul
    
18. )
    
19. cls&&echo,&echo,下面且看我倒背如流：&echo,
    
20. for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
    
21.   set "_%%a=%%b"&set /a n=%%a&echo,
    
22. )
    
23. for /l %%a in (%n%,-1,1) do (
    
24.   set /a s=n-%%a+1,m=s*10+12
    
25.   for /l %%b in (1,1,!s!) do echo,
    
26.   for %%b in (!m!) do echo,%tab%!tg:~,%%b!
    
27.   if defined _%%a (
    
28.     set "str=!_%%a!!_%%a!!_%%a!!_%%a!%code%"
    
29.     set /a sw=1!str:~4000,4! %% 10000
    
30.     for /l %%b in (1,1,!sw!) do (
    
31.       set /a kw=sw-%%b
    
32.       for %%c in (!kw!) do set /p=!k:~,%%c!!_%%a:~-%%b,%%b!<nul
    
33.       for /l %%c in (1,1,200) do echo,>nul
    
34.       set /p=!tg!<nul
    
35.     )
    
36.   )
    
37. )
    
38. pause>nul
    

复制代码

暂只适用于每行少于80个字符的纯英文文本，测试文本a.txt如下：

1. 
   
2. I loved you, and I probably still do,
   
3. 
   
4. And for a while the feeling may remain...
   
5. 
   
6. But let my love no longer trouble you,
   
7. 
   
8. I do not wish to cause you any pain.
   
9. 
   
10. I loved you; and the hopelessness I knew,
    
11. 
    
12. The jealousy, the shyness - though in vain -
    
13. 
    
14. Made up a love so tender and so true
    

复制代码

523066680

闲情雅致啊。
很自然。做点阵渐显应该比cls刷新快。
已经不再用批处理弄这些了

112

6666666666666