Nagual Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Задачи на bat-файлах 5 (часть 1, часть 2, часть 3 , часть 4) Вопросы, задачи и их решения по работе с командными файлами, а также сопутствующие ссылки.   Важно: копируя батник через буфер обмена из форума не забывайте удалять пробелы в конце каждой строки, т.к. в некоторых случаях из-за этого программа будет работать неправильно!!!   Также для удаления концевых пробелов пользуйтесь скриптом от Nagual, или VBS-Скрипт-Модулем от ViSiToR.   Для перекодирования кирилицы 866<<>>1251 пользуйтесь онлайн сервисом Перекодировщик кириллицы   Дополняем шапку: добавляем готовые решения, полезные ссылки.   Примечание: Большие куски кода заключайте в тэг [more]     Смежные темы: В помощь системному администратору » Автоматизация администрирования Программы » Командная строка, батники\сценарии   Полезные ссылки   Полезные утилиты   Готовые решения и частые вопросы: Встроенный справочник по командам Создание помощи по всем командам консоли 2000 и XP Делаем паузу в командном файле стандартными средствами Windows Альтернативные решения » Работа с текстом, датой, и файлами » Администрирование, автоматизация и сеть » Работа с переменными и параметрами ком. строки »   Описания работы команд и символов участниками темы: · setlocal enabledelayedexpansion и переменные окружения · символы & и && в командной строке · Переменная %0 Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 12:28 19-03-2008 | Исправлено: Nagual, 01:02 24-09-2008

king_stiven Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору lamener Существует каталог с кучей подкаталогов E:\1 в назначенный каталог E:\2 Код: @echo off   cd /d "E:\1" for /D %%e in (*) do (     move "%%e" "E:\2"     echo %%~nxe > "E:\2\%%~nxe\9.txt" )   А это с защитой на проверку существования папки E:\1, иначе начнёт перемещать бог знает что Код: @echo off   cd /d "E:\1" if not errorlevel 1 (     for /D %%e in (*) do (         move "%%e" "E:\2"         echo %%~nxe > "E:\2\%%~nxe\9.txt"     ) ) Всего записей: 2229 | Зарегистр. 17-07-2006 | Отправлено: 11:48 23-07-2008

MsdLamer Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Цитата:На первый - не знаю как без сторонних утилит       Разве что так     Код: for /f "tokens=1-26 delims==" %%a in (TEMP2.TXT) do call :replace %%a %%b %%c %%d %%e %%f %%g %%h %%i %%j %%k %%l %%m %%n %%o %%p %%q %%r %%s %%t %%u %%v %%w %%x %%y %%z   goto :eof   :replace   echo %*>>TEMP3.TXT       Сработает ессно, если знаков равно в каждой строке меньше 26 будет   Если текст такой     =   2 2300000086416 =   3 3348900821897 =   47 3352818716008 766124033705 =   56 3600521119563 4005808837359     то получается вот, что после обработки   2300000086416 3348900821897 47 3352818716008 766124033705 56 3600521119563 4005808837359   т.е. съедает цифры, подскажите пожалуйста как испровить Спасибо.         Всего записей: 53 | Зарегистр. 26-07-2007 | Отправлено: 12:56 23-07-2008

MsdLamer Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: MsdLamer     Цитата:т.е. съедает цифры, подскажите пожалуйста как испровить       Пробел вставь между %* и знаком перенаправления >>     Код: echo %* >>TEMP3.TXT   Спасибо, но теперь когда я добавил пробел все цифрв появились, но если идет   3352818716008   766124033705  то остается только 3352818716008, почему он убирает те которые короче? Подскажите. Как исправить? Спасибо. Всего записей: 53 | Зарегистр. 26-07-2007 | Отправлено: 18:48 23-07-2008

lamener Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Всем Доброго времени суток !! Вот есть задача !! Самому ее реализовать не получается !   Цитата:   Существует каталог с кучей подкаталогов с файлами имена всегда разные.   Переместить все подкаталоги с файлами из указанного каталога в назначенный каталог, и в каждом из перемещенных подкаталогов создать текстовый документ (имя документа 9.txt), содержание документа - "имя подкаталога"     код выполнения этой задачи   Огромная благодарность king_stiven за помощь !!   Код:   @echo off   cd /d "E:\1" if not errorlevel 1 (     for /D %%e in (*) do (         move "%%e" "E:\2"         echo %%~nxe > "E:\2\%%~nxe\9.txt"     ) )     а тут есть одна проблема в документе 9.txt после имени подкаталога есть переход на следующую строку "интер" а можно как нить без него ?   А если усложнить чуть задачу ?   Цитата:   Выполнить проверку в текстовом документе name.txt на существование имени перемещаемого подкаталога. Если такое имя существует по переименовать подкаталог с именем - "имя-1" формат текстового документа такой " имя-1 имя-2 . . имя-n " и дописать новое имя в текстовый документ name.txt       Вообще такое реально выполнить в bat-ФАЙЛЕ ? Всего записей: 25 | Зарегистр. 23-07-2008 | Отправлено: 10:09 24-07-2008 | Исправлено: lamener, 11:01 24-07-2008

Elroir Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ailman85 Предположим, что число находится в переменной number, тогда: Код:   set "new_number=%number:~-3%"   ---------- "В интернете есть все, но не всегда" Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 13:43 24-07-2008

yurkesha Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: set number=438751357389 set new_number=%number:~0,-3% echo %new_number% Всего записей: 2741 | Зарегистр. 15-12-2003 | Отправлено: 15:05 24-07-2008

Elroir Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ailman85 Цитата: он мне выдает 389, т.е. последние 3 цифры. Извини - ошибся. Имелось в виду, конечно же, то что написал yurkesha ---------- "В интернете есть все, но не всегда" Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 15:36 24-07-2008

ailman85 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Все равно спасибо! Лишний раз не помешает Всего записей: 10 | Зарегистр. 18-07-2008 | Отправлено: 16:00 24-07-2008

Elroir Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ssnvit Можно попробовать так: Код:   tasklist /v | find /i "winword.exe" | find "user">nul if not errorlevel 1 taskkill /F /FI "USERNAME eq user" /IM winword.exe   ---------- "В интернете есть все, но не всегда" Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 16:49 24-07-2008

Elroir Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору lamener Пуста - это значит нет файлов или нет файлов и поддиректорий? ---------- "В интернете есть все, но не всегда" Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 14:08 25-07-2008

Elroir Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору lamener Код:   @echo off setlocal set "folder=c:\temp" for /f "tokens=*" %%a in ('dir /ad /b "%folder%"') do (set "found=true" & goto next) :next if defined found ( :: Здесь набор действий, которые надо :: выполнить )   ---------- "В интернете есть все, но не всегда" Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 14:27 25-07-2008

Страницы: 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-файлах 5

vu1tur (04-11-2008 23:07): Задачи на bat-файлах 6

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