[关闭]
@cyysu 2017-10-12T10:21:09.000000Z 字数 641 阅读 933

Bat-实战基础篇(八)

  • 时间:2017年10月11日
  • 作者:Kali
  • 邮箱:cyysu.github.io@gmail.com/2869905223@qq.com/微信lwyx1413
  • 版本:4.0
  • 描述:批处理实战基础篇八,本次主要给出几个栗子。

Bat系列教程


数码雨

  1. @echo off&mode con cols=42 lines=20&color 0c
  2. setlocal enabledelayedexpansion
  3. title 数码雨-zw19750516
  4. set code=1 2 3 4 5 6 7 8 9 a b c d e f 0 &set m=1&set v=1
  5. :: 字符串替换操作 就是将空格替换为没有空格的
  6. set code1=!code: =!
  7. :begin
  8. :: %random% 为变量 %%表示取余数
  9. set /a a=%random%%%48
  10. set a=!code:~%a%,1!
  11. set str%m%=!str%m%!%a%
  12. set /a n+=1
  13. if %n% lss 40 goto begin
  14. set /a x+=1
  15. :: 条件满足替换颜色背景
  16. if %x% equ 20 call :lp
  17. cls
  18. for /l %%i in (%m%,-1,%v%) do echo !str%%i!
  19. set /a m+=1
  20. if %m% geq 20 set /a v+=1
  21. set n=0&goto begin
  22. :: 更改颜色标签
  23. :lp
  24. set /a a=%random%%%15
  25. :: 表示取code1中第%a%位置后的下一个字符
  26. set a=!code1:~%a%,1!
  27. color 0%a%&set x=0

打赏

                    支付宝                                                         微信

微信与支付宝支付

添加新批注
在作者公开此批注前,只有你和作者可见。
回复批注