[NiOl]

Меня удивила именно сама форма записи, выглядит как перенаправление потока от комманды к команде, но не содержит обязательного разделителя "|".
Вобщем увидел такое впервые. С остальным все понятно и так (/? пользоваться умеем)

[NiOl]

а уменя всегда была мечта, хотяб как игрушку крутящийся курсор зделать, нельзя ли? хотя я не знаю даже, ну хотяб sleep и потом выход? или может чтё полезное придумать? # idebug \|/-\|/-..... »

...пользуясь нарисованным выше...
...пришлось повозиться со спецсимволами - в предпоследней строке значок [^] очень нужен!!!
и еще, символов "забой" в StatusText должно быть не меньше чем симвлов самого текста, так что можно заготовить 79-символьную строку из символов #8 и тогда StatusText можно менять динамически, незабывая выравнивать ее пробелами на 79-символьную границу... а вообще эти приколы не позволяют параллельно осуществлять полноценный вывод инфы на экран (его конечно можно эмулировать через буфер и команду CLS, но сие есть "извращения"), а вот игра с названием окна - вещь сильная!

Заодно вопрос - есть встроенные средства получать управление не вводом целой строки (как set /P) а по одному символу?

Код:

@Echo off
SetLocal EnableExtensions
SetLocal EnableDelayedExpansion

set StagePos=1
set StageLen=4
set CurStages="-\|/"
set StatusText=QWERTYUIOPing...

:loop
call :CurRotate
rem do Something useful...

Goto loop
Exit

:CurRotate
set Cur=!CurStages:~%StagePos%,1!
if %StagePos%==%StageLen% (set StagePos=1) else (set /a StagePos+=1)
set /p None=%StatusText%^%Cur%<nul
Exit /b

[gora]

хотяб как игрушку крутящийся курсор зделать, нельзя ли? »

Так пойдет?

Код:

@Echo Off
Echo Курсор врашается
For /L %%a In (1,1,10) Do (
	For %%I In (^| / - \) Do (
		Set /p X=%%I<Nul
		Call :Wait
	)
)
Echo.
Echo Курсор остановлен
Pause>nul
Exit

:Wait
rem Здесь варианты задержки для изменения скорости вращения
For /L %%a In (1,1,10000) Do Set a=1
rem nircmdc wait 100
rem Ping -n 1 localhost>Nul
GoTo :EOF

[NiOl]

:Wait rem Здесь варианты задержки для изменения скорости вращения »

можно вызывать типовую процедуру таймера (В начало пакетного файла ОБЯЗАТЕЛЬНО включить код SetLocal EnableExtensions):

Код:

:Timer
set ExitCode=0
set CTime=%Time:,=%
set CTime=%CTime::=%
if "%Timer%"=="" set /A Timer=%CTime%+%1
if /I %Timer% GEQ 24000000 set /a %CTime%+=24000000
if /I %Timer% LEQ %CTime% (
set ExitCode=1
set /a Timer+=%1
if /I %Timer% GEQ 24000000 set /a %Timer%-=24000000
)
exit /b %ExitCode%

Вызывать так call :Timer XX, где XX - задержка в сотых долях секунды,
а проверять, прошло ли нужное время, через переменную %ErrorLevel% - ноль означает, что время еще не наступило и можно пока еще что-нить сделать полезное.
т.е. этот таймер без ожидания!
... что-то наколбасил тут, вобщем перед использованием смотрим пример: На экран будет выводится следующее пороговое значение таймера ТОЛЬКО когда таймер срабатывает!

Пример использования:

Код:

@Echo off
SetLocal EnableExtensions

:loop
call :Timer 20
if ErrorLevel 1 Echo %Timer%
Goto loop

:Timer
set ExitCode=0
set CTime=%Time:,=%
set CTime=%CTime::=%
if "%Timer%"=="" set /A Timer=%CTime%+%1
if /I %Timer% GEQ 24000000 set /a %CTime%+=24000000
if /I %Timer% LEQ %CTime% (
set ExitCode=1
set /a Timer+=%1
if /I %Timer% GEQ 24000000 set /a %Timer%-=24000000
)
exit /b %ExitCode%

[Iska]

… и можно пока еще что-нить сделать полезное.

Вот с этим-то как раз и проблема. Я около полугода назад, наткнувшись на пост коллеги amel27, возрадовался, пошёл от него танцевать («крутилки», наподобие выложенной выше, простые проценты, учёт ширины консоли и т.п.)… Всё было замечательно. Работало изумительно. До тех пор, пока, перед выкладыванием, не понадобилось снабдить код реальным примером, где сия функциональность будет не просто сбоку припёка, а, вот так, что называется, — до зарезу. И я ничего подходящего так и не смог найти. Ибо команды, утилиты и пакетные файлы практически не реализуют частичную функциональность, подобно языкам высокого уровня (если её не вводить искусственно; скажем, копируя не одной командой «copy a:\*.txt b:\*.*», а перебирая ручками в «for …»), наподобие VBScript'ового «For Each objFile In objFSO.GetFolder(…).Files». То есть, для визуального отображения куда как более потребна простая «крутилка» или не вычисленный, а простой «безлимитный» индикатор прогресса (т.е. просто отображающего, что процесс идёт) посредством той же вышеозвученной команды «<NUL SET /P strTemp=.».

Оказалось, что нарисовать индикатор прогресса проще, нежели найти, где он действительно нужен в пакетных файлах.

[amel27]

нарисовать индикатор прогресса проще, нежели найти, где он действительно нужен в пакетных файлах »

не с той стороны подходите - не задачи надо под фичи искать, а наоборот...
кста, был еще пример применения: http://forum.oszone.net/thread-137412.html

[semiono]

Я в восторге! Невероятно!
Одно замечание или пожелание, хочеться чтобы не просто крутился а двигался по строке >...../
Но тут всякие фантазии могут быть и вариации. Я бы представил это как хм... постепенное заполнение
строки текстом и в конце строки всегда крутящийся курсор!
Признаюсь, я видел это в Gentoo загрузочном диске, и это было очень красиво, так меня и не оставило желание, такое повторить но не под башем.
Там как это обычно бывает выводились команды загрузки всяких устройств плавным разворачиванием строк,
закрывающихся крутилкой, как бы она рисует эти строки.
Если не влом подумайте ещё, хоть и безделица но блин таг приятно! Причём это ещё раз доказывает,
что CMD не уступает скриптам под баш.

Ещё офтоп, подскажите, можно ли буффер обмена использовать в коммандах типа @echo или > и >>
Я имею ввиду, то что в виндоус в GUI делаем когда Select All / Copy и потом это вставить через "%1" какнибудь? Или может как-то иначе?

[gora]

semiono, так пойдет?

Код:

@Echo Off
Setlocal EnableDelayedExpansion
Rem Длина строки
Set len=45
Rem Строка
Set string="Демонстрация ползущего и вращающегося курсора"

For /L %%a In (1,1,%len%) Do (
	For %%I In (^| / - \) Do (
		Set /p X=%%I<Nul
		Call :Wait
	)
Set /p X=!string:~%%a,1!<Nul
)
Echo.
Echo Курсор остановлен
Pause>nul
Exit

:Wait
rem Здесь варианты задержки для изменения скорости вращения
For /L %%a In (1,1,3000) Do Set a=1
rem nircmdc wait 100
rem Ping -n 1 localhost>Nul
GoTo :EOF

[semiono]

нецензурщина

Кстати, вопрос, а что делать когда квадраты из форума копируешь? Адекватно ли это вставиться в блокнот? И почему у меня интересно кодировка гонит,
я вообще думал у моей виндоус (WinXP SP2 Eng) проблем нету?
1251 =c_1251.nls 1252 =c_1251.nls - тут ли это?

[gora]

Адекватно ли это вставиться в блокнот? »

Нет. Блокнот не поддерживает DOS кодировку. Уже писал про это, прочтите предыдущую страницу.