Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Alexander_88,
Вот батник. Если Вы сделаете на него на рабочем столе иконку, то, затягивая в проводнике файл на нее, получите нужный результат с переименованием.
Либо можете распорядиться этим батником и файлом как это показал Iska
Код: Выделить весь код
@Echo Off

Set "Full=%~1" 
Set "NFile0=%~n1"  
Set "Ext=%~x1"

Set "NFile=%NFile0: =z%"
Set "NFile=%NFile:-=z%"

FOR /L %%i IN (1,1,9999) DO Call Set /A M=1%%NFile:~-%%i%%*10 2>nul ||(Set /A N=%%i &GoTo :Cont)
:Cont
If %N% EQU 1 Exit /B 1

Set /A N=%N%-1

Call Set /A M=%%NFile0:~-%N%%%*1
If %M% EQU 0 Exit /B 0
Set /A M=%M%-1

Call Set "NFile=%%NFile0:~0,-%N%%%%M%%Ext%"

Ren "%Full%" "%NFile%" ||Exit /B 4
Exit /B 0

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 01-04-2018 в 21:26.

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:14, 01-04-2018 | #7