Групповое переименование

[Flasher]

Убрал я этот Replace, мешал только.

[Dimsok]

Спасибо, теперь ок. Ну и в завершение хотелось бы вариант только для eng, который как в случае с 1-ым вариантом работал бы с группой выделенных файлов (тех же 4-х типов субтитров), и именовал бы их по счётчику.
файл.avi/mkv/mp4 - файл.eng.srt, файл 2.eng.sub, файл 3.eng.srt, файл 4.eng.ssa и т.п.

[Flasher]

А если выбранные файлы уже имеют .rus/.eng, игнорировать?

[Dimsok]

Если .rus, пропускать, если .eng - переименовывать в числе прочих выбранных.

[Flasher]

Код: Выделить всё

'========================== 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

[Dimsok]

Спасибо.

[N1ghtwayfarer]

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

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

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

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

Проще говоря, поменять местами название трека и название группы. Названия все разной длинны, поэтому через счетчики не получается. Вроде простая задача, но я что то не допетрю никак.

[Flasher]

в теме такого не нашел.

Нужно лучше стараться: %WL "(\(.+\)) (\(.+\))" "$2 $1"
Это что касается скриптов. А это что касается ИГП.

[Avada]

N1ghtwayfarer
Как верно было сказано, плохо искали. Типовая задача, решение которой есть много где, начиная со справки.
Замечание за нарушение правил форума.

[ioruslan88]

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

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

Спасибо!

[Flasher]

ioruslan88
Тут больше этот тред подходит.

[ioruslan88]

В этой теме акцент на количестве файлов, у меня же переносится разное количество изображений. В какую то папку 5 файлов, в какую то 11...
Главное чтобы производилось переименование файлов по названию папки.
Я в теме не нашел ответ(

[Flasher]

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

[ioruslan88]

Первостепенная же задача в перемещении, а уже потом в переименовании.
Далее речь шла только о 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

Как решить проблему?

[Flasher]

ioruslan88
Оверкотить здесь не надо. Все вопросы после прочтения памятки сюда.