Любой язык - [решено] Создание папок по имени и перемещение файлов

megaloman · Отправлено: **17:22, 03-07-2019** | #2

Цитата xan08:

D_Пятница_56_my-files_backup.2019-06-09-10-00_00 »

Как должна называться папка, куда надо переместить этот файл?
2019-06-09 (если это гггг-мм-дд) это воскресенье 23 недели.

xan08 · Отправлено: **19:16, 03-07-2019** | #3

Цитата megaloman:

Как должна называться папка, куда надо переместить этот файл?
2019-06-09 (если это гггг-мм-дд) это воскресенье 23 недели. »

Извиняюсь. Не тот день указал. В данном примере файл должен переместиться в папку D:\backup\Неделя 23\D_воскресенье

megaloman · Отправлено: **00:15, 04-07-2019** | #4

xan08,

Использовал известные приёмы для возни с датами, если основываться только на дате, то получается длинно

Код:

@Echo Off
cls
        Set "BoxIn=Z:\Box_In"
	Set "MaskIn=*_backup.20*.*"

        Set "BoxOut=D:\backup"

	FOR %%f IN ("%BoxIn%\%MaskIn%") DO Set "FF=%%~nxf" &Call :Out "%%f" "%%FF:*.=%%" "%BoxOut%"
Pause
GoTo :Eof

:Out
	Set "A=%~2"
	Set "A=%A:~8,2% %A:~5,2% %A:~0,4%"
	Call :NweekInYear %A% "NWeek"
	Set "NWeek=0%NWeek%"
	Set "NWeek=%NWeek:~-2%"
	Call :NdayInWeek %A% "DWeek"
rem	FOR /F "tokens=%DWeek% delims= " %%i IN ("Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье") DO Set "DWeek=%%i"
	FOR /F "tokens=%DWeek% delims= " %%i IN ("Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье") DO Set "DWeek=%DWeek%_%%i"
	If Not Exist "%~3\Неделя %NWeek%\D_%DWeek%" Md "%~3\Неделя %NWeek%\D_%DWeek%"
	>nul Move /Y %1 "%~3\Неделя %NWeek%\D_%DWeek%\"
Exit /B

rem Номер недели в году дд мм гггг имя_переменной
:NweekInYear
SetLocal
	Call :JdayGcal 01 01 %3 "N1"
	Call :NdayInWeek 01 01 %3 "W1"
	Call :JdayGcal %1 %2 %3 "N2"
	EndLocal &Set /A %~4=(%N2%-%N1%+6+%W1%)/7
Exit /B

rem Юлианский день по григорианскому календарю дд мм гггг имя_переменной
:JdayGcal
SetLocal
	Set "D=0%1" &Set "M=0%2"
	Set /A D=1%D:~-2%-100,M=1%M:~-2%-100
	Set /A A=(14-%M%)/12, Y=%3+4800-A, M=%M%+12*A-3
	EndLocal &Set /A %~4=(%D%+(153*%M%+2)/5+365*%Y%+%Y%/4-%Y%/100+%Y%/400-32045)
Exit /B

rem Номер дня в неделе дд мм гггг имя_переменной
:NdayInWeek
SetLocal
	Set "D=0%1" &Set "M=0%2"
	Set /A D=1%D:~-2%-100,M=1%M:~-2%-100  
	Set /A i=(%3-1901)*365 + (%3-1901)/4 + %D% + (!(%3 %% 4))*(!((%M%-3)^&16))
	EndLocal &Set /A %~4=(%i%+(%M%-1)*30+2*(!((%M%-7)^&16))-1+((65611044^>^>(2*%M%))^&3))%%7+1
Exit /B

megaloman · Отправлено: **08:28, 04-07-2019** | #5

xan08, Если в имени Ваших файлов маска именно такая, как Вы указали, то есть:
D_Имядня_номернедели_траляляляля, то решение многократно проще:

Код:

@Echo Off
cls
        Set "BoxIn=Z:\Box_In"
        Set "BoxOut=D:\backup"

	FOR /F "usebackq tokens=1,2,3* delims=_" %%i IN (`2^>nul Dir "%BoxIn%\D_*_*_*20*.*" /B /A:-D`) DO (
		If Exist "%BoxIn%\%%i_%%j_%%k_*20*.*" (
			If Not Exist "%BoxOut%\Неделя %%k\%%i_%%j" Md "%BoxOut%\Неделя %%k\%%i_%%j"
			>nul 2>&1 Move /Y "%BoxIn%\%%i_%%j_%%k_*20*.*" "%BoxOut%\Неделя %%k\%%i_%%j"
		)
	)
Pause
GoTo :Eof

С точки зрения алфавитной сортировки при просмотре папок, ИМХО, имена папок с днём недели выгодно дублировать номером дня в неделе, например: D:\backup\Неделя 23\D3_среда, D:\backup\Неделя 23\D7_воскресенье

Код:

@Echo Off
cls
        Set "BoxIn=Z:\Box_In"
        Set "BoxOut=D:\backup"

	Set /A Понедельник=1, Вторник=2, Среда=3, Четверг=4, Пятница=5, Суббота=6, Воскресенье=7

	FOR /F "usebackq tokens=1,2,3* delims=_" %%i IN (`2^>nul Dir "%BoxIn%\D_*_*_*20*.*" /B /A:-D`) DO (
		If Exist "%BoxIn%\%%i_%%j_%%k_*20*.*" (
			Call 2>nul Md "%BoxOut%\Неделя %%k\%%i%%%%j%%_%%j"
			Call >nul 2>&1 Move /Y "%BoxIn%\%%i_%%j_%%k_*20*.*" "%BoxOut%\Неделя %%k\%%i%%%%j%%_%%j\"
		)
	)
Pause
GoTo :Eof

Забыл напомнить: батники сохранять в 866 кодировке

xan08 · Отправлено: **06:00, 05-07-2019** | #6

Цитата megaloman:

rem Номер дня в неделе дд мм гггг имя_переменной
:NdayInWeek
SetLocal
Set "D=0%1" &Set "M=0%2"
Set /A D=1%D:~-2%-100,M=1%M:~-2%-100
Set /A i=(%3-1901)*365 + (%3-1901)/4 + %D% + (!(%3 %% 4))*(!((%M%-3)^&16))
EndLocal &Set /A %~4=(%i%+(%M%-1)*30+2*(!((%M%-7)^&16))-1+((65611044^>^>(2*%M%))^&3))%%7+1 »

Спасибо megaloman! Первый скрипт устраивает полностью, за исключением номера дня в названии папки D_5_Пятница, можно ли это поправить? Не могли бы вы расписать кратенько, что происходит в этой секции? 1%D:~-2% гуглиться плохо, был бы признателен если ткнете ссылкой где можно почитать.

Цитата megaloman:

xan08, Если в имени Ваших файлов маска именно такая, как Вы указали, то есть:
D_Имядня_номернедели_траляляляля, то решение многократно проще: »

Спасибо, возможно получится изменить формат имени в бэкапе, а так в названии нет номера недели, это что то вроде порядкового номера.

megaloman · Отправлено: **11:28, 05-07-2019** | #7

Цитата xan08:

Первый скрипт устраивает полностью, за исключением номера дня в названии папки D_5_Пятница, можно ли это поправить? »

В коде всё уже содержится. Минимальная поправка: было

Код:

rem	FOR /F "tokens=%DWeek% delims= " %%i IN ("Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье") DO Set "DWeek=%%i"
	FOR /F "tokens=%DWeek% delims= " %%i IN ("Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье") DO Set "DWeek=%DWeek%_%%i"

сделайте

Код:

	FOR /F "tokens=%DWeek% delims= " %%i IN ("Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье") DO Set "DWeek=%%i"
rem	FOR /F "tokens=%DWeek% delims= " %%i IN ("Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье") DO Set "DWeek=%DWeek%_%%i"

Кстати, оказывается понятие "номер недели в году" не так просто, как я по наивности полагал. Я считаю, что первый день недели - это неделя с 1 января. Если Вас это устраивает, то всё в порядке.

Цитата xan08:

кратенько, что происходит в этой секции »

Я уже писАл, что использовал известные приёмы для работы с датами

Я взял готовые коды, с которыми когда-то давно столкнулся, не берусь вспомнить, где. Оформил их в виде процедур, чтобы использовать по мере надобности и не изобретать велосипед. Можно найти исходные формулы, но лень.
Вот пример использования этих процедур

Код:

@Echo Off
cls
	Call :JdayGcal 01 01 2019 "N1"
	Call :JdayGcal 05 07 2019 "NX"
	
	Set /A NY=%NX%-%N1%+1
	Echo Номер дня в году %NY%

	Call :NdayInWeek 05 07 2019 "NW"
	Echo Номер дня недели %NW%
Pause
GoTo :Eof

rem Юлианский день по григорианскому календарю дд мм гггг имя_переменной
:JdayGcal
SetLocal
	Set "D=0%1" &Set "M=0%2"
	Set /A D=1%D:~-2%-100,M=1%M:~-2%-100
	Set /A A=(14-%M%)/12, Y=%3+4800-A, M=%M%+12*A-3
	EndLocal &Set /A %~4=(%D%+(153*%M%+2)/5+365*%Y%+%Y%/4-%Y%/100+%Y%/400-32045)
Exit /B

rem Номер дня в неделе дд мм гггг имя_переменной
:NdayInWeek
SetLocal
	Set "D=0%1" &Set "M=0%2"
	Set /A D=1%D:~-2%-100,M=1%M:~-2%-100  
	Set /A i=(%3-1901)*365 + (%3-1901)/4 + %D% + (!(%3 %% 4))*(!((%M%-3)^&16))
	EndLocal &Set /A %~4=(%i%+(%M%-1)*30+2*(!((%M%-7)^&16))-1+((65611044^>^>(2*%M%))^&3))%%7+1
Exit /B

На основе этих процедур решал и Вашу задачу. Увы, прямую формулу для определения номера недели в году не нашел.

YuS_2 · Отправлено: **11:53, 05-07-2019** | #8

Цитата megaloman:

Кстати, оказывается понятие "номер недели в году" не так просто, как я по наивности полагал. »

Зависит от инструмента...
powershell

Код:

get-date -uf %V #number of 01-53
get-date -uf %U #number of 00-52

Iska · Отправлено: **12:15, 05-07-2019** | #9

Цитата YuS_2:

Зависит от инструмента... »

Зависит от региона

. Потому во многих инструментах и есть параметр, какую именно неделю следует трактовать, как первую в году.

YuS_2 · Отправлено: **12:40, 05-07-2019** | #10

Цитата Iska:

Зависит от региона »

Никак не зависит. Существует международный стандарт ISO 8601, кроме того ГОСТ ИСО 8601 (межгосударственный стандарт), которые определяют четко и ясно, какая неделя считается первой в году, а какая крайней.

Цитата Iska:

Потому во многих инструментах и есть параметр, какую именно неделю следует трактовать, как первую в году. »

Самодеятельность чистейшей воды, если существует.