发个纯批的- @echo off&setlocal enabledelayedexpansion
- for /f "delims=h" %%a in ('cmd /u /c echo 栈') do set "BS=%%a"
- echo;1. 单行显示进度效果
- for /l %%a in (1 1 100) do (
- set /p=%%a
- set /p=%BS%%BS%
- >nul ping -n 1 0
- )<nul
- echo;
- echo;2. 单行跑马灯效果
- set BST=
- for /l %%a in (1 1 50) do set "stng=!stng!%%a "
- for /l %%a in (1 1 52) do set "BST=!BST!%BS%"
- set "stng=%stng:~,-2%"
- <nul set /p=^>!stng:~,50!^<
- >nul ping -n 2 0
- for /l %%a in (0 1 139) do (
- set /p =%BST%
- set /p=^>!stng:~%%a,50!^<
- >nul ping -n 1 0
- )<nul
- >nul ping -n 2 0
- for /l %%a in (-51 -1 -189) do (
- set /p=%BST%
- set /p=^>!stng:~%%a,50!^<
- >nul ping -n 1 0
- )<nul
- echo;
- echo;3. 单行显示时间效果
- set BST=
- for /l %%a in (1 1 9) do set "BST=!BST!%BS%"
- for /l %%a in (1 1 5) do (
- set /p=!time:~,8!
- set /p=%BST%
- >nul ping -n 2 0
- )<nul
- echo;
- echo;4. 渐显字符
- set BST=
- for /l %%a in (0 1 20) do set "BST=!BST!%BS%"
- set str=www.bathome.net
- set n=-1
- for /l %%a in (0 1 14) do set/a n+=1&set _!n!=*&set #!n!=!str:~%%a,1!&set /p=!_%%a!<nul
- >nul ping -n 2 0
- :loop
- set/a m=%random%%%15
- if not defined @!m! (
- set @!m!=!m!
- set "s=!s!!m! "
- set/a t+=1
- if !t! equ 15 goto :main
- )
- goto loop
- :main
- for %%a in (%s%) do (
- set /p=%BST%
- set _%%a=!#%%a!
- for /l %%b in (0 1 14) do set /p=!_%%b!
- >nul ping -n 1 0
- )<nul
- >nul ping -n 2 0
- for %%a in (%s%) do (
- set /p=%BST%
- set "_%%a=*"
- for /l %%b in (0 1 14) do set /p=!_%%b!
- >nul ping -n 1 0
- )<nul
- echo;
- pause
复制代码
|