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\

2

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

I congratulate, a brilliant idea

3 (изменено: gudleifr, 2019-07-12 12:57:16)

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

sergey1231
> Как исправить программу или сделать новую?
0. Сначала выкинуть, все, что написано ранее.
1. Написать программу, выводящую все строки файла артикулов.
2. Изменить ее так, чтобы выводила только строки с артикулами.
3. Изменить ее так, чтобы выводила только артикулы.
4. Изменить ее так, чтобы выводила артикулы и соответствующие им картинки.
5. Изменить ее так, чтобы выводила артикулы, соответствующие им картинки и номера картинок.
6. Заменить вывод артикулов на операцию присвоения переменной артикула.
7. Заменить вывод картинок и номеров на переименование файлов.
8. Выкинуть программу и переписать ее по памяти начисто.

P.S. решения, принятые на каждом шаге могут воспрепятствовать дальнейшему продвижению. Это хорошо. Это правильно. Возвращайтесь к п.0.