» Задачи на bat-файлах 7

levn
Цитата:

как вывести в лог файл время выполнения команд батником.

для начала его надо подсчитать

Код: Set /a Time#s=((0%Time:~0,1%)*600 + (%Time:~1,1%)*60 + (%Time:~3,1%)*10 + (%Time:~4,1%))*60 + (%Time:~6,1%)*10 + (%Time:~7,1%)

rem тут вписывается то, время исполнения чего надо померить

Set /a Time#E=((0%Time:~0,1%)*600 + (%Time:~1,1%)*60 + (%Time:~3,1%)*10 + (%Time:~4,1%))*60 + (%Time:~6,1%)*10 + (%Time:~7,1%) - %Time#S%
echo spoiled %Time#E% sec > logfile

Цитата:

king_stiven
Вот небольшой код у себя проверил, делает как надо )

Вот потестил, но все время он срабатывает на истину, т.е. снова валится в один каталог

Код:
S:\work>(
if "94001060509060509" == "94001060509060509" (move /Y S:\work\in\94001060509060509.dbf S:\work\out1 ) else (move /Y S:\work\in\94001060509060509.dbf S:\work\out2 )
pause
)
Для продолжения нажмите любую клавишу . . .

S:\work>(
if "94001080509080509" == "94001080509080509" (move /Y S:\work\in\94001080509080509.dbf S:\work\out1 ) else (move /Y S:\work\in\94001080509080509.dbf S:\work\out2 )
pause
)
Для продолжения нажмите любую клавишу . . .

S:\work>(
if "94001256" == "94001256" (move /Y S:\work\in\94001256.DBF S:\work\out1 ) else (move /Y S:\work\in\94001256.DBF S:\work\out2 )
pause
)

TsAndr
Не надо было создание коротких имён файлов запрещать.

Хорошо, можно ли как то узнать длину имени файла? или уже все, делать на VB скриптах?

Добрый день

700 страниц к чтению к сожалению не осилил.
Подскажите пожалуйста как написать бантик, который будет смотреть файлы в директории и удалять файлы определенные файлы дата создания которых больше месяца назад от текущей даты?

ashtroy
В шапке
Работа с текстом, датой, и файлами »
http://forum.ru-board.com/topic.cgi?forum=62&topic=17154&start=379&limit=1&m=1#1

Почитал попробовал ,ч естно говоря не получилось.
Я изменил
"%fgh%" created more than 14 days ago на erase
но файлы не стёрлись

ashtroy
Попробуй сначала без erase , если показывает правильно, значит дело в erase, если неправильно, значит выкладывай сюда скопиованное своё из батника. чтоб посмтреть ошибку.
команнду echo тоже убирать надо.

Я пробовал сначала все как указанно в исходном варианте, окно с сообщением о сроке в 30 дней выводится

vbs я не трогал, играю с батником

вот примерно что получилось



Добавлено:
@echo off
for %%a in (*.*) do (
set "fgh=%%a"
call :compare_crdate
)
goto :eof
:compare_crdate
cscript timediff.vbs "%fgh%"
if %errorlevel% gtr 30 echo "%fgh%" erase

if %errorlevel% gtr 30 erase "%fgh%"
не забудь ключи к erase , смотри справку по ней

@echo off
for %%a in (*.*) do (
set "fgh=%%a"
call :compare_crdate
)
goto :eof
:compare_crdate
cscript timediff.vbs "%fgh%"
if %errorlevel% gtr 30 erase /Q /F "%fgh%"

не стирает

с -q -f тоже не стирает

убери @echo off в конце поставь pause, запусти батник, скопируй и выкладывай сюда.
Важно: копируя батник через буфер обмена из форума не забывайте удалять пробелы в конце каждой строки, т.к. в некоторых случаях из-за этого программа будет работать неправильно!!!

king_stiven ключи к erase там ни при чем - %errorlevel% почему-то всегда равен нулю
проверьте timediff.vbs что-ли, может при выносе на форум чего глюкнуло

wolf0425
у меня не равен нулю, да и у игоря_андреева, чей батник я привёл-тоже.

подскажите пожалуйста, как с помощью bat файла вызвать диалоговое окно свойства необходимого файла???

а так же возможно ли определенному файлу без открытия свойсв - безопастность присвоить полный доступ для группы администраторы полный доступ???

Может вдруг кому пригодится, скрипт для определения даты создания файла, вне зависимости от региональных настроек.
%file1% - файл у которого надо узнать дату.
dl - переменная со временем
Вывод даты в формате: 20090729124021(YYYYMMDDHHNNSS)

Код:
echo set file = CreateObject("Scripting.FileSystemObject").GetFile(WScript.Arguments.Item(0)) >df.vbs
echo s=Cstr(Year(file.DateCreated))+Cstr(Right("00" ^& Month(file.DateCreated),2))+Cstr(Right("00" ^& Day(file.DateCreated),2))+Cstr(Right("00" ^&Hour(file.DateCreated),2))+Cstr(Right("00" ^&Minute(file.DateCreated),2))+Cstr(Right("00" ^&Second(file.DateCreated),2)) >>df.vbs
for /f "delims=" %%a in ('cscript //nologo df.vbs %file1%') do set dl=%%a

DeadAnarchist
По второму вопросу - subinacl /file %path% /grant="DOMAIN\Domain Admins"=F

Цитата:

subinacl

точно так называется????
у меня нет такого файла

Стандартная - CACLS

Цитата:

точно так называется????
у меня нет такого файла

Входит в состав Windows Resource Kit
http://download.microsoft.com/download/8/e/c/8ec3a7d8-05b4-440a-a71e-ca3ee25fe057/rktools.exe

Мне дали написать простенький Bat - файл:
Разработать командный файл,который будет выполнять след. задачу
в цикле с интервалом в 60 сек проверять наличие файла в каталоге с:\01\ с именем test.txt. При наличии файла отправить сообщение на ПК R02 с текстом "Есть файл" и продолжать проверку.
На вашем форуме мне помогли
@echo off
:slabel1
if exist "c:\01\test.txt" (msg * /time:59 /server:R02 /W "Есть файл!")
ping -w 1000 -n 61 127.0.0.1
goto:slabel1

Но сообщение которое выводится не на русском,а на каких то непонятных символах
Мне еще нужно использовать для поcылки сообщения Net send,а для цикла Pause,sleep (или еще что то другое)
Заранее спасибо!

Слова "Есть файл!" напишите в DOS режиме.
Откройте файл Far'oм (F4) поменяйте режим на DOS (F8) и будет нормальным русским языком отправлять.

всем привет.
подскажите пожалуйста как организовать цикл в моём случае ?
есть url.txt - задача пройтись по нему и после выкачивания конкретного url над файлом лога произвести кое какие манипуляции и затем по следующему url

Цитата:

for /f "tokens=1" %%i in (url.txt) do curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %%i

то что я привёл работает и проверяет url по списку и не проходит дальше.
а как мне сделать что бы выполнялось:

Цитата:

curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %%i
command 1
command 2
command 3
curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %%i

...
спасибо.

Добавлено:
и ещё такой момент
если список url - представлен в виде
http://www.mikrotik.com/thedude.php - как из него получить http://www.mikrotik.com
т.е. начиная с 8-го символа отрезать всю концовку с того места где встречаем первый /



Добавлено:
с циклом вроде помогло вот что

Цитата:

:START
for /f "tokens=1" %%i in (url.txt) do curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %%i
GOTO :NEXT
:NEXT
command1
command2
GOTO :START

с преобразованием URL вопрос всё ещё открытый.

Добавлено:
ещё вопрос - как из вот этой строчки


Цитата:

for /f "tokens=1" %%i in (url.txt) do curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %%i

получить этот самый %%i что бы сделать так
set url=%%i


пробовал делать наоборот

Цитата:

::
set for /f "tokens=1" %%i in (url.txt) do set url=%%i & GOTO :NEXT

::
:NEXT
::
::
curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %url%

но тогда ошибка в первой строчке.

slech


Цитата:

но тогда ошибка в первой строчке.

for используется без set

[more]

Код:
@echo off
setlocal enabledelayedexpansion

for /f "tokens=1" %%i in (url.txt) do set "url=%%i" & call :NEXT
::
::
goto:eof

:NEXT
set "url=%url:*://=%"
call :cut_url_after_slash
curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %url%
goto:eof

:cut_url_after_slash
set "surl=%url:/=%"
if "%surl%"=="%url%" goto:eof
set "cnt=0"
:cut_url_after_slash_cycle
set "char=!url:~%cnt%,1!"
if "%char%"=="/" set "url=!url:~0,%cnt%!" && goto:eof
set /a "cnt=%cnt%+1"
goto:cut_url_after_slash_cycle

smirnvlad
спасибо за скриптик - но есть проблема - он обрезает в url http:// - а мен оно нужно.
и ещё вопросик
как можно в конце вывести

Цитата:

curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %url%
echo link=%initial_url% homepage=%url% >>list.txt

link - это то что из начального файла с URL
homepage - обрезаный url - соответсвующий homepage.

спасибо ещё раз.

smirnvlad,slech
СПАСИБО БОЛЬШОЕ!

slech

[more]

Код:
@echo off
setlocal enabledelayedexpansion

for /f "tokens=1" %%i in (url.txt) do set "url=%%i" & call :NEXT
::
::
goto:eof

:NEXT
set "initial_url=%url%"
call :cut_url_after_slash
curl --user-agent "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)" --include --output log.txt %url%
echo link=%initial_url% homepage=%url% >>list.txt
goto:eof

:cut_url_after_slash
set "surl=%url:/=%"
if "%surl%"=="%url%" goto:eof
set "cnt=8"
:cut_url_after_slash_cycle
set "char=!url:~%cnt%,1!"
if "%char%"=="/" set "url=!url:~0,%cnt%!" && goto:eof
set /a "cnt=%cnt%+1"
goto:cut_url_after_slash_cycle

smirnvlad
спасибо огромное, заработало всё прям как надо.
последний вопросик - как можно почистить строчку от лишних знаков ?

Цитата:

                <td><div class="page #1"></div></td>

и пробелы убрать в начале.
оставить только

Цитата:

page #1

и как сделать что бы во время цикла значение set page=page1 обнулялось что ли, т.е.
идём по циклу значение
set page=page1
проходим второй раз а в результате работы цикла у нас нету никакого значения, но в результирующий файл пойдёт
echo %page% >>list.txt
и снова попадёт значение из работы предыдущего прохода.
как обнулить %page% после echo %page% >>list.txt ?

спасибо.

set я обошёл с помощью errorlevel и goto(если есть другой способ буду рад услышать).

осталось только возможнось зачистить строчку.

slech

Цитата:

осталось только возможнось зачистить строчку.

Код:
@echo off
setlocal

set "string= <td><div class="page #1"></div></td>"

set "string=%string:<=%"
set "string=%string:>=%"
set "string=%string:"=$%"

for /f "tokens=2 delims=$" %%i in ("%string%") do echo %%i