批处理好玩的彩色批处理

lhjoanna

findstr还有一招/a，一直不知道怎么用，今天写着玩玩，出现了各种各样的颜色，我想应该是这样用吧。大致改编了一下，娱乐一下。对此精通的高手还望奉献好的代码哦~~~

1. @echo off
   
2. set /p name1=输入你爱的人的名字:
   
3. set /p name2=输入你恨的人的名字:
   
4. set /p=i love you!<nul>%name1%
   
5. set /p=i hate you!<nul>%name2%
   
6. for %%a in (0 1 2 3 4 5 6 7 8 9 a b c d e) do (
   
7.     for %%b in (0 1 2 3 4 5 6 7 8 9 a b c d e) do (
   
8.         findstr /a:%%a%%b ! "%name1%*" "%name2%*"
   
9.     )
   
10. )
    
11. del /q "%name1%*" "%name2%*"
    
12. pause>nul

复制代码

大家运行看看哦！！！（名字最好是两个字哦，其他的可能不整齐~~~）

BBCC

怎么我的是再响然后乱码？

已解决，是不支持纯数字...

[ 本帖最后由 BBCC 于 2008-11-10 21:22 编辑 ]

jellyhk

就2个字节在整齐啊！

Batcher

不支持纯数字？能否给出你的测试用例和测试结果？

weiyepin

是蛮好玩的，呵呵

ljl

下载看看 谢谢楼主了^_^'可能是好东西吧

ciciwenwen

不错！！顶了！！！！

000hong000

楼主你这个作品不错，很好玩！！

noname_hero

不错，挺好看的，楼主真行

haolongo

呀.没搞好呀..我第一次输入一个a 在输入2就出问题了.你不说2字节吗?

Batcher

出现了啥子问题？截图上来看看？

cui0029

很好玩！楼主真牛！顶一个！

ynkm0871

这个小玩意很有点意思，感谢并支持！

zljzsmzzx

我也来学学findstr

qq43142691

我也发个 cn-dos 联盟的

1. @echo off
   
2. title by [email=jvive@cn-dos.net]jvive@cn-dos.net[/email] date: 08-04-03
   
3. set "a=abcdefg 哈哈o(∩_∩)o"
   
4. >%tmp%\tmp.vbs echo MyVar=MsgBox ("直接浏览点是,手动输入点否,退出点取消", 4163, "十六进位颜色属性配置演示"):Wscript.Echo MyVar
   
5. for /f "delims=*" %%i in ('cscript.exe //nologo %tmp%\tmp.vbs') do set MyVar=%%i
   
6. pushd %tmp%&del/q "%a%?" tmp.vbs 2>nul
   
7. if "%MyVar%"=="2" goto:eof
   
8. if "%MyVar%"=="6" goto:browse
   
9. if "%MyVar%"=="7" goto:input
   
10. goto :eof
    
11. :browse
    
12. set col=0 1 2 3 4 5 6 7 8 9 a b c d e f
    
13. title 点击右键暂停,左键继续
    
14. for %%a in (%col%)do for %%b in (%col%)do for %%c in (%col%)do for %%d in (%col%)do (
    
15. call:JV %%a%%b%%c%%d "%a%"
    
16. echo ---- 配色属性:%%a%%b%%c%%d
    
17. )
    
18. pause>nul&exit/b
    
19. :input
    
20. set "color="
    
21. title 请输入一个位16进制数(1-4位)[例如1EAf或2a]:
    
22. set /p color=
    
23. if not defined color goto:input
    
24. echo 颜色属性: %color%
    
25. set/p=颜色演示:<nul
    
26. call:JV %color% "%a%"
    
27. echo.
    
28. title 按任意键继续...
    
29. pause>nul
    
30. goto:input
    
31. :JV
    
32. set/p=<nul>"%~2"
    
33. findstr /a:%1 .* "%~2?" 2>nul

复制代码