Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Creat0R,
Цитата:
Пример с отображением в самой консоли
в твоем примере зачищается хистори... давно хотел такое же, но без затирания, вроде нашел:
Код: Выделить весь код
@Echo Off
Setlocal EnableDelayedExpansion

Echo. Процесс запущен
For /L %%i In (1,1,100) Do (
  Call :SHOW %%i Тестирование...
   Ping -n 1 127.0.0.1 >Nul
)
Echo.
Echo.
Echo. Процесс завершен
Echo.
Pause

Exit

:SHOW
Set $COLS=70

If Not Defined $P (
  Set /A $P=0
  Set $X=[
  For /L %%a In (1,1,%$COLS%) Do Set $X=!$X!.
  Set $X=!$X!]
  For /L %%a In (1,1,%$COLS%) Do Set $X=!$X!
  Set $X=!$X!
  Echo.
  <Nul Set /P $X=!$X!
)
Set $X=
Set /A $D = (%$COLS%*%1)/100 - (%$COLS%*%$P%)/100
If %$D% GTR 0 For /L %%a In (1,1,%$D%) Do Set $X=!$X!#
If %1 EQU 100 Set $X=!$X!]
<Nul Set /P $X=!$X!
Title %2%1%% Done
Set $P=%1

GoTo :EOF
Это сообщение посчитали полезным следующие участники:

Отправлено: 07:57, 03-12-2008 | #505