CMD/BAT - Программка: киллер клонов

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

CMD/BAT - Программка: киллер клонов

Sindel

Новый участник

Сообщения: 2
Благодарности: 0

Конфигурация

Профиль | Отправить PM | Цитировать

Изменения

Автор: Sindel
Дата: 01-02-2013

Всем привет, программеры, сможет кто помочь реализовать небольшой код в cmd

Описание:
Есть папка, в которую выгружаются файлы (txt формат) программой "1". Другая программа "2" раз в 10 минут проверяет папку и переносит, загружает их дальше в себе.

Проблема:
В папку часто из программы "1" сыплятся копии txt файлов, бывает иногда по 3-5 копий. Клоны отличаются между собой только по имени, но их содержание абсолютно идентично.

Смысл:
Создание батника, работающего и запускаемого планировщиком задач. Программка будет грузиться за 15-20 сек. до того как программа "2" проверит папку и переместит клонов в каталог: /copy (не удаление, а команд перемещение на случай чего)

Задача:
Программка по запуску проверяет в конкретной директории файлы на наличие копий в их содержании (самих файлов которые могут быть копиями друг друга бывает иногда по 3-5 шт), переносит копии в директорию /copy, но при этом оставляет один оригинал. Проверку файлов на клонов не сделать через сравнение размера файла, т.к. разные файлы могут совпадать по размеру. (обычно файлы не больше 5кб)

Отправлено: 10:13, 01-02-2013

zion87

Старожил

Сообщения: 263
Благодарности: 69

Профиль | Отправить PM | Цитировать

Код:

@Echo Off
Set direct=D:\
Set copy=D:\copy\
Cd /d "%direct%"
For /f "Delims=*" %%H In ('Dir /b "*.txt"') Do Call :1 "%%H"
Goto:Eof
:1
Set x=%1
For /f "Delims=*" %%S In ('Dir /b "*.txt" ^|Findstr /bev /c:%x%') Do Call :2 "%%S"
Goto:Eof
:2
Set z=%1
@Echo n|COMP %x% %z% >nul
If %errorlevel%==0 Move /y %z% "%copy%"

Это сообщение посчитали полезным следующие участники:

Sindel

Отправлено: 12:03, 01-02-2013 | #2