Sim, é possível obter as datas e os nomes dos arquivos
anteriores 05 dias pregresso a data atual via bat/cmd:
Lê a data do sistema e transformamos em números: 2019/01/01 = 20190101
Esse número subtraímos o número da data - 05 dias: 20190101-20181227=8874
Fazemos o mesmo com todos os meses obtendo os dias a subtrair mês a mês
Dai filtrando via for
looping o que for menor/igual a 05 e maior/igual a 06
Usamos um loop for
(4 + 2020 até 2100), para comparar se o ano atual é bissexto
Num array: Mês=_i Dias_Subtrair=_j
set _m_d=01-8874,02-75,03-!_f!..
As variáveis mês-dia comparadas com a posição %%i-%%j
, dá quanto subtrair
Daí, se o dia é menor que 06, subtrair o %%j
, senão, subtrair 1
Observações:
Arquivo.log será criado na pasta %temp% e movida para pasta !_path_pdf!
Conteúdo do arquivo.log será copiado para o seu ctrl+c
Edite o comando: Set "_path_pdf=."
Substituindo o valor: =.
por =drive:\pasta\onde\tem\os\pdfs
De forma que fique: set "_path_pdf=drive:\pasta\onde\tem\os\pdfs"
Script -05_dias.cmd:
@echo off && setlocal enableextensions enabledelayedexpansion
rem :: Edite variavel _path_pdf substituindo por drive/pasta/dos/seus/pdf's ::
cd /d "%~dp0" && set "_path_pdf=." && cd /d "!_path_pdf!"
rem :: Compondo string para uso com findstr onde verifica ano atual/bisexto ::
for /l %%l in (2020 4 2100)do set _b6to=!_b6to!%%l,
set "_do=wmic Path Win32_LocalTime Get Day^,Month^,Year"
rem :: Obtendo a data com layout previsível e sem possível customização do usurario ::
for /f "tokens=1-3delims= " %%a in ('!_do!^|findstr /r [0-9]')do (
set "_y=%%c" & set "_dd=0%%a" & set "_mm=0%%b" & set "_m=!_mm:~-2!"
set "_d=!_dd:~-2!" & set "_dt=!_y!_!_m!_!_d!" & set "_dt_str=!_y!!_m!!_d!"
) && set /a "_loop=1!_d!-101" & set "_cnt=0" & set "_log=%temp%\!_dt!.log"
rem :: Compondo um "pseudo" array para uso em alguns loopings for junto call :^[ ::
rem :: Observando que o 01 = mes c 2 digitos e o 8875, são os dias para subtrair ::
rem :: os dias/datas pregressas tratadas como mumeros. 20190105 -8875 = 20181231 ::
rem :: Procurando ano bisexto na string com findstr para verificar se ano bisexto ::
echo/!_b6to!|findstr /lic:"!_y!,">nul && set /a "_f=77" || set /a "_f=78"
set "_m_d=01-8874,02-75,03-!_f!,04-75,05-76,06-75,07-76,08-75,09-75,10-75,11-75,12-76"
rem :: Identificando mes/dias quantitativos para subtrair na data atual -05 dias ::
for %%~ in (!_m_d!)do for /f "tokens=1,2delims=-" %%i in ('echo/%%~')do (
if 1!_d! gtr 105 if /i [%%i] equ [!_m!] call :^] %%j "5 -1 1" 5 & goto :^)
if 1!_d! leq 105 if /i [%%i] equ [!_m!] call :^] %%j "1 +1 5" 1 & goto :^)
)
:^]
rem :: 1) Datas sendo subtraidas para obter intervalo de 05 dias anteriores a !_dt! ::
rem :: 2) Compondo layout/pattern do intervalo de datas e buscas dos Arquivos .PDFs ::
rem :: 3) Buscando e registrando resultados obtidos no Arquivo log %temp%\!_dt!.log ::
echo/Listagem do^(s^) Arquivo^(s^) Desatualizados em !_dt:_=/!:>"!_log!" && for /l %%l in (%~2)do (
if %%l leq !_loop! (set /a "_d[%%l]=!_dt_str!-%%l") else (set /a "_d[%%l]=!_dt_str!-%1" & set /a "_dt_str+=1")
set "_str_%%l=!_d[%%l]!" & call set "_str_%%l=*_!_str_%%l:~,4!_!_str_%%l:~4,2!_!_str_%%l:~-2!_*.pdf"
if /i exist ".\!_str_%%l!" where .:"!_str_%%l!">>!_log!
)
rem :: 4) Listando os resultados das acoes e portando dados p/ crtl+c/ctrl+v e tela ::
for /f "tokens=*delims=:" %%i in ('type "!_log!"^|find /c ".pdf"')do set "_cnt=%%i"
>> !_log! echo/Total de Arquivo^(s^) Desatualizado^(s^): !_cnt! && type "!_log!" | clip
>nul move /y "!_log!" . && exit /b
:^)
type ".\!_dt!.log" && endlocal & goto :eof
Resultado:
Usando um bat que muda a data várias vezes e testando as sáidas/dias:
Necessário credencial de administrador
Obs.: O for
no formato data do meu sistema, verifique o seu pelo cmd: date <nul|find "("
Se necessário mude no (10-01-2018 12-05-2018 21-05-2018 05-01-2019 01-10-2019 05-12-2019)
alterando para conformidade do seu sistema.
@echo off && setlocal enableextensions enabledelayedexpansion
mode con cols=60 lines=15 & title SO_pt-BR_Q376119
rem :: data no formato yyyy-mm-dd, apenas altere para o layout de seu sistema:
for %%i in (10-01-2018 12-05-2018 21-05-2018 05-01-2019 01-10-2019 05-12-2019)do (
>nul date %%i
echo/Data em !date! & call :SO_pt-BR_Q376119
)
:SO_pt-BR_Q376119
@echo off && setlocal enableextensions enabledelayedexpansion
set "_pdf_folder=." && cd /d "!_pdf_folder!"
for /l %%l in (2020 4 2100)do set _b6to=!_b6to!%%l,
set "_do=wmic Path Win32_LocalTime Get Day^,Month^,Year"
for /f "tokens=1-3delims= " %%a in ('!_do!^|findstr /r [0-9]')do (
set "_y=%%c" & set "_dd=0%%a" & set "_mm=0%%b" & set "_m=!_mm:~-2!"
set "_d=!_dd:~-2!" & set "_dt=!_y!_!_m!_!_d!" & set "_dt_str=!_y!!_m!!_d!"
) && set /a "_loop=1!_d!-101" & set "_cnt=0" & set "_log=%temp%\!_dt!.log"
echo/!_b6to!|findstr /lic:"!_y!,">nul && set /a "_f=77" || set /a "_f=78"
set "_m_d=01-8874,02-75,03-!_f!,04-75,05-76,06-75,07-76,08-75,09-75,10-75,11-75,12-76"
for %%~ in (!_m_d!)do for /f "tokens=1,2delims=-" %%i in ('echo/%%~')do (
if 1!_d! gtr 105 if /i [%%i] equ [!_m!] call :^] %%j "5 -1 1" 5 & goto :^)
if 1!_d! leq 105 if /i [%%i] equ [!_m!] call :^] %%j "1 +1 5" 1 & goto :^))
:^]
echo/Listagem do^(s^) Arquivo^(s^) Desatualizados em !_dt:_=/!:>"!_log!" && for /l %%l in (%~2)do (
if %%l leq !_loop! (set /a "_d[%%l]=!_dt_str!-%%l") else (set /a "_d[%%l]=!_dt_str!-%1" & set /a "_dt_str+=1")
set "_str_%%l=!_d[%%l]!" & call set "_str_%%l=*_!_str_%%l:~,4!_!_str_%%l:~4,2!_!_str_%%l:~-2!_*.pdf"
if /i exist ".\!_str_%%l!" where .:"!_str_%%l!">>!_log!
)
for /f "tokens=*delims=:" %%i in ('type "!_log!"^|find /c ".pdf"')do set "_cnt=%%i"
>>!_log! echo/Total de Arquivo^(s^) Desatualizado^(s^): !_cnt! |clip & exit /b
:^)
type "!_log!" & timeout /t 7 >nul & cls & endlocal && exit/b
Resultado:
Update - Para os interessados na recompensa
Abaixo um gerador de arquivos pdf que obedecem o layout da pergunta.
Observações:
Para gerar em anos anteriores é só mudar a data no sistema para ano desejado
Gera arquivos em modo .txt renomeados p .pdf de 2019-01-01 até 2019-12-31
Após gerar os arquivos é possível testar as saídas das respostas postadas.
Script gera_pdf.cmd:
@echo off && setlocal enableextensions enabledelayedexpansion
set "_do=wmic Path Win32_LocalTime Get Day^,Month^,Year" & for /l %%l in (2020 4 2100)do set "_leap=!_leap!%%l,"
for /f "tokens=1-3delims= " %%a in ('!_do!^|findstr /r [0-9]')do set "_y=%%c" & set "_dd=0%%a" & set "_mm=0%%b"
set "_m=!_mm:~-2!" && set "_d=!_dd:~-2!" && set "_dt=!_y!_!_m!_!_d!" && set /a "_l=!_mm:~1!-1" && set /a "_int=0"
echo/!_leap!|findstr /lic:"!_y!," >nul && (set /a _f=2, _fev=29, _ano=366) || (set /a _f=3, _fev=28, _ano=365)
set "_m_d=01-31,02-!_fev!,03-31,04-30,05-31,06-30,07-31,08-31,09-30,10-31,11-30,12-31" & set "_log=%temp%\!_dt!.log"
set "_i=-1" & set "_soma=# 0 !_f! 0 1 0 1 0 0 1 0 1 0" & call set "_soma=!_soma!" && set "_soma=%_soma: ="
set /a _i+=1&set "_soma!_i!=%" && set /a _soma=0, _alvo=0&& for /l %%S in (0 1 !_l!)do if not "%%S" == "!_l!" (set /a "_soma+=%%S") else set /a _cnt=%%S * 31 - !_soma!
call set /a "_alvo=!_cnt! + !_dd:~1! - 6" && set "_p=!_dd:~1!" & set /a "_cnt+=!_p!" & for %%I in (!_m_d!)do (
for /f "tokens=1,2delims=-" %%i in ('echo/%%I')do for /l %%x in (1 1 %%j)do set /a "_int+=1" & (
if %%x leq 9 (set "_x=%%i_0%%x" & set "_a=0%%x!_a!") else (set "_x=%%i_%%j" & set "_a=%%x!_a!")
call set _random=%random% && call echo/where .:*_!_y!_%%i_!_a:~0,2!_!_x:_=!.pdf >"!_random: =!_!_y!_%%i_!_a:~0,2!_%%i%%j.pdf"
))
)
- - -
Update: sem comentários e portado para arquivos de qualquer extensão, apenas e use a variável set _ext=pdf
, trocando o valor pdf
pela extensão desejada, observando de não usar "." na variável.
@echo off && setlocal enableextensions enabledelayedexpansion
set "_ext=pdf" & set "_do=wmic Path Win32_LocalTime Get Day^,Month^,Year"
cd /d "%~dp0" && set "_path_pdf=." && cd /d "!_path_pdf!"
for /l %%l in (2020 4 2100)do set _b6to=!_b6to!%%l,
for /f "tokens=1-3delims= " %%a in ('!_do!^|findstr /r [0-9]')do (
set "_y=%%c" & set "_dd=0%%a" & set "_mm=0%%b" & set "_m=!_mm:~-2!"
set "_d=!_dd:~-2!" & set "_dt=!_y!_!_m!_!_d!" & set "_dt_str=!_y!!_m!!_d!"
) && set /a "_loop=1!_d!-101" & set "_cnt=0" & set "_log=%temp%\!_dt!.log"
echo/!_b6to!|findstr /lic:"!_y!,">nul && set /a "_f=77" || set /a "_f=78"
set "_m_d=01-8874,02-75,03-!_f!,04-75,05-76,06-75,07-76,08-75,09-75,10-75,11-75,12-76"
for %%~ in (!_m_d!)do for /f "tokens=1,2delims=-" %%i in ('echo/%%~')do (
if 1!_d! gtr 105 if /i [%%i] equ [!_m!] call :^] %%j "5 -1 1" 5 & goto :^)
if 1!_d! leq 105 if /i [%%i] equ [!_m!] call :^] %%j "1 +1 5" 1 & goto :^)
)
:^]
echo/Listagem do^(s^) Arquivo^(s^) Desatualizados em !_dt:_=/!:>"!_log!" && for /l %%l in (%~2)do (
if %%l leq !_loop! (set /a "_d[%%l]=!_dt_str!-%%l") else (set /a "_d[%%l]=!_dt_str!-%1" & set /a "_dt_str+=1")
set "_str_%%l=!_d[%%l]!" & call set "_str_%%l=*_!_str_%%l:~,4!_!_str_%%l:~4,2!_!_str_%%l:~-2!_*.!_ext!"
if /i exist ".\!_str_%%l!" where .:"!_str_%%l!">>!_log!
)
for /f "tokens=*delims=:" %%i in ('type "!_log!"^|find /c ".!_ext!"')do set "_cnt=%%i"
>> !_log! echo/Total de Arquivo^(s^) Desatualizado^(s^): !_cnt! && clip <"!_log!"
>nul move /y "!_log!" . & exit /b
:^)
type ".\!_dt!.log" && endlocal & goto :eof