[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[游戏娱乐] 光棍节批处理动画雏形

  1. ::code by youxi01@bbs.bathome.net
  2. ::光棍节无聊,没人陪玩......
  3. ::动画雏形,待完善....
  4. @echo off
  5. setlocal enabledelayedexpansion
  6. for /l %%i in (1 1 70) do set /p=^|<nul
  7. for /l %%i in (1 1 70) do set /p=<nul
  8. set "str1=TO XXX:"
  9. set "str2=或许是上天的安排,给了我一个转身的机会"
  10. set "str3=而就在那转身的瞬间我爱上了你..."
  11. for /l %%i in (1 1 3) do call :ShowStr "!str%%i!"
  12. pause>nul
  13. :TimeDelay 次数
  14. for /l %%i in (1 1 %1) do ver>nul
  15. goto :eof
  16. :GetBytes OBJ
  17. set "var=%~1"
  18. set /a bytes=0,strlen=0
  19. for /l %%i in (0 1 200) do (
  20.    set "var_=!var:~%%i,1!"
  21.    if "!var_!"=="" goto :eof
  22.    if !var_! gtr Z (set /a bytes+=2) else set /a bytes+=1
  23.    set /a strlen+=1
  24. )
  25. goto :eof
  26. :ShowStr str
  27. set "str=%~1"
  28. call :GetBytes "!str!"
  29. for /l %%i in (0 1 !strlen!) do set /p=!str:~%%i,1!<nul& call :TimeDelay 150
  30. ping /n 3 127.1>nul
  31. for /l %%i in (0 1 70) do set /p=<nul
  32. for /l %%i in (0 1 !strlen!) do (
  33.       set test1=!str:~0,-%%i!
  34.       set test2=!str:~-%%i!
  35.       if !test2! gtr Z (set "test1=!test1!^|^|") else set "test1=!test1!^|"
  36.       set /p=!test1!<nul& call :TimeDelay 50
  37.       for /l %%i in (1 1 70) do set /p=<nul
  38. )
复制代码

每发现什么特别啊..
活着就是为了改变世界

TOP

不错,挺有意思

TOP

回个帖  冒个泡

TOP

不错的啊  谢了

TOP

还不错..有点意识.....

TOP

还不错..有点意识.....

TOP

真无聊……

TOP

学习中
..........................

TOP

厉害啊!!!!

TOP

这个有意思?????

TOP

好贴必回,谢谢分享。

TOP

顶啊,真好哦,值得学习啊!!

TOP

其实这个就是set /p的用法
set /p就是等待用户输入
也许你以前接触过的都是
"set /p t=请输入变量:"这样的形式
for /l %%i in (1 1 70) do set /p=^|<nul 就是没有用变量来接受输入的值(nul),表示从空设备读取数据,无需自己输入
结果就是显示70个|

TOP

for /l %%i in (0 1 70) do set /p=<nul
你不是用了这个啊
上次我问你的时候也不好好回答
这个作用我是知道了
但是不知道为什么会这样显示
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

返回列表