Copiando arquivos baseados em seu nome para pastas de destino correspondentes

0

Eu tenho arquivos assim.

Makeup_Artists_A_Kreations_Hair_And_Beyond Makeup_Artists_A_Kreations_Hair_And_Beyond1 Makeup_Artists_A_Kreations_Hair_And_Beyond2 Makeup_Artists_A_Kreations_Hair_And_Beyond3 Makeup_Artists_A_Kreations_Hair_And_Beyond4 Makeup_Artists_A_Kreations_Hair_And_Beyond5 Make_Artist_JustinWorks Make_Artist_JustinWorks1 Make_Artist_JustinWorks2

Eu queria mover / copiar esses arquivos para a pasta nomeada. A_Kreations_Hair_And_Beyond e JustinWorks .

Quaisquer entradas /?

Notas / Dicas: Eu tenho a estrutura de pastas pronta e Make Artist é comum em todos os arquivos. Estou cansado de tentar todos os resultados da pesquisa de entradas neste site.

obrigado

    
por user1586957 29.10.2016 / 10:20

1 resposta

2

As soluções Powershell e batch não são tão diferentes. Passado em Powershell / cmd - console

Lote:

For %A in ("JustinWorks" "A_Kreations_Hair_And_Beyond"
  ) Do (if not Exist ".\%~A" MD ".\%~A"
    Move ".\*%~A*" ".\%~A\"
)

PowerShell

"JustinWorks", "A_Kreations_Hair_And_Beyond"|
  %{$Name=$_;if (!(Test-Path(".\$_"))) {MD ".\$_"};
    GCI "*$Name*" |%{MV -path "$_" -dest ".\$Name\" -ea silentlycontinue}}

Editar

Uma solução de arquivo em lote assumindo que o PreFix é constantemente Make_Artist_ O var BaseFldr deve ser alterado de acordo. O comando Move /Y sobrescreverá arquivos já presentes na subpasta, para que seja solicitado a alteração para Move /-Y

:: move2Sub.cmd :::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off & setlocal EnableExtensions EnableDelayedExpansion
Set BaseFldr="Q:\Test16-11"
PushD %BaseFldr% ||(Echo Can't cd to %BaseFldr% & Pause & Goto :eof)
Set "PreFix=Makeup_Artists_"
For /F "delims=" %%A in (
  'Dir /B/ON/A-D "%PreFix%*" ^>Nul 2^>^&1'
    ) Do Call :CheckFile "%%~nxA"
Goto :Eof
:CheckFile "FullName"
If Not Exist %1 Goto :Eof
Set "File=%~n1"
:: remove Prefix
Set "Name=!File:%PreFix%=!"
:: check for trailing number, should already be processed
:Again
Echo:%Name:~-1%|Findstr "[0-9]" >Nul 2>&1 &&(Set "Name=!Name:~0,-1!"&Goto :Again)
If Not Exist "%Name%" MD "%Name%"
Move /Y "%PreFix%%Name%*%~x1" "%Name%" >NUL
Goto :Eof

HTH

    
por 29.10.2016 / 21:37