vu1tur Moderator-Saaber Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Задачи на bat-файлах (часть 1, часть 2) Вопросы, задачи и их решения по работе с командными файлами, а также сопутствующие ссылки.   Важно: копируя батник через буфер обмена из форума не забывайте удалять пробелы в конце каждой строки, т.к. в некоторых случаях из-за этого программа будет работать неправильно!!!   Дополняем шапку: добавляем готовые решения, полезные ссылки.   Примечание: Большие куски кода заключайте в тэг [more]     Смежные темы: В помощь системному администратору » Автоматизация администрирования Программы » Командная строка, батники\сценарии   Полезные ссылки   Полезные утилиты   Готовые решения и частые вопросы: Встроенный справочник по командам Создание помощи по всем командам консоли 2000 и XP Альтернативные решения » Работа с текстом, датой, и файлами » Администрирование, автоматизация и сеть » Работа с переменными и параметрами ком. строки »   Описания работы команд и символов участниками темы: · setlocal enabledelayedexpansion и переменные окружения · символы & и && в командной строке · Переменная %0 Всего записей: 3690 | Зарегистр. 01-02-2003 | Отправлено: 11:54 27-04-2007 | Исправлено: Elroir, 03:59 10-09-2007

Maza Faka Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору JohnRD Код:   @echo off for /f "tokens=2 delims=*" %%a in ('net user %username%') do set group=%%a & goto :show :show Echo %username% is %group% member   Всего записей: 1420 | Зарегистр. 25-10-2006 | Отправлено: 10:58 26-07-2007

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MegaSin Цитата:   думаю нужно делать start :метка и дальше идёт скрипт прогресс бара.. пока с фоновом режиме идет заливка дампа     Код:   @ECHO OFF   for /l %%i in (0,1,80) do (     call:COPY     set /p="#"<nul     ping -n 3 localhost >nul ) echo. del "%temp%\cp.cmd" >nul 2>&1   :COPY if exist "%temp%\cp.cmd" goto:eof echo copy from to >"%temp%\cp.cmd" echo exit >>"%temp%\cp.cmd" start %temp%\cp.cmd       Правда прогресс-бар не отражает реальное положение дел, окно cp.cmd можно спрятать Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 11:04 26-07-2007

Maza Faka Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору MegaSin Цитата: сделать прогресс-бар Вот пример, как это можно сделать: Код:   @Echo off Call :Pcopy "d:\Video\Films\movie.avi" c:\new goto :eof   :Pcopy Set Flagfile=%TEMP%\tmp.tmp If Exist %Flagfile% Del %Flagfile% start /min copy %* ^& Echo.^> %Flagfile% ^& Exit Set /p var=Copying %~1 < NUL   :loop Set /p var=. < NUL ping -n 1 localhost>nul if not exist %Flagfile% goto loop   просто адаптируй под свою задачу. Всего записей: 1420 | Зарегистр. 25-10-2006 | Отправлено: 11:09 26-07-2007 | Исправлено: Maza Faka, 11:11 26-07-2007

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору еще после del допиши exit   Добавлено: MegaSin   Вот слегка доработал, прогресс будет идти до конца копирования Код:   @ECHO OFF cls echo. for /l %%i in (0,1,2) do (     :progress     call:COPY     set /p="#"<nul     ping -n 2 localhost >nul     if exist %temp%\cp.tmp goto:progress ) :end echo. del %temp%\cp.cmd goto:eof   :COPY if exist %temp%\cp.cmd goto:eof cd.>%temp%\cp.tmp echo copy "source.file" "destinations" >>"%temp%\cp.cmd" echo del "%temp%\cp.tmp" >>"%temp%\cp.cmd" echo exit >>"%temp%\cp.cmd" start %temp%\cp.cmd :: hstart /nowindow "%temp%\cp.cmd"       Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 11:15 26-07-2007

MegaSin Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору вы просто супер! Спасибо всем огромное. Буду встраивать Всего записей: 25 | Зарегистр. 26-11-2006 | Отправлено: 13:59 26-07-2007

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MegaSin Метку :end убери, она не нужна Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 16:35 26-07-2007

Yuki2003 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: For /f "eol=;" %%a In ( List.txt ) Do ( Set test=%%a Echo %%a Echo %test ) Как заставить "работать" Set? Echo %%a - OK Echo %test - ничего Всего записей: 1077 | Зарегистр. 10-07-2003 | Отправлено: 18:20 26-07-2007 | Исправлено: Yuki2003, 18:22 26-07-2007

KapralBel Platinum Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Yuki2003  For /f "eol=;" %%a In ( List.txt ) Do ( Set test=%%a Echo %%a Echo !test! ) Всего записей: 11354 | Зарегистр. 16-02-2005 | Отправлено: 18:25 26-07-2007 | Исправлено: KapralBel, 18:29 26-07-2007

Yuki2003 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: KapralBel !test! 10х! Ну почему я этого в хэлпе на нашел Всего записей: 1077 | Зарегистр. 10-07-2003 | Отправлено: 18:36 26-07-2007

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MsdLamer   Код:   @ECHO OFF   set etalon=0 for /f "delims=" %%i in ('type your.txt') do (     set string=%%i     call:compare ) goto:eof   :compare if "%etalon%"=="%string%" goto:eof set etalon=%string% echo %string% > new.txt     Цитата: К зачету надо и никаких батников   Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 18:52 26-07-2007

Elroir Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 01MDM Цитата: echo %string% > new.txt   Надо заменить на echo %string% >> new.txt ---------- "В интернете есть все, но не всегда" Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 18:58 26-07-2007

Elroir Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MsdLamer Цитата: ВСЕ НОРМАЛЬНО НО, В ФИНАЛЬНОМ ФАЙЛИКЕ ОСТАЕТСЯ ТОЛЬКО Смотри мою поправку выше.   А одинаковые строчки идут одна за другой или вперемешку? ---------- "В интернете есть все, но не всегда" Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 19:04 26-07-2007

Elroir Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MsdLamer Скорее всего это из-за пробелов в конце строк. Или убери все пробелы или вот чуть измененный код 01MDM: Код:   @echo off set "etalon=0"   for /f "delims=" %%i in ('type kassa.txt') do (   set "string=%%i"   call :compare   )   goto :EOF   :compare   if "%etalon%"=="%string%" goto :EOF   set "etalon=%string%" echo %string%>>new.txt     Я просто добавил кавычки, куда надо. ---------- "В интернете есть все, но не всегда" Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 19:19 26-07-2007

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MsdLamer   Но если строки вперемешку то работать не будет Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 19:22 26-07-2007

MsdLamer Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору СПАСИБО, выручил очень. Все работет. Еще раз спасибо. Всего записей: 53 | Зарегистр. 26-07-2007 | Отправлено: 19:24 26-07-2007

KapralBel Platinum Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Yuki2003 Цитата: Ну почему я этого в хэлпе на нашел Set /? >Set.help и читаешь файлик Set.help Всего записей: 11354 | Зарегистр. 16-02-2005 | Отправлено: 22:01 26-07-2007

Maza Faka Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору MsdLamer Ещё один вариант, учитывает и "перемешанные" строки: Код:   @echo off   set text=your.txt if exist tmp.tmp del /f /q tmp.tmp copy nul tmp.tmp>nul   for /f "delims=" %%a in (%text%) do ( findstr /c:"%%a" tmp.tmp>nul || echo %%a>> result.txt echo %%a>> tmp.tmp )   for %%a in (tmp.tmp %text%) do del /f /q "%%a" ren result.txt "%text%"     Важно: копируя батник через буфер обмена из форума не забывайте удалять пробелы в конце каждой строки, т.к. в некоторых случаях из-за этого программа будет работать неправильно!!! Всего записей: 1420 | Зарегистр. 25-10-2006 | Отправлено: 08:22 27-07-2007

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

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

vu1tur (11-09-2007 15:22): продолжаем в теме Задачи на bat-файлах 4

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