View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Aug 06, 2019 04:55 Post subject: |
|
|
Убрал я этот Replace, мешал только. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Tue Aug 06, 2019 05:07 Post subject: |
|
|
Спасибо, теперь ок. Ну и в завершение хотелось бы вариант только для eng, который как в случае с 1-ым вариантом работал бы с группой выделенных файлов (тех же 4-х типов субтитров), и именовал бы их по счётчику.
файл.avi/mkv/mp4 - файл.eng.srt, файл 2.eng.sub, файл 3.eng.srt, файл 4.eng.ssa и т.п. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Aug 06, 2019 05:30 Post subject: |
|
|
А если выбранные файлы уже имеют .rus/.eng, игнорировать? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Tue Aug 06, 2019 05:45 Post subject: |
|
|
Если .rus, пропускать, если .eng - переименовывать в числе прочих выбранных. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Aug 06, 2019 06:12 Post subject: |
|
|
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 |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Tue Aug 06, 2019 06:15 Post subject: |
|
|
Спасибо. |
|
Back to top |
|
|
N1ghtwayfarer
Joined: 27 Jan 2020 Posts: 1
|
(Separately) Posted: Mon Jan 27, 2020 12:48 Post subject: |
|
|
Подскажите пожалуйста, в теме такого не нашел. Есть папка с музыкой вида:
(название трека) - (название группы)
Надо переименовать в вид:
(название группы) - (название трека)
Проще говоря, поменять местами название трека и название группы. Названия все разной длинны, поэтому через счетчики не получается. Вроде простая задача, но я что то не допетрю никак. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Jan 27, 2020 14:35 Post subject: |
|
|
N1ghtwayfarer wrote: | в теме такого не нашел. | Нужно лучше стараться: %WL "(\(.+\)) (\(.+\))" "$2 $1"
Это что касается скриптов. А это что касается ИГП. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10278 Location: Россия, Саратов
|
(Separately) Posted: Mon Jan 27, 2020 15:22 Post subject: |
|
|
N1ghtwayfarer
Как верно было сказано, плохо искали. Типовая задача, решение которой есть много где, начиная со справки.
Замечание за нарушение правил форума. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
ioruslan88
Joined: 05 May 2020 Posts: 7
|
(Separately) Posted: Tue May 05, 2020 23:20 Post subject: |
|
|
Всем привет! Требуется решение проблемы, желательно подробно объяснить для нуба.
Есть 30 файлов (фото) с хаотичными названиями.
Есть 3 папки с названиями "201" "202" "203"
Нужно чтобы при перемещении (перетаскивании) 10 файлов в папку "201" файлы переименовывались в "201_1" "201_2"....
Далее при перемещении 10 файлов в папку "202" файлы переименовывались в "202_1" "202_2"....
Спасибо! |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue May 05, 2020 23:48 Post subject: |
|
|
ioruslan88
Тут больше этот тред подходит. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
ioruslan88
Joined: 05 May 2020 Posts: 7
|
(Separately) Posted: Wed May 06, 2020 00:59 Post subject: |
|
|
В этой теме акцент на количестве файлов, у меня же переносится разное количество изображений. В какую то папку 5 файлов, в какую то 11...
Главное чтобы производилось переименование файлов по названию папки.
Я в теме не нашел ответ( |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed May 06, 2020 01:28 Post subject: |
|
|
Первостепенная же задача в перемещении, а уже потом в переименовании.
Далее речь шла только о 10 файлах, никакого критерия для 5/11/и т. д. не предоставлено. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
ioruslan88
Joined: 05 May 2020 Posts: 7
|
(Separately) Posted: Wed May 06, 2020 01:55 Post subject: |
|
|
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 |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed May 06, 2020 02:54 Post subject: |
|
|
ioruslan88
Оверкотить здесь не надо. Все вопросы после прочтения памятки сюда. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|