pcl_test

发个纯批的

@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
复制代码