Início / computer / Perguntas / 1705686
Accepted
acgbox
Asked: 2022-02-19 08:52:23 +0800 CST

Remover extensões de arquivo com "extensão de correspondência de eco" em um script em lote?

  • 772

Eu tenho este script em lote:

set driveletter=F

call :delext "*.foo"
call :delext "*.bar"
call :delext "*.pdf"


:: funcion delext
@echo off
pause
goto:eof
:delext
  set delext=%1
  del /f/q/s %driveletter%:\"%delext%"
goto:eof

O que eu preciso é de um "eco" se houver uma correspondência com qualquer uma das extensões.

Por exemplo, se houver um arquivo chamado test.pdfe como ele corresponde à extensão *.pdf, gostaria de um eco match pdfna saída (se não houver correspondência, não mostre nada.)

Como eu posso fazer isso?

windows batch-file

1 respostas

  1. Best Answer

    Eu sou um mega fã de programação em lote funcional.

    Minha solução aqui pode ser uma bagunça desleixada, pois não dormi QUASE o suficiente, mas posso garantir que funciona e faz mais ou menos o que você está pedindo.

    Esta é possivelmente a maneira mais ineficiente de fazer isso, mas se eu escrevesse o lote para fazer todas as extensões por diretório, manter o controle se eu falar sobre elas fica um pouco mais complicado, mas seria uma execução mais rápida.

    Além disso, as funções poderiam ser reduzidas a muito pouco código se eu não usasse variáveis ​​para que você pudesse acompanhar o que estava acontecendo.

    @echo off

:: Set the starting path that we will be searching.
Set pathToSearch=C:\users\yo_mamma
cd /d "%pathToSearch%"
if not "%ERRORLEVEL%"=="0" echo Path %PathToSearch% not found&&exit /b 1


Set ExtensionsToCheck="*.foo" "*.txt" "*.bar" "*.pdf"
call :EnumerateExtensions %ExtensionsToCheck%
goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Function "EnumerateExtensions"
:EnumerateExtensions
if "%~1"=="" goto :EOF
Set fileMatchFound=FALSE
Set searchFileMask=%1
for /r %%p in ('.') do call :EnumerateDirectories "%%p" %searchFileMask%
shift
goto :EnumerateExtensions

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Function "EnumerateDirectories"
:EnumerateDirectories
Set directoryPath=%~DP1
Set fileMask=%~2
for %%f in (%fileMask%) do call :MatchFound "%directoryPath%" "%fileMask%" "%%f"
goto :EOF

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Function "MatchFound"
:MatchFound
if not "TRUE"=="%fileMatchFound%" echo ****** Mask match found:  %~2&&Set fileMatchFound=TRUE
:: echo del %~1%~3 <-- delete the found file here..
goto :EOF
    • 1

relate perguntas