CMD/BAT

UserX · Отправлено: **21:14, 07-11-2018** | #31

Цитата:

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

Ну, слава Богу! Мне удалось не обмануть Ваших ожиданий.

Спасибо Вам за всю проделанную Вами работу и за Ваше долготерпение, которое Вы проявили к оппоненту, несмотря ни на что.
Удачи Вам!

megaloman · Отправлено: **22:35, 07-11-2018** | #32

UserX,

Цитата UserX:

чтобы при наличии в каталоге Dst архивов (*.rar, *.zip, *.7z и пр.) »

Хаос в данных == непредсказуемому результату.
При анализе наличия архива по маске Файл.* получим соответствие с Файл.jpg.*=Файл.* с ключом /O:-N
Гарантировать, что при ключе /O:N не получится еще какой-нибудь непредсказуемый пропуск, не берусь.
Чтобы результат был предсказуем (работа батника надежнее),то:

Либо считаем, что все архивы имеют расширение %Ext% (в нашем случае Rar), тогда исправление:

Код:

:OutArc
	If Not Exist "%Dst%\%~1.%Ext%" (

Либо надо перечислить все возможные расширения архивов

Код:

@Echo Off
cls
	Set "Src=Z:\Box_In"
	Set "Mask=??10??.*"

	Set /A Mode=0		&Rem 1= 1 файл/папка, 0=все файлы/папки по маске

	Set "DirKey=/O:-N"	&Rem /O:-N если выбирается один файл/папка, то выберется самый последний по алфавиту

	Set "Dst=Z:\Книги.arc"
	Set "Log=%Dst%\%~nx0.log"   &Rem Путь к лог-файлу. Можно указать в любом доступном месте с любым именем.

	Set Arc="C:\Program Files\WinRar\WinRar.exe" a -r -dh -m3 -s -rr5p -ts+ -y
	Set "Ext=rar"

	Set "AllExt=rar zip 7z arc"

	Pushd "%Src%" || (Set MSG=Folder not Found "%Src%" &Set /A Err=2 &GoTo :End)
	If Not Exist "%Dst%" Md "%Dst%" || (Set MSG=Folder not Created "%Dst%" &Set /A Err=3 &GoTo :End)

	Set /A Err=1

	If %Mode%==0 For /F "usebackq delims=" %%d IN (`2^>nul Dir "%Src%\%Mask%" /B %DirKey%`) DO (Set /A Err=0 &Call :OutArc "%%d")
	If %Mode%==1 For /F "usebackq delims=" %%d IN (`2^>nul Dir "%Src%\%Mask%" /B %DirKey%`) DO (Set /A Err=0 &Call :OutArc "%%d" &GoTo :End)

	:End
	Popd
	If "%Err%"=="1" (Set MSG=File or Folder not Found "%Src%\%Mask%" %DirKey%)
	If Not "%Err%"=="0" >>"%Log%" Echo %Date% %Time% %Msg%

pause
Exit /B %Err%

:OutArc
	FOR %%e IN (%AllExt%) DO If Exist "%Dst%\%~1.%%~e" Exit /B 0

	>>"%Log%" Echo %Date% %Time% "%Src%\%~1" 
	%Arc% "%Dst%\%~1.%Ext%" "%~1"
Exit /B 0

И вааще, смесь файлов/папок с одинаковыми именами и разными расширениями может дать неожиданный результат при любых алфавитных сортировках даже при отборе 1 файла с маской с расширением .*
Удалите в Вашем наборе папку 181027 и, в зависимости от ключа сортировки, будете иметь
или 181028.rar или 181030.jpg.rar
Так что при смеси кони/люди (файлы/папки c одинаковыми именами, но разными расширениями) откажитесь от маски с расширением .* и используйте только жестко определённое расширение.

UserX · Отправлено: **23:59, 07-11-2018** | #33

Цитата megaloman:

И вааще, смесь файлов/папок с одинаковыми именами и разными расширениями может дать неожиданный результат »

Я попробовал давать Вашему батничку на съедение весьма изощрённый наборчик ядрёной смеси. И он на ура справился со всем разнообразием, которое я ему подсовывал. При этом я всегда получал от него те результаты работы, которые и надеялся получить.
То есть, Ваш батник с честью выдержал все мои корявые тесты и ни разу не подвёл и не обманул моих ожиданий.
Единственное, я ещё раз хочу настоятельно уточнить, что в строке, касающейся прохождения проверки, что установлен режим Mode==0, я явно задаю прямое направление сортировки команды Dir ключом /O:N, т.е. я изменил одну Вашу строку в исходнике так (выделено жирным):
If %Mode%==0 For /F "usebackq delims=" %%d IN (`2^>nul Dir "%Src%\%Mask%" /B /O:N`) DO (Set /A Err=0 &Call :OutArc

И это принципиально для получения правильного результата работы батника при хаосе в каталоге Src.

Что же касается мешанины в каталоге Src, так она специально и создавалась таковой для тестирования. В реалии у меня такого бардака в Src, конечно же, нет. Но ведь проверить-то было нужно!

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

megaloman · Отправлено: **00:10, 08-11-2018** | #34

UserX, Лог-файл создаётся? Путь к нему указан правильно? Я получил аналогичный результат, когда указал кривой путь к лог-файлу

Цитата UserX:

правильно написааня программка справляется со всеми вариантами »

Один из столпов программирования утверждал: всегда можно подобрать данные, способные одурачить программу

UserX · Отправлено: **01:00, 08-11-2018** | #35

Цитата megaloman:

Лог-файл создаётся? »

Чёрт подери, я же у себя поменял Ваш параметр Log на LogFile, да во втором варианте позабыл его везде поправить.
Сейчас поправил, и всё прекрасно заработало.
Извините меня, пожалуйста, за невнимательность и ложную тревогу.

Собственно, почему я переименовал Log в LogFile. Хотел ещё ввести у себя параметр Log, типа:
Set "Log=Yes"
для того, чтобы вставить проверку - создавать или нет log-файл. Да что-то в моих неумелых руках не задалось...

Iska · Отправлено: **02:32, 08-11-2018** | #36

Цитата megaloman:

по умолчанию Dir выдаёт прямую алфавитную сортировку »

Неа. Что возвращает функция WinAPI FindFirstFile/FindNextFile, то и выдаёт. Просто на NTFS записи каталога уже упорядочены по именам-расширениям. А для FATx это не так:

Скрытый текст

— там имена возвращаются в порядке создания записей каталога.

UserX · Отправлено: **02:59, 08-11-2018** | #37

Цитата Iska:

— там имена возвращаются в порядке создания записей каталога. »

Ёпрст! Получается, что ключ сортировки по имени (/o:n) у команды Dir просто не работает?
Как же так? Ведь это же хаос какой-то! Ну, по умолчанию - ладно. Что там Dir выдаёт по умолчанию известно только ей, хотя, да, я ещё помню, что в fat32 командой Dir по умолчанию выдаются имена в порядке их создания.
Но ведь если явно указан ключ сортировки, то почему он не работает??
Я не понимаю...

Iska · Отправлено: **03:06, 08-11-2018** | #38

Цитата UserX:

Ёпрст! Получается, что ключ сортировки по имени (/o:n) у команды Dir просто не работает? »

Работает.

Цитата UserX:

хотя, да, я помню,ещё что в fat32 командой Dir по умолчанию выдаются имена в порядке их создания. »

Именно так. Об этом я и написал.

Цитата UserX:

Но ведь если явно указан ключ сортировки, то почему он не работает?? »

Работает.

Неверным является только одно предположение — что по умолчанию (в случае отсутствия параметра /o, отсутствия переменной окружения DIRCMD, отсутствия в содержимом переменной окружения DIRCMD параметра /o) команда dir возвращает имена-расширения файлов и каталогов из оглавления каталога в лексикографическом порядке. Это не так.

UserX · Отправлено: **17:38, 08-11-2018** | #39

Цитата Iska:

Работает. »

Действительно работает. Я просто был невнимателен. Извините, пожалуйста.