Пакетное переименование файлов(.jpg) в разных папках (BAT)

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Пакетное переименование файлов(.jpg) в разных папках (BAT) (http://forum.oszone.net/showthread.php?t=346071)

Zharkyn

08-08-2020 19:31 2930535

Пакетное переименование файлов(.jpg) в разных папках (BAT)

Смотрите у меня есть папки:
asteklo1, asteklo2, asteklo3, asteklo4...
в каждой из них содержится по 2 файла (.jpg)
Мне нужен способ (тот же bat), для того чтобы пакетно переименовать все эти файлы (.jpg) -> в название папки и с нижним подчеркиванием с нумерацией файла
Пример:
папка "asteklo1", в нем должны находится "asteklo1_1" и "asteklo1_2"
и так с каждой папкой, кто-то шарит за эту тему?
я только создал пакетно все эти папки с разными названиями:
for /f %%i in (list.txt) do @md "%%~i"
ну естественно и в этом list.txt находились все названия папок строчками

Uragan66

09-08-2020 11:56 2930594

Zharkyn, код нужен именно на cmd ? Powershell не подойдёт ?

Код:

$dr = 'J:\Download'



ForEach ($ln in (Get-ChildItem -Path $dr -Directory -Recurse | Foreach {$_.FullName})) {

Get-ChildItem $ln -Include *.jpg -Recurse | Foreach {$i=1} {Rename-Item $_ -NewName ("$($_.Directory.Name)_{0:D1}.jpg" -f $i++) -WhatIf}

}

В переменную $dr прописываете путь корневой директории (диска), где у Вас размещены нужные папки с файлами.
Проверяете правильность переименования сначала в консоли.
Если всё устроит, нужно будет убрать параметр -WhatIf

megaloman

09-08-2020 15:07 2930612

CMD

Код:

@Echo Off

        Set "BoxIn=Z:\Box_In"

        Set "MaskDir=asteklo*.*"

        Set "MaskFile=*.jpg"



        Set "NoReg=.*_[0-9]*.jpg"

        FOR /F "usebackq delims=" %%d IN (`2^>nul Dir "%BoxIn%\%MaskDir%" /B /S /A:D`) DO (

                Set /A N=0

                FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%%d\%MaskFile%" /B /A:-D`) DO (

                        FOR /F "usebackq delims=" %%a IN (`Echo %%f^|FINDSTR /E /I /V /R /C:"%NoReg%"`) Do (

                                Call :MyRen "%%d" "%%a"

                        )

                )

        )        

Exit /B



:MyRen

        Set /A N+=1

        If Exist "%~1\%~nx1_%N%%~x2" GoTo :MyRen 

        Ren "%~1\%~2" "%~nx1_%N%%~x2"

Exit /B

greg zakharov

09-08-2020 17:41 2930616

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

Код:

(Get-ChildItem X:\common\asteklo*\*.jpg).ForEach{$x=++$x-eq2?2:1;Move-Item $_.FullName "$($_.Directory)\$($_.Directory.Name)_$x.jpg"}

Так что следует ли от автора ждать подробностей или причитаний, дескать, "копипаст не робит", вопрос.

Vadikan

10-08-2020 11:43 2930666

См. также Как массово переименовать файлы по маске в PowerShell

Время: 23:35.