Board logo

标题: [特效代码] [已解决]批处理怎么写特效彩字? [打印本页]

作者: abcdshenji    时间: 2011-6-1 20:49     标题: [已解决]批处理怎么写特效彩字?

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

作者: abcdshenji    时间: 2011-6-1 21:46

本帖最后由 abcdshenji 于 2011-6-1 21:48 编辑

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

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

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2