1

Тема: Как исправить программу или сделать новую?

необходимо переименовать файлы 710f7fa45c6911e9648d2cfda1bf577d.jpg
cde9bde81a5b11e96b882cfda1bf577d.jpg
2af8db480fca11e71a9a141877341409.jpg

в артикул беря артикул из файла namefile.txt по названию картинка т.е. получить 020701BT.jpg
040109GT.jpg

также необходимо чтобы для картинки cde9bde81a5b11e96b882cfda1bf577d.jpg название получалось путем добавления артикул 020701BT плюс 1
а для картинку d266b9021a5b11e96b882cfda1bf577d.jpg название получалось путем добавления артикул 020701BT плюс 2
т.е. получаем 020701BT1.jpg 020701BT2.jpg




namefile.txt прилагаю внизу

файл
<Артикул>020701BT</Артикул>
<Картинка>71/710f7fa45c6911e9648d2cfda1bf577d</Картинка>
<Картинка>cd/cde9bde81a5b11e96b882cfda1bf577d</Картинка>
<Картинка>d2/d266b9021a5b11e96b882cfda1bf577d</Картинка>
<Артикул>040109GT</Артикул>
<Картинка>2a/2af8db480fca11e71a9a141877341409</Картинка>
<Картинка>2d/2d2190400fca11e71a9a141877341409</Картинка>
<Артикул>7696</Артикул>
<Картинка>67/670cfeec16b111e6cd8f141877341409</Картинка>

программа

@Echo Off
Set "InFile=C:\t\*.jpg"
Set "ArtFile=C:\t\namefile.txt"

Set /A N0=100001
Set /A N=%N0%-1

FOR /F "usebackq tokens=1,2,4 delims=^<>/ " %%i IN ("%ArtFile%") DO (
If "%%k"=="" (Set /A N+=1 &Call Set "@@Art%%N%%=%%j")
If Not "%%k"=="" Call Set "@@Fnm%%N%%=%%k"
)
FOR %%f IN ("%InFile%") DO (
FOR /L %%i IN (%N0%,1,%N%) DO Call :ArtRen "%%f" "%%@@Fnm%%i%%" "%%@@Art%%i%%"
)
Exit /B

:ArtRen
If /I "%~n1"==%2 Ren %1 "%~3%~x1"
Exit /B\