批处理反向滚动字符串

悬崖之树

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

复制代码

tiandyoin

回复 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

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