uZver Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Aroun как я себе это вижу: - настроить назначенное задание на комп., где будет проходить архивация ( Каждые 5минут/час/день) - помимо самой архивации в батнике прописать net use z:  \\{имя компа,куда будут сливатся архивы} {password} /USER:{login} move *.* z: net use z: /d Всего записей: 195 | Зарегистр. 10-10-2003 | Отправлено: 19:24 29-06-2006

Yuk Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору cluster Perl устроит? Вот сваял быстренько из заготовки: Код: use strict; my $dirname = "."; my @files; my $file; my $uid; my $uin;   opendir (DIR, $dirname)     or die "Can't open directory $dirname: $!"; @files = grep { /\.TXT/i && -f "$dirname/$_" } readdir (DIR);   open (OFILE, ">users.lst")     or die "Cannot create file users.lst - $!\n"; print OFILE "User\tUIN\n";   foreach $file (@files) {     open IFILE, '<', "$dirname/$file"         or warn ("Can't open $file, $!\n")         and next;     print "$file\n";     while (<IFILE>) {         chop;         if (/User      : (\w+)/) {             $uid=$1;             next;         }         if (/UIN       : (\d+)/) {             $uin=$1;             print OFILE "$uid\t$uin\n";             next;         }     } # end of while     close IFILE; } # end of foreach close OFILE; closedir DIR; print "Press ENTER key to close the output window ..."; my $pause = <STDIN>;     Добавлено: Сохранить, например, в userexp.pl и запустить в директории с файлами. Естественно, подразумевается, что установлен ActivePerl. Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 23:19 29-06-2006

evle 1 + int rand(100); Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mikolamkn Комманда   set /B A=dir /B C:\Quorum\Cl_bank\CRYPT\*.*   задаёт переменной "/B A" значение "dir /B C:\Quorum\Cl_bank\CRYPT\*.*" (dir при этом не выполняется). У меня такое чувство, что ты хотел совсем не этого. Где ты вообще взял эту "/B"? Совершенно непонятно, что ты хотел получить. Если скопировать один и тот же файл из каждой папки в "C:\Quorum\Cl_bank\CRYPT\", то Код:   pushd C:\Quorum\Cl_bank\CRYPT\ for /D %%i in (*) do copy "%%i\CFG.CFG" <куда надо> popd     Любителям копировать что-либо по сети рекомендую почитать описание комманд pushd и popd - иногда бывает проще, чем net use. ---------- For every complex problem, there is a solution that is simple, neat, and wrong. Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 08:55 30-06-2006

evle 1 + int rand(100); Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору cluster Поковырялся немного, получилось следующее: Код:   @echo off del res for %%q in (txt*) do (     for /f "tokens=2 delims=: skip=1" %%i in ('find "User" %%q') do echo User:%%i >> res     for /f "tokens=2 delims=: skip=1" %%i in ('find "UIN" %%q') do echo UIN:%%i >> res )   Выдаёт нечётных строках юзеров, в чётных - уины. В одну строку с наскока слепить не получилось. Если кто знает, как вывести строку без перевода строки, скажите. VladimirKvach Цитата: Для себя вывел следуещее правило: Увы, это правило очень часто нельзя выполнить. Цитата: Так надежнее, потому что скрипт запустится только при доступности соответствующей машины/флешки, при небитости скачанного архива.   Это легко проверяется в самом батнике.   Добавлено: cluster Вообще, для обработки текста лучше использовать сторонние программы с поддержкой регексов. В консоли - grep, портированный с NIX, в GUI - PowerGREP (есть в программах). Разбор текста средствами батника - не очень приятное занятие. ---------- For every complex problem, there is a solution that is simple, neat, and wrong. Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 09:33 30-06-2006

uZver Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору evle про pushd: не подскажите авторизацию поддерживает? не нашел Всего записей: 195 | Зарегистр. 10-10-2003 | Отправлено: 10:32 30-06-2006

evle 1 + int rand(100); Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору uZver Цитата: про pushd: не подскажите авторизацию поддерживает? не нашел Скорее всего нет. VladimirKvach Очень часто компьютер или архив, на (в) котором надо что-то сделать, лицом, пишущим батник, не контролируется. При архивации на флешку иногда неудобно держать батник на флешке, поскольку могут применяться разные флешки. Словом, мысли правильные, но в такой категорической форме ("должен") не всегда работают. cluster Если ты не заметил, строчка   Код:    for %%q in (txt*) do (     Перебирает файлы по маске (у меня файлы лежали в той же папке, что и батник и их надо было как-то отличать). Поменяй на свою. mikolamkn Я пока не очень понял, что должно происходить во второй половине батника, но в порядке телепатии: прочитай справку по команде set в части про позднее связывание. Возможно, что нужно использовать "!" вместо "%". ---------- For every complex problem, there is a solution that is simple, neat, and wrong. Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 18:33 30-06-2006

evle 1 + int rand(100); Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору cluster Цитата: я как бы в каталог с *.txt и кидал этот батник. У меня маска стояла не "*.txt", а "txt*" Цитата: батник не понимает файлы с более чем одним словом в имени файла Кавычки надо было вставлять не в маску, она и так прекрасно работает, а вот команде find они нужны: Код:   for /f "tokens=2 delims=: skip=1" %%i in ('find "User" "%%q"') do echo User:%%i >> +results.log     Далее по аналогии Цитата: Бывают оч большие файлы истории, а батник ищет (например слово UIN) по всему файлу - оч-оч долго. Я предполагал подобный вопрос, но не думал, что подобную конструкцию понадобится запускать более одного-двух раз, а при одноразовом применении оптимизировать код обычно ни к чему. Можно попробовать конструкцию: Код:   for ... do command1 & goto label1 :label1 for ... do command2 & goto label2 :label2   Не проверял, но может сработать. Если будет работать также медленно, значит find выдаёт все результаты сразу. Чем заменить - не знаю. Однако, повторю, это не очень удачное применение инструментов. c grep получилось бы проще и быстрее.   ---------- For every complex problem, there is a solution that is simple, neat, and wrong. Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 06:35 01-07-2006

Страницы: 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

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Задачи на bat-файлах

vu1tur (14-11-2006 16:59): http://forum.ru-board.com/topic.cgi?forum=62&topic=9040

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование