Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Закладки » Командная строка, батники, сценарии (bat, cmd)

Модерирует : gyra, Maz

Widok (19-11-2007 12:08): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118

   

KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Командная строка, батники\сценарии (bat, cmd)
Вопросы, задачи и их решения по работе с командной строкой, файлами, а также сопутствующие ссылки.

 
Важно: копируя батник через буфер обмена из форума не забывайте удалять пробелы в конце каждой строки, т.к. в некоторых случаях из-за этого программа будет работать неправильно!!!
 
Примечание: Большие куски кода заключайте в тэг [more]  
 
Смежные темы:
В помощь системному администратору » Автоматизация администрирования
Microsoft Windows » Задачи на bat-файлах 4
 
Полезные ссылки:
· Cmd. Описание от разработчиков
· Урок bat-аники (для начинающих)
· Набор GNU утилит для win32
· Пакет утилит для организации интерфейса в bat-файлах
· Использование ansi.sys
· cmdow — изменение параметров и видимости дос-окна
· blat — отправка почты из консоли
· Справка по командам в виде Html
· Команды RunDll32
· Quick Batch File Compiler - Позволяет превратить ваш батник в независимое приложение
· Пример - получение и обработка списка пользователей
 
 
Старая версия первого сообщения

Всего записей: 11112 | Зарегистр. 12-10-2001 | Отправлено: 04:28 24-09-2002 | Исправлено: Elroir, 19:35 11-09-2007
KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
retro

Цитата:
В 98 есть Xcopy, а зачем она нужна, ведь папок нет, только файлы.

Да не бери в голову это я так типа чего там ваще можно сделать-то в 98?

Цитата:
Нет, в том-то и дело, что нельзя...  

Тогда ахинея №2, не убивай их, но копируй сначала в соседнюю папку все, а потом убей из предыдущей папки, оставив тока два последних и после их копируй. Или во еще, вместо команды DEL попытаться прикрутить COPY в ту строку, чтобы сразу твои два файла копировались.

Цитата:
For есть и в DOS

Дело то в том что FOR в ХР уж больно сильно выросла по сравнению с той же 98, я потому и печалюсь, что не поможет.

----------
Process Explorer RU
Process Monitor RU
Process Hacker RU

Всего записей: 11112 | Зарегистр. 12-10-2001 | Отправлено: 23:26 13-05-2003
Uncle KILLER



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KLASS, я, грешным делом, подумал, что тебе может такая мелочь пригодиться, а потом уж вспомнил, что ты s2709 консультировал по тому же реестру, и довольно избыточно... Так что бум считать пост непреднамеренным...

Всего записей: 6501 | Зарегистр. 01-04-2002 | Отправлено: 01:56 14-05-2003
rits

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
в 98 у for никаких опций нет.
т.е. синтаксис такой:
FOR %переменная IN (набор) DO команда [параметры]
 
но в случае retro можно тупым способом - записать на зип последние файлы сколько влезит, а все остальное пропустится.
в батнике это будет выглядеть примерно так.

Код:
for %%i in ('dir /b /o:-d /a:-d /t:w *.*') do copy %%i targetpath

 
а лог делается очень просто:
с перезаписью
БАТНИК.bat > ИМЯЛОГА.log
 
или с добавлением в конец
БАТНИК.bat >> ИМЯЛОГА.log
правда такой лог будет пухнуть и обрезать его придеться уже отдельно.
 
ЗЫ xcopy может иметь смысл использовать, т.к. параметров у нее поболее.

Всего записей: 85 | Зарегистр. 07-02-2003 | Отправлено: 03:23 14-05-2003 | Исправлено: rits, 03:25 14-05-2003
tumber

Друг
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В xcopy (98) есть параметр /D:дата - копировать файлы, измененные не ранее указанной даты. Плохо, что команда date (98) не знает параметра /T.
Поэтому я в аналогичной ситуации сделал простенький вспомогательный exe-шник, который генерит нужный bat-ник. В данном случае может быть так:
 
{Turbo Pascal}
uses Dos;
var
   Year, Month, Day, DayOfWeek : Word;
   Month_str, Day_str : String;
   f : Text;
begin
   GetDate(Year, Month, Day, DayOfWeek);
   Str(Month, Month_str);
   if Length(Month_str) = 1 then Month_str := '0' + Month_str;
   Str(Day, Day_str);
   if Length(Day_str) = 1 then Day_str := '0' + Day_str;
   Assign(f, 'rezerv.bat');
   Rewrite(f);
   Writeln(f, 'copy QBO_', Year, Month_str, Day_str, '*.* ', 'destination_path');
   Writeln(f, 'copy Test_', Year, Month_str, Day_str, '*.* ', 'destination_path');
   Close(f);
end.
 
В результате создается файл rezerv.bat такого содержания:
 
copy QBO_20030514*.* destination_path
copy Test_20030514*.* destination_path
 
Это, конечно, не чистая командная строка, но задачу решает.

Всего записей: 2704 | Зарегистр. 13-09-2002 | Отправлено: 15:36 14-05-2003
gera serg

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ,  переползайте с батников на vbScript !
почитать можно http://www.borncity.de/WSHBazaar/
да и книжка Борна на русском есть в продаже.  
 
с дополнительной графической библиотекой я, например,  пачками в папке разворачиваю и обрезаю графические файлы согласно циферек в имени, четные -влево, нечетные - вправо.
 
програмка в виде текста на 100 строк (с всевозможными проверками наличия, правильности типа...) 4 кБ весом
 
И все необходимое есть уже в Виндузе или скачивается с MS

Всего записей: 788 | Зарегистр. 24-07-2002 | Отправлено: 19:15 14-05-2003
help

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gera serg
ага , jscript незабудь, а еще perl есть
 

Всего записей: 980 | Зарегистр. 12-07-2002 | Отправлено: 13:56 16-05-2003
gera serg

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
help
Не надо иронии
Возьми Блокнот, вбей туда ОДНУ строчку
 
MsgBox "Привет, Help!"
 
И сохрани на Рабочий стол в test.vbs
 
Кликни по иконке мышей - и вот она, самая простая работающая программа  
И не надо никаких сред разработки, компиляторов...
 
Язык упрощенный Basic изучается за неделю, можно писать программки для манипуляции файлами системы на уровне самых крутых Батников.  
Через месяц сможешь работать с начинкой текстовых файлов (формировать логи на вход и выход для пакетной обработки). А если голова позволяет и раньше  
 
С MS свободно скачиваются Хелп и Дебагер скриптов, весит все копейки...  

Всего записей: 788 | Зарегистр. 24-07-2002 | Отправлено: 15:08 16-05-2003
help

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gera serg
тогда почему то что работает в wsh5 не работает в wsh2, а bat или cmd работают везде,
а если добрый админ отключит vbs, js или сделает чтобы сценарии открывались в блокноте. Кстати есть книга Попова на эту тему, рекомендую прочесть
 

Всего записей: 980 | Зарегистр. 12-07-2002 | Отправлено: 17:24 16-05-2003 | Исправлено: help, 17:24 16-05-2003
gera serg

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Признаюсь, я не сталкивался со злобными админами, видимо потому, что пишу полезняшки на VBScript  в первую очередь для себя и своего персонального друга. И себе отключать возможность запускать vbs не собираюсь. Добрый я.
Посколько я недавно обнаружил возможности vbs, поставил последнюю версию wsh5, что на их сайте.  
Ну а возникнет необходимость, распакую VB5 и превращу vbs в exe с минимальными переделками в коде. Язык один - MSBasic . Визуальная часть (формы) мне ненужна, стандартные диалоги выбора файла вызываются из vbs, логи вход-выход текстовые...
Что еще для автоматизации рутинной работы надоть?  
 
То что работает в wsh5 и не работает в wsh2, это отловить наверно можно, работа с FSO недолжна сильно отличаться. Но проще попить с админом пива и поставить на сервере wsh5. Ведь для работы же...

Всего записей: 788 | Зарегистр. 24-07-2002 | Отправлено: 19:31 16-05-2003
Leshyi

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ping оставляет после выполнения несколько строк:  
 
после успешного прохождения пакетов - время прохождения,... ;  
после неудачной попытки - "Превышен интервал ожидания"  
 
как можно сделать, чтобы в батнике эта информация сохранилась в какой-то переменной или отправилась по net send ?

Всего записей: 133 | Зарегистр. 11-06-2003 | Отправлено: 10:38 13-06-2003 | Исправлено: Leshyi, 10:57 13-06-2003
counter



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Leshyi
тебе именно в переменную нужно или достаточно
ping hostname > filename.txt
какая конечная цель?

Всего записей: 63 | Зарегистр. 29-04-2003 | Отправлено: 17:48 13-06-2003
ironwit

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
как получить в батнике текущий день? То есть из даты 19,06,2003 выковырять 19.
 
Добавлено
вот программа  
 
section 1 of 1 of file exprdate.exe (SKUUE 0.4.6beta/FAR)
table
`!"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
SKUUEAttr )@``````%``````````````!``$`````````````````!#8````
begin 700 exprdate.exe
M35I0``(````$``\`__\``+@`````````0``:````````````````````````
M``````````````````````$``+H0``X?M`G-(;@!3,TAD)!4:&ES('!R;V=R
M86T@;75S="!B92!R=6X@=6YD97(@5VEN,S(-"B0W````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````````````````````````````````````%!%``!,`08`&5Y"*@``
M````````X`".@0L!`AD`!`````P```````#H$0```!`````@`````$```!``
M```"```$``````````0``````````'`````$`````````P``````$```0```
M```0```0````````$````````````````$```*0$````8`````(`````````
M````````````````4```L```````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````0T]$10````#D`P```!`````$````!```````````````````
M(```8$1!5$$`````)``````@`````@````@``````````````````$```,!"
M4U,``````!4`````,``````````*``````````````````````#`+FED871A
M``"D!````$`````&````"@``````````````````0```P"YR96QO8P``L```
M``!0`````@```!```````````````````$```%`N<G-R8P`````"````8```
M``(````2``````````````````!```!0`````````````````'``````````
M%```````````````````0```4```````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````````````````````````````````````````/\EL$!``(O`_R6L
M0$``B\#_):A`0`"+P/\EI$!``(O`_R6@0$``B\#_)9Q`0`"+P/\EF$!``(O`
M_R640$``B\#_)9!`0`"+P/\EC$!``(O`_R6(0$``B\#_)81`0`"+P/\E@$!`
M`(O`_R5\0$``B\#_)7A`0`"+P/\EP$!``(O`N`0@0`#HUO___\.04XO8,\"C
M`"!``&H`Z-O___^C`#!``*$`,$``HP@@0``SP*,,($``,\"C$"!``.C!____
MN@0@0`"+P^AE____6\.-0`!5B^PSP%5H]1!``&3_,&2)(/\%!#!``#/`6EE9
M9(D0:/P00`##Z2[____K^%W#B\"#+00P0``!P_\ES$!``(O`_R7(0$``B\#_
M)=A`0`"+P/\EU$!``(O`58OL,\!5:$T10`!D_S!DB2#_!0@P0``SP%I9662)
M$&A4$4``P^G6_O__Z_A=PXO`@RT(,$```</_)>Q`0`"+P/\EZ$!``(O`_R7D
M0$``B\#_)>!`0`"+P%6+[#/`56B?$4``9/\P9(D@,\!:65EDB1!HIA%``,/I
MA/[__^OX7<,'````L!%````10`#0$$``<!!``&@00``@$4``&!%``%@10``H
M$4``$!%```@10`!X$4``<!%```````"`$4``58OLN00```!J`&H`277Y4:&X
M0$``Q@`!N*@10`#H@O[__S/`56AZ$T``9/\P9(D@Z$O___^#Q/C='"2;N1`P
M0`"Z#C!``+@,,$``Z"C___^-5>RX`0```.C#_?__BT7LZ/O]__^%P'X4C57H
MN`$```#HJOW__XM%Z(H`ZP*P("QD=`HL"71&+`QT(NM@#[<5$#!``*&T0$``
MZ)+]___HA?W__^AP_?__Z<H````/MQ4,,$``H;1`0`#H<OW__^AE_?__Z%#]
M___IJ@````^W%0XP0`"AM$!``.A2_?__Z$7]___H,/W__^F*````C57D,\#H
M*?W__XU%Y+J0$T``Z&3]__^+5>2AM$!``.A?_?__Z"+]___H_?S__XU5X#/`
MZ/O\__^-1>"ZK!-``.@V_?__BU7@H;1`0`#H,?W__^CT_/__Z,_\__^-5=PS
MP.C-_/__C47<NLP30`#H"/W__XM5W*&T0$``Z`/]___HQOS__^BA_/__,\!:
M65EDB1!H@1-``(U%W+H%````Z,?\___#Z:G\___KZ^BR_/__``#_____$P``
M`"!D87D@;W5T<'5T(&-U<B!D87D`_____Q<````@;6]N=&@@;W5T<'5T(&-U
M<B!M;VYT:`#_____%0```"!Y96%R(&]U='!U="!C=7(@>65A<@``````````
M``````````````````````````````#_____````````````````````````
M````````M$!``+A`0```````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````/1```!X0```````````````````8D,``,!`````````````````
M``"$0P``R$```````````````````,Q#``#40```````````````````$$0`
M`.!``````````````````````````````/Y````<00``.$$``&I!``"N00``
MQD$``/)!```20@``*$(``&Y"``",0@``MD(``.1"```,0P``)$,``#Q#``!.
M0P```````'!#````````CD,``*Y#````````UD,``/1#````````&D0``#I$
M``!81```;D0```````!R=&PW,"YB<&P```!`4WES=&5M0&EN:71I86QI>F%T
M:6]N)'%Q<G8```!`4WES=&5M0$9I;F%L:7IA=&EO;B1Q<7)V````0%-Y<W1E
M;4!296=I<W1E<DUO9'5L921Q<7)P,3=3>7-T96U`5$QI8DUO9'5L90````!`
M4WES=&5M0$!7<FET93!,4W1R:6YG)'%Q<G(Q-5-Y<W1E;4!45&5X=%)E8W@Q
M-U-Y<W1E;4!!;G-I4W1R:6YG`````$!3>7-T96U`0$Q3=')#870D<7%R=@``
M`$!3>7-T96U`0$Q3='),96XD<7%R>#$W4WES=&5M0$%N<VE3=')I;F<`````
M0%-Y<W1E;4!`3%-T<D%R<F%Y0VQR)'%Q<G!V:0````!`4WES=&5M0$!(86QT
M,"1Q<7)V````0%-Y<W1E;4!`4W1A<G1%>&4D<7%R<#(S4WES=&5M0%!A8VMA
M9V5);F9O5&%B;&5P,3=3>7-T96U`5$QI8DUO9'5L90```$!3>7-T96U`0$AA
M;F1L949I;F%L;'DD<7%R=@```$!3>7-T96U`0%=R:71E3&XD<7%R<C$U4WES
M=&5M0%1497AT4F5C`````$!3>7-T96U`0%=R:71E,$QO;F<D<7%R<C$U4WES
M=&5M0%1497AT4F5C:0````!`4WES=&5M0$!&;'5S:"1Q<7)R,353>7-T96U`
M5%1E>'1296,`````0%-Y<W1E;4!087)A;5-T<B1Q<7)I````0%-Y<W1E;4!`
M7TE/5&5S="1Q<7)V````0%-Y<W1E;4!/=71P=70`````0%-Y<W1E;4!)<T-O
M;G-O;&4`:V5R;F5L,S(N9&QL`````$=E=$UO9'5L94AA;F1L94$``')T;#<P
M+F)P;````$!3>7-C;VYS=$!I;FET:6%L:7IA=&EO;B1Q<7)V````0%-Y<V-O
M;G-T0$9I;F%L:7IA=&EO;B1Q<7)V`')T;#<P+F)P;````$!4>7!E<T!I;FET
M:6%L:7IA=&EO;B1Q<7)V`````$!4>7!E<T!&:6YA;&EZ871I;VXD<7%R=@``
M<G1L-S`N8G!L````0%-Y<W5T:6QS0&EN:71I86QI>F%T:6]N)'%Q<G8```!`
M4WES=71I;'-`1FEN86QI>F%T:6]N)'%Q<G8```!`4WES=71I;'-`1&%T921Q
M<7)V````0%-Y<W5T:6QS0$1E8V]D941A=&4D<7%R>#$V4WES=&5M0%1$871E
M5&EM97)U<W0R=#(`````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M```0``"@`````C`*,!(P&C`B,"HP,C`Z,$(P2C!2,%HP8C!J,'(P>C"!,)(P
MGC"C,*@PKS"V,,`PUS#C,/`P`C$*,1(Q&C$B,2\Q.S%(,5HQ8C%J,7(Q>C&'
M,9HQK#&P,;0QN#&\,<`QQ#'(,<PQT#'4,=@QW#'D,?DQ`3(.,B4R*C(O,G@R
M?3*8,ITRN#*],N,R\#(1,QXS/S-,,V@S````(```$````!PP(#``````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````````````````````````#)HTRX````````!``H````8``"`````
M`#)HTRX``````@```(@``(`X``"`E@``@%```(``````,FC3+@````````$`
M`````&@`````````,FC3+@````````$``````'@```"P8```$```````````
M````P&```"0```````````````8`1`!6`$,`3`!!`$P`"P!0`$$`0P!+`$$`
M1P!%`$D`3@!&`$\````F/4\XPH(WN/,D0@,7FSJ#`0``S``````"`````6=E
M>'!R9&%T90``@5-Y<TEN:70`````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
C````````````````````````````````````````````````
`
end
sum -r/size 32014/5120 entire input file
 
при запуске с параметром day выдает текущий день
при запуске с параметром month выдает текущий месяц
при запуске с параметром year выдает текущий год
 
P.S. надеюсь не

----------
Don't drink, and drive. Smoke and fly.

Всего записей: 1892 | Зарегистр. 11-10-2002 | Отправлено: 12:21 19-06-2003
dadu



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть ли коды выполнения для команды START ?

Всего записей: 1222 | Зарегистр. 13-11-2002 | Отправлено: 18:39 28-06-2003 | Исправлено: dadu, 19:05 28-06-2003
dadu



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите !!! справится не могу...
 
Из батника запускается hotfix.exe :
 
START  "" /WAIT Q330994.exe -X:C:\1 -Q
 
НО.... так как именно Q330994.exe и еще некоторые фиксы не понимают ключъ /x, то выскакивает окошко "ошибка синтаксиса коммандной строки".
 
Нужно чтоб это окошко не выскакивало, а все было именно silent-установка , что подразумевает ключ /q
 
Т.е. если не хочет распоковываться с ключом /x , то переходит на ключ /c и при этом без вопросов.... без окошек.
 
Чего можно сделать? не молчите только

Всего записей: 1222 | Зарегистр. 13-11-2002 | Отправлено: 07:09 29-06-2003
exMIB



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1. Какой командой можно узнать размер папки (изменился или нет)?
2. Как сделать: в папке источнике два файла мне надо чтобы за раз эти два файла были скопированы в другую папку с генерацией имени по дате и времени, но так как это происходит быстро то у них получиться одиноковое имя
А как сделать добавку к имени?
Случайное число сгенерировать или как счетчик сделать?
3. Лог-файл у меня почему-то в дос-кодировке записывается, а в виндовс можно как-нибудь?
4. Вверху есть пример генерации имен файлов по дате и времени:
как добавить секунды и десятые доли секунды к имени?
Что-то не получается
5. Как скрытно запускатть bat-файл, чтобы не вылезало досовское окно?

Всего записей: 3300 | Зарегистр. 27-09-2001 | Отправлено: 13:56 14-08-2003 | Исправлено: exMIB, 17:56 14-08-2003
tumber

Друг
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
exMIB
По пунктам 2 и 4.
 
Файл rezerv.pas, который надо скомпилировать в rezerv.exe, возможно, что-то изменив (по желанию):
 
{Turbo Pascal}
uses Dos;
var
   fn, dp, dt: string;
   f : text;
 
procedure Add0(var s : string);
begin
   if Length(s)=1 then s:= '0'+s;
end;
 
function DateTime : string;
var
   Year, Month, Day, DayOfWeek : Word;
   Year_s, Month_s, Day_s : String;
   Hour, Minute, Second, Sec100 : Word;
   Hour_s, Minute_s, Second_s, Sec100_s : String;
begin
   GetDate(Year, Month, Day, DayOfWeek);
   GetTime(Hour, Minute, Second, Sec100);
   Str(Year, Year_s);
   Str(Month, Month_s);
   Str(Day, Day_s);
   Str(Hour, Hour_s);
   Str(Minute, Minute_s);
   Str(Second, Second_s);
   Str(Sec100, Sec100_s);
   Add0(Month_s);
   Add0(Day_s);
   Add0(Hour_s);
   Add0(Minute_s);
   Add0(Second_s);
   Add0(Sec100_s);
   DateTime:= Year_s+'_'+Month_s+'_'+Day_s+'_'+Hour_s+'_'+Minute_s+'_'+Second_s+'_'+Sec100_s;
end;
 
begin
   if ParamCount<>2 then
   begin
      Writeln('Error in ParamCount.');
      Writeln('   1 - source file');
      Writeln('   2 - target path with last slash \');
      Write  ('Press Enter...');
      Readln;
      Halt(0);
   end;
   fn:= ParamStr(1);
   dp:= ParamStr(2);
   dt:= DateTime;
   Assign(f, 'rezerv.bat');
   Rewrite(f);
   Writeln(f, '@echo off');
   Writeln(f, 'copy ', fn, ' ', dp, dt, ' > nul');
   Close(f);
end.
Конец файла rezerv.pas
 
Он принимает два параметра - имя файла, который надо скопировать, и путь назначения (с последним обратным слэшем \).
 
Пример запуска:
rezerv.exe filename1 e:\aaabbbccc\
 
Создается файл rezerv.bat примерно такого содержания:
@echo off
copy filename1 e:\aaabbbccc\2003_08_14_19_56_30_58 > nul
 
Последняя цифра - сотые доли секунды.
 
Пусть у тебя в текущей папке лежат файлы filename1 и filename2, которые надо скопировать в папку e:\aaabbbccc\
Помещаешь в текущую папку файл rezerv.exe и свой основной батник, в который вставляешь такие строки:
 
rezerv.exe filename1 E:\aaabbbccc\
call rezerv.bat
rezerv.exe filename2 E:\aaabbbccc\
call rezerv.bat
 
Все.
 
Если проблемы с TurboPascal'ем, могу выслать готовый exe-шник.

Всего записей: 2704 | Зарегистр. 13-09-2002 | Отправлено: 19:26 14-08-2003
exMIB



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tumber
Спасибо за такую программку.
Я тут немного по другому решил сделать, но это тоже пригодиться.
 
У меня сейчас ОЧЕНЬ ОСТРО стоит проблема как скрыть запуск батника?
Надо чтобы всё происходило незаметно для юзера. А то сейчас мелькает досовское окно  
Хоть и доли секунды, но неприятно.

Всего записей: 3300 | Зарегистр. 27-09-2001 | Отправлено: 00:18 15-08-2003
tumber

Друг
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
exMIB
А start /m не подходит?
Особенно, если убрать панель задач?

Всего записей: 2704 | Зарегистр. 13-09-2002 | Отправлено: 11:08 15-08-2003
AntonRNB



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, как можно отправить небольшой е-мэил из командной строки.
 
Кстати, тем кто не знает nnCron очень рекомендую узнать. Автоматизирует всё. И с командной строкой работать умеет.

Всего записей: 52 | Зарегистр. 17-04-2003 | Отправлено: 11:10 15-08-2003
WildCat



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
exMIB
Очень рекомендую посмотреть в сторону nnCron'a -- делает все что тебе нужно, и намного больше

Всего записей: 883 | Зарегистр. 16-10-2001 | Отправлено: 11:24 15-08-2003
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118

Компьютерный форум Ru.Board » Компьютеры » Программы » Закладки » Командная строка, батники, сценарии (bat, cmd)
Widok (19-11-2007 12:08): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru