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 ... 48, 49, 50
 
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: 13891
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: 651

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: 13891
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: 651

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: 13891
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: 651

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: 13891
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: 9504
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
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 ... 48, 49, 50
Page 50 of 50

 
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