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 ... , 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
Flasher



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

Post (Separately) Posted: Tue Aug 06, 2019 04:55    Post subject: Reply with quote

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



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Tue Aug 06, 2019 05:07    Post subject: Reply with quote

Спасибо, теперь ок. Ну и в завершение хотелось бы вариант только для eng, который как в случае с 1-ым вариантом работал бы с группой выделенных файлов (тех же 4-х типов субтитров), и именовал бы их по счётчику.
файл.avi/mkv/mp4 - файл.eng.srt, файл 2.eng.sub, файл 3.eng.srt, файл 4.eng.ssa и т.п.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Tue Aug 06, 2019 05:30    Post subject: Reply with quote

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



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Tue Aug 06, 2019 05:45    Post subject: Reply with quote

Если .rus, пропускать, если .eng - переименовывать в числе прочих выбранных.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Tue Aug 06, 2019 06:12    Post subject: Reply with quote

Code:
'========================== VBS ===========================
' Переименование базовых имён выбранных субтитров в базовые
' имена одиночных видеофайлов и расширение .eng по счётчику

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

' Параметры: %WL <маска расширений видео>
' Пример:    %WL *.avi;*.mkv;*.mp4
'==========================================================
Option Explicit
Dim Items, List, BN, F, Ext, i, FN
If WSH.Arguments.Count = 0 Then WSH.Quit
With CreateObject("Scripting.FileSystemObject")
  Set Items = CreateObject("Shell.Application")._
  NameSpace(.GetAbsolutePathName("")).Items
  Items.Filter 8256, WSH.Arguments(1)
  If Items.Count <> 1 Then WSH.Quit
  Set List = .OpenTextFile(WSH.Arguments(0),,,-1)
  BN = .GetBaseName(Items.Item(0).Path)
  Set Items = Nothing
  Do: F = List.ReadLine
    If Right(F, 1) <> "\" Then
      Ext = .GetExtensionName(F)
      If InStr(" srt sub ass ssa ", " " & LCase(Ext) & " ") Then
        If Right(LCase(F), 8) <> ".rus." & LCase(Ext) Then
          FN = BN & ".eng." & Ext : i = 0
          While (.FileExists(FN) OR .FolderExists(FN))
            i = i + 1 : FN = BN & " " & i & ".eng." & Ext
          Wend : .GetFile(F).Name = FN
        End If
      End If
    End If
  Loop Until List.AtEndOfStream
End With
List.Close : Set List = Nothing

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



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Tue Aug 06, 2019 06:15    Post subject: Reply with quote

Спасибо.
Back to top
View user's profile Send private message
N1ghtwayfarer



Joined: 27 Jan 2020
Posts: 1

Post (Separately) Posted: Mon Jan 27, 2020 12:48    Post subject: Reply with quote

Подскажите пожалуйста, в теме такого не нашел. Есть папка с музыкой вида:

(название трека) - (название группы)

Надо переименовать в вид:

(название группы) - (название трека)

Проще говоря, поменять местами название трека и название группы. Названия все разной длинны, поэтому через счетчики не получается. Вроде простая задача, но я что то не допетрю никак.
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Mon Jan 27, 2020 14:35    Post subject: Reply with quote

N1ghtwayfarer wrote:
в теме такого не нашел.
Нужно лучше стараться: %WL "(\(.+\)) (\(.+\))" "$2 $1"
Это что касается скриптов. А это что касается ИГП.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10235
Location: Россия, Саратов

Post (Separately) Posted: Mon Jan 27, 2020 15:22    Post subject: Reply with quote

N1ghtwayfarer
Как верно было сказано, плохо искали. Типовая задача, решение которой есть много где, начиная со справки.
Замечание за нарушение правил форума.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
ioruslan88



Joined: 05 May 2020
Posts: 7

Post (Separately) Posted: Tue May 05, 2020 23:20    Post subject: Reply with quote

Всем привет! Требуется решение проблемы, желательно подробно объяснить для нуба.

Есть 30 файлов (фото) с хаотичными названиями.
Есть 3 папки с названиями "201" "202" "203"
Нужно чтобы при перемещении (перетаскивании) 10 файлов в папку "201" файлы переименовывались в "201_1" "201_2"....
Далее при перемещении 10 файлов в папку "202" файлы переименовывались в "202_1" "202_2"....

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



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

Post (Separately) Posted: Tue May 05, 2020 23:48    Post subject: Reply with quote

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



Joined: 05 May 2020
Posts: 7

Post (Separately) Posted: Wed May 06, 2020 00:59    Post subject: Reply with quote

В этой теме акцент на количестве файлов, у меня же переносится разное количество изображений. В какую то папку 5 файлов, в какую то 11...
Главное чтобы производилось переименование файлов по названию папки.
Я в теме не нашел ответ(
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Wed May 06, 2020 01:28    Post subject: Reply with quote

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



Joined: 05 May 2020
Posts: 7

Post (Separately) Posted: Wed May 06, 2020 01:55    Post subject: Reply with quote

Flasher wrote:
Первостепенная же задача в перемещении, а уже потом в переименовании.
Далее речь шла только о 10 файлах, никакого критерия для 5/11/и т. д. не предоставлено.


Спасибо! Нашел ответ...
1. Создал папки...1,2,3
2. Перетащил в каждую папку нужные файлы
3. Далее...CTRL+B....CTRL+M
4. УКАЗАЛ ПАРАМЕТР [P]...имена файлов стали как имена папок.
5. Потом указываю параметр [C]...но тут проблема...все файлы кучей начинают менять порядковые номера....то есть 1_1, 1_2, 1_3, 2_4, 2_5, 3_6...

А должно быть: 1_1, 1_2, 1_3, 2_1, 2_2, 3_1

Как решить проблему?
Back to top
View user's profile Send private message
Flasher



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

Post (Separately) Posted: Wed May 06, 2020 02:54    Post subject: Reply with quote

ioruslan88
Оверкотить здесь не надо. Все вопросы после прочтения памятки сюда.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
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 ... , 49, 50, 51  Next
Page 50 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