Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Групповое переименование
Goto page Previous  1, 2, 3 ... 17, 18, 19 ... 49, 50, 51  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
eug.shap3



Joined: 09 May 2013
Posts: 5

Post (Separately) Posted: Thu May 09, 2013 19:36    Post subject: групповое переименование, скрипт Reply with quote

Уважаемые формучане!

Необходимо переименовать файлы (сканы страниц) чтоб все было по порядку.

файлы расположены так, что начинаются, например с 2й страницы, семь штук подряд идут через одну, например, 2 - 4 -6, на восьмой идет скачок +16, например, было 32, стало 48, а потом опять семь подряд идут +2.. и все повоторяется.

Напишите, есть ли возсожность так настроить групповое переименование, чтоб рассортировать файлы по порядку (во второй папке, соотв, нечетные).

Спасибо

Добавлено спустя 3 минуты:

Простите за ошибки, быстро печатал.
Embarassed
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu May 09, 2013 20:48    Post subject: Reply with quote

сколько всего файлов?
Back to top
View user's profile Send private message
eug.shap3



Joined: 09 May 2013
Posts: 5

Post (Separately) Posted: Thu May 09, 2013 21:13    Post subject: Reply with quote

Tol!k wrote:
сколько всего файлов?


более 4000, вручную долго...
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6151
Location: Москва

Post (Separately) Posted: Thu May 09, 2013 21:54    Post subject: Reply with quote

eug.shap3
А стандатный, описанный в справке [C2+2] чем не подходит?
_________________
Почему же, ё-моё, ты нигде не пишешь "ё"?
Back to top
View user's profile Send private message
eug.shap3



Joined: 09 May 2013
Posts: 5

Post (Separately) Posted: Thu May 09, 2013 22:05    Post subject: Reply with quote

CaptainFlint wrote:
eug.shap3
А стандатный, описанный в справке [C2+2] чем не подходит?


[C2+2] переномерует 7 файлов, номерация которых идет по порядку, напр. 2-4-8 и т.д, однако для переименования следующей части, после "скачка", это не подходит, разве что я не знаю дополнительных команд.

Указывать вручную 4000/7=571 "папок", мышкой выделяя 7 подряд - можно, но отбирает много времени + есть риск механической ошибки.

С том-то и вопрос, что нужно настроить как бы два фильтра, обычные 2-4-6, и дополнительный, типа, "начинаем с 2, а после переименования 7 файлов начинаем с +16-ти, например, 18 (2+16).

Пардон за оффтопик, я вычитал в сети, что это можно бы решить путем создания java (или другого) скрипта в других программах (упоминают Advanced Renamer), но я не программист, и комманд java не знаю.

Может, возможно создать некий скрипт для TC ?
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu May 09, 2013 22:24    Post subject: Reply with quote

Code:
@echo off
setlocal enableextensions enabledelayedexpansion
if "%~2"=="" goto :eof

set "pre=page_"
set "ext=.bmp"

set /a strt=100000+%~1
set /a end=100000+%~2
set list="%strt:~-5%_%end:~-5%.lst"
cd. >%list%

set /a cnt=%strt%
:loop
for %%a in (2 2 2 2 2 2 2 16) do (
   set /a cnt=cnt+%%a
   if !cnt! gtr %end% goto :eof
   echo %pre%!cnt:~-5!%ext%
) >>%list%
goto :loop


Сохрани как .cmd
Запусти с параметрами
0 4000
и
-1 4000
Получится 2 списка
затем Инструмент группового переименования → Загрузить имена из файла


Last edited by Tol!k on Fri May 10, 2013 19:34; edited 1 time in total
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6151
Location: Москва

Post (Separately) Posted: Thu May 09, 2013 23:10    Post subject: Reply with quote

eug.shap3 wrote:
[C2+2] переномерует 7 файлов, номерация которых идет по порядку, напр. 2-4-8 и т.д, однако для переименования следующей части, после "скачка", это не подходит, разве что я не знаю дополнительных команд.

Понятно. Я сначала понял так, что, наоборот, этот скачок уже есть и от него нужно избавиться, сделав для всех файлов единую сквозную нумерацию.
Да, в таком случае стандартный инструмент не подойдёт, таких сложных команд в нём нет.
_________________
Почему же, ё-моё, ты нигде не пишешь "ё"?
Back to top
View user's profile Send private message
eug.shap3



Joined: 09 May 2013
Posts: 5

Post (Separately) Posted: Thu May 09, 2013 23:16    Post subject: Reply with quote

Tol!k wrote:


[/code]
сохрани как .cmd
запусти с параметрами
0 4000
и
-1 4000


Ух ты, не ожидал!

А как правильно запускать полученный .cmd?

В коммандной строке TC, в папке с файлами? Или иначе?

Спасибо!
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu May 09, 2013 23:31    Post subject: Reply with quote

Quote:
А как правильно

Как угодно. Получится 2 списка
затем
Инструмент группового переименования > Загрузить имена из файла
Back to top
View user's profile Send private message
eug.shap3



Joined: 09 May 2013
Posts: 5

Post (Separately) Posted: Thu May 09, 2013 23:59    Post subject: Reply with quote

THANK YOU VERY MUCH Very Happy Very Happy Very Happy
Back to top
View user's profile Send private message
RuMaS



Joined: 15 Apr 2013
Posts: 5
Location: Odessa

Post (Separately) Posted: Tue Jun 11, 2013 13:41    Post subject: Reply with quote

Flasher
Прошу прощения, что я делаю неправильно? Во втором диалоговом окне, чтобы удалить искомый текст, вводимый в первом, надо ставить "*"?
Пример: файл 111.decrypted00.doc надо сделать 111.doc
В первом окне ввожу .decrypted00, во втором "*".
Выскакивает ошибка:

Code:
---------------------------
Windows Script Host
---------------------------
Сценарий:   C:\Program Files (x86)\Total Commander\Utilites\rename.vbs
Строка:   25
Символ:   3
Ошибка:   Недопустимый вызов или аргумент процедуры
Код:   800A0005
Источник:    Ошибка выполнения Microsoft VBScript

---------------------------
ОК   
---------------------------


Извините, если что-то банальное - никогда со скриптами в ТС не работал, а очень надо.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Jun 11, 2013 13:54    Post subject: Reply with quote

Памятка новичку по скриптам (Читать обязательно!)
> Если скрипт не работает! > 3)
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
RuMaS



Joined: 15 Apr 2013
Posts: 5
Location: Odessa

Post (Separately) Posted: Tue Jun 11, 2013 18:25    Post subject: Reply with quote

Flasher
Прошу прощения:
параметр равен 1
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Jun 11, 2013 20:02    Post subject: Reply with quote

Code:
' Условие: путь запуска - пустой
Question

Понял проблему. Исправлено.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
RuMaS



Joined: 15 Apr 2013
Posts: 5
Location: Odessa

Post (Separately) Posted: Wed Jun 12, 2013 13:07    Post subject: Reply with quote

Flasher
Спасибо огромное, всё получилось. Хотя в конце вылезла ошибка:
Code:
---------------------------
Windows Script Host
---------------------------
Сценарий:   C:\Program Files (x86)\Total Commander\Utilites\rename.vbs
Строка:   48
Символ:   3
Ошибка:   Разрешение отклонено
Код:   800A0046
Источник:    Ошибка выполнения Microsoft VBScript

---------------------------
ОК   
---------------------------


 !  Avada:
Оформление этого и предыдущих постов приведено в соответствие с правилами форума (убран оверквотинг), также нормально оформлен код.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 17, 18, 19 ... 49, 50, 51  Next
Page 18 of 51

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group