Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Пакетное переименование с создание сложных имён файлов

Ответить
Настройки темы
CMD/BAT - [решено] Пакетное переименование с создание сложных имён файлов

Новый участник


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

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


вот собственно поискав в интернете и если не ошибаюсь на этом форуме нашол генератор пароля и решил его приспособить для пакетной переименовки файлов (более 12000 файлов) но попробовав получается это сделать только по одному файлу (переименовка) тоесть необходимо каждый раз запускать bat для изменения имени одного файла.. помогите решить проблему я так понимаю решение остаётся за малым.. заранее спасибо..
Код: Выделить весь код
SetLocal EnableDelayedExpansion
set I=15
set N=65
set CHAR=0123456789_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWQYZ
:LOOP
set /a R=%N%*%random%/32768
set NM=!CHAR:~%R%,1!%NM%
set /a I-=1
if %I% GTR 0 goto LOOP
for %%i in (*.jpg) do call ren "%%i" "%%NM%%.jpg"

Отправлено: 20:43, 27-11-2011

 

Старожил


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

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


Код: Выделить весь код
@Echo Off
SetLocal EnableDelayedExpansion
:: Расширение файлов для переименования
Set ext=txt
:: Путь к папке с файлами
Set FPath=.

For /F "tokens=*" %%A In ('Dir "%FPath%\*.%ext%" /B /A-D') Do (
Call :RndGen
Ren "%FPath%\%%A" "!NM!.%ext%"
)
Pause && Exit

:RndGen
Set NM=
Set I=15
Set N=65
Set Charset=0123456789_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWQYZ
:RndGenLoop
Set /A R=%N%*%Random%/32768
Set NM=!Charset:~%R%,1!%NM%
Set /A I-=1
If %I% GTR 0 GoTo RndGenLoop
Стандартное напоминание: если в именах файлов предполагается наличие русских букв - сохраняйте в 866 кодировке.
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:46, 27-11-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для gora

Ушёл из жизни


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

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


Цитата Anonymоus:
Set N=65»
Уточнение
Код: Выделить весь код
Set N=63
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:41, 27-11-2011 | #3


Новый участник


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

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


Anonymоus, спасибо большущее, работает как часики.

Отправлено: 23:57, 27-11-2011 | #4


Старожил


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

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


gora, все верно, и правда, 63. Скопировал из первого поста, не глядя.

Отправлено: 02:27, 28-11-2011 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Пакетное переименование с создание сложных имён файлов

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Пакетное переименование файлов ArsenBespalov Скриптовые языки администрирования Windows 9 11-08-2016 03:56
CMD/BAT - [решено] Пакетное переименование файлов (синхронизирование имён одного расширения с другим) 19w85 Скриптовые языки администрирования Windows 13 04-10-2013 22:02
[решено] Пакетное переименование ярлыков SimSim Хочу все знать 9 24-10-2012 10:44
CMD/BAT - [решено] Пакетное переименование с использованием алфавитного счётчика kotik147 Скриптовые языки администрирования Windows 6 13-05-2010 00:03
Ошибка - Искажение имён файлов vagifali Microsoft Windows 2000/XP 0 28-06-2008 15:38




 
Переход