@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===================
	   侠客行●李白
赵客缦胡缨，吴钩霜雪明。银鞍照白马，飒沓如流星。
十步杀一人，千里不留行。事了拂衣去，深藏身与名。
闲过信陵饮，脱剑膝前横。将炙啖朱亥，持觞劝侯嬴。
三杯吐然诺，五岳倒为轻。眼花耳热后，意气素霓生。
救赵挥金槌，邯郸先震惊。千秋二壮士，煊赫大梁城。
纵死侠骨香，不惭世上英。谁能书閤下，白首太玄经。
复制代码