[已解决]批处理怎么写特效彩字？

abcdshenji

请大虾们看看下面彩字哪里错了？为什么每行的第一个字都不见了？？感觉是空格处理的有问题。。但是查不出来。。

1. 
   
2. @echo off&mode con Cols=100 Lines=10&Title 侠客行●李白
   
3. Setlocal EnableDelayedExpansion
   
4. set "clr=123456789abcdef"
   
5. for /f "delims=" %%i in ('more +21 "%~nx0"') do set "ln=%%i"&call :lp
   
6. pause>nul&exit
   
7. :lp
   
8. pushd "%tmp%"
   
9. (for /l %%m in (1 1 24) do (
   
10.         ::24为长度最大的行的字数
    
11.         set/p=    <nul>"%tmp%\!ln:~%%m,1!#"
    
12.         call :rnd
    
13.         call,findstr /a:0%%clr:~!rnd!,1%% ".*" "!ln:~%%m,1!#*"
    
14.         del /f "!ln:~%%m,1!#"
    
15.         ping -n 1 127.1>nul
    
16. ))&echo;
    
17. popd
    
18. goto :EOF
    
19. :rnd
    
20. set/a rnd=%random%%%15
    
21. goto :EOF
    
22. ===============Line===================
    
23.            侠客行●李白
    
24. 赵客缦胡缨，吴钩霜雪明。银鞍照白马，飒沓如流星。
    
25. 十步杀一人，千里不留行。事了拂衣去，深藏身与名。
    
26. 闲过信陵饮，脱剑膝前横。将炙啖朱亥，持觞劝侯嬴。
    
27. 三杯吐然诺，五岳倒为轻。眼花耳热后，意气素霓生。
    
28. 救赵挥金槌，邯郸先震惊。千秋二壮士，煊赫大梁城。
    
29. 纵死侠骨香，不惭世上英。谁能书閤下，白首太玄经。
    

复制代码

abcdshenji

自己已经查出来了。。应该是(for /l %%m in (0 1 24) do (。。。

都怪我写的时候没太注意。。又粗心了唉。。

可惜不能删贴。。要不然我自己删了。。不要意思啊浪费论坛的一点空间。。