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