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

[游戏娱乐] 批处理反向滚动字符串

  1. @echo off&setlocal enabledelayedexpansion
  2. mode con cols=45 lines=1
  3. color F4 & title 菜鸟作品@悬崖之树
  4. set str=欢迎来到批处理之家!!
  5. set n=-1
  6. :loop
  7. set /a n+=1
  8. set ostr=
  9. set ostr=!str:~%n%,1!
  10. if defined ostr (
  11.    for /l %%j in (40 -1 0) do (
  12.       for /l %%i in (1 1 %%j) do (
  13.          set "space=!space! "
  14.       )
  15.       set /p=!space!%ostr%<nul
  16.       for /l %%k in (1 1 45) do (ver>nul)
  17. rem 下面一句里的退格符无法显示,但是是存在的,复制到记事本里就看见了。
  18.       set /p=<nul
  19.       set /p=                                             <nul
  20.       set /p=<nul
  21.       set space=
  22.    )  
  23. ) else exit
  24. goto loop
复制代码
时光荏苒||新陈代谢&&涛声依旧||本性难移

回复 1# 悬崖之树


   
@echo off&setlocal enabledelayedexpansion
mode con cols=45 lines=1
color F4 & title 菜鸟作品@悬崖之树
set str=欢迎来到批处理之家!!
set n=-1
:loop
set /a n+=1
set ostr=
set ostr=!str:~%n%,1!
if defined ostr (
   for /l %%j in (4000 -1 0) do (
      for /l %%i in (1 1 %%j) do (
         set "space=!space! "
      )
      set /p=!space!%ostr%<nul
      for /l %%k in (1 1 4500) do (ver>nul)
rem 下面一句里的退格符无法显示,但是是存在的,复制到记事本里就看见了。
      set /p=------------------------------------------------<nul
      set /p=                                                <nul
      set /p=------------------------------------------------<nul
      set space=
   )  
) else exit
goto loop

帮你改下一下,但还是有问题,只看到"欢"字

TOP

返回列表