View previous topic :: View next topic |
Author |
Message |
Lnk
Joined: 13 May 2023 Posts: 68
|
(Separately) Posted: Sat May 13, 2023 11:38 Post subject: Раскладка файлов по папкам |
|
|
Здравствуйте.
Есть вопрос, довольно сложно его правильно сформулировать, но попробую. есть файлы напр (самому их выбирать желательно)
тест1.txt
тест2.txt
тест3.txt..
как бы сделать одной кнопкой в панели инструментов чтоб при нажатии на нее создались каталоги
тест1
тест2
тест3...
и в папку тест 1 был вложен тест1.txt, в тест2 - тест2.txt, тест3 - тест3.txt и тд
ну или хотя бы по 1 файлу подскажите как сделать.
я создал кнопку на панели инструментов на 1 файл
cm_MkDirOther,cm_GoToDir,cm_FocusTrg,cm_RenMov,cm_RightActivateTab5
но над там нажимать 2 раза энтер и папка остается на другой панели, а хотелось бы чтоб папка была там где был файл и без этих 2 нажатий энтер.
Вобще елси чесно не нашел как сделать напрмер команду cm_RenMov или cm_MoveOnly без подтвержения энтером(а хотелось бы)..
cm_Return не заменяет нажатия при создания каталога, он работает уже после создания, то есть входит в каталог. |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 285 Location: г. Иркутск
|
(Separately) Posted: Sat May 13, 2023 12:28 Post subject: |
|
|
Lnk
В принципе и так понятно. Нужен скрипт, создающий папки по именам файлов и помещающий эти файлы в созданные папки. Есть тут тема Создание папок с именем файлов в разделе Автоматизация Total Commander. Там на странице 2 найдёте готовый скрипт от Flasher, который у меня давно и исправно работает. |
|
Back to top |
|
|
Lnk
Joined: 13 May 2023 Posts: 68
|
(Separately) Posted: Sat May 13, 2023 12:55 Post subject: |
|
|
imig73 wrote: | Lnk
В принципе и так понятно. Нужен скрипт, создающий папки по именам файлов и помещающий эти файлы в созданные папки. Есть тут тема Создание папок с именем файлов в разделе Автоматизация Total Commander. Там на странице 2 найдёте готовый скрипт от Flasher, который у меня давно и исправно работает. |
спасибо, попробую понять чего там как.
к сожалению со скриптами дел не имел. думал мож через кнопку как то можно решить вопрос.
Добавлено спустя 9 минут:
imig73
все получилось спасибо огромное!)
взял такое, скопировал
Set A = WSH.Arguments : C = A.Count : If C = 0 Then WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ShAp = CreateObject("Shell.Application")
Set List = FSO.OpenTextFile(A(0),,,-1)
If C = 3 Then _
Set Reg = New RegExp : Reg.Global = True:_
Reg.IgnoreCase = True : Reg.Pattern = A(2)
Do : F = Trim(List.ReadLine)
If FSO.FileExists(F) Then
BN = FSO.GetBaseName(F)
If IsObject(Reg) Then If Reg.Test(BN) Then _
BN = Reg.Execute(BN)(0).Submatches(0) Else BN = ""
If Len(BN) Then
NF = "" : If C > 1 Then If A(1) <> "" Then NF = FSO.BuildPath(A(1),BN)
If NF = "" Then NF = FSO.BuildPath(FSO.GetParentFolderName(F), BN)
If Not FSO.FolderExists(NF) Then FSO.CreateFolder(NF)
ShAp.NameSpace(NF).MoveHere F
End If
End If
Loop Until List.AtEndOfStream : List.Close
обозвал cat.vbs, сунул этот файл в панель инструментов
с параметром %WL "" ^([^.]+)\.(.+) "$1 [$2]"
и полученная кнопка успешно работает)) красота))) |
|
Back to top |
|
|
Monarch-LFV
Joined: 22 Jul 2019 Posts: 240
|
(Separately) Posted: Sat May 13, 2023 13:25 Post subject: |
|
|
Lnk
Можно и без скрипта, в ИГП прописать: [N]/[N] |
|
Back to top |
|
|
Lnk
Joined: 13 May 2023 Posts: 68
|
(Separately) Posted: Sat May 13, 2023 13:29 Post subject: |
|
|
Monarch-LFV wrote: | Lnk
Можно и без скрипта, в ИГП прописать: [N]/[N] |
хм а ИГП это что? |
|
Back to top |
|
|
Monarch-LFV
Joined: 22 Jul 2019 Posts: 240
|
(Separately) Posted: Sat May 13, 2023 13:32 Post subject: |
|
|
Lnk
Инструмент группового переименования (Ctrl+M). |
|
Back to top |
|
|
Lnk
Joined: 13 May 2023 Posts: 68
|
(Separately) Posted: Sat May 13, 2023 13:38 Post subject: |
|
|
Monarch-LFV wrote: | Lnk
Инструмент группового переименования (Ctrl+M). |
ого, я даж не знал что он умеет папки создавать) оч интересный вариант, спасибо огромное!)
кнопка удобней, но в Инструменте группового переименования можно с параметрами поэскпериментить) |
|
Back to top |
|
|
Monarch-LFV
Joined: 22 Jul 2019 Posts: 240
|
(Separately) Posted: Sat May 13, 2023 13:42 Post subject: |
|
|
Для ИГП можно и кнопку сделать на панели. Подробнее поищите на форуме, сейчас помочь не могу, с телефона не удобно. |
|
Back to top |
|
|
Lnk
Joined: 13 May 2023 Posts: 68
|
(Separately) Posted: Sat May 13, 2023 13:51 Post subject: |
|
|
Monarch-LFV wrote: | Для ИГП можно и кнопку сделать на панели. Подробнее поищите на форуме, сейчас помочь не могу, с телефона не удобно. |
ну у мя кнопка запуска то создана на ИГП, и он параметр запоминает, просто тыканий больше. сейчас решение есть на кнопку со скриптом, а ИГП для экспериментов пусть будет) там наверн к [N]/[N] еще чего нибудь можно добавлять, и будет изменение назв каталога или файла, оч удобно.
Monarch-LFV а вы не знаете случайно на вот такую кнопку cm_SelectCurrentExtension,cm_RenMov как можно сделать чтоб не запрашивал подтверждения? это выделяет и перемещает все файлы с одним расширением. |
|
Back to top |
|
|
Monarch-LFV
Joined: 22 Jul 2019 Posts: 240
|
(Separately) Posted: Sat May 13, 2023 13:58 Post subject: |
|
|
Lnk
Уже за компьютером, нашел решение:
Сохранить шаблон, например "123", и далее сделать кнопку с командой:
. |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 285 Location: г. Иркутск
|
(Separately) Posted: Sat May 13, 2023 13:58 Post subject: |
|
|
Lnk wrote: | с параметром %WL "" ^([^.]+)\.(.+) "$1 [$2]" |
Чото мудрёные какие-то параметры, достаточно просто %L%
C ИГП + встроенные команды + сохранённый шаблон [N]/[N] тоже можно, но что-то нет пока желания. Подождём что Monarch-LFV покажет
Monarch-LFV
Благодарю. Будем посмотреть и если всё хорошо, скрипт сотру. |
|
Back to top |
|
|
Lnk
Joined: 13 May 2023 Posts: 68
|
(Separately) Posted: Sat May 13, 2023 14:12 Post subject: |
|
|
Monarch-LFV wrote: | Lnk
Уже за компьютером, нашел решение:
Сохранить шаблон, например "123", и далее сделать кнопку с командой:
. |
сделал кнопку , команду написал MULTIRENAME==123(шаблон сохранил, но как файл он его не выводит)
параметр в кнопку вписал %P%N
нажимаю ничего не происходит, не удается найти указанный файл пишет..
и без параметров тоже
imig73, с %L% не работает скрипт |
|
Back to top |
|
|
Monarch-LFV
Joined: 22 Jul 2019 Posts: 240
|
(Separately) Posted: Sat May 13, 2023 14:16 Post subject: |
|
|
Lnk
Что ты вы явно сделали не то. В ИГП прописать то, что я говорил выше:
[N]/[N]
Далее нужно сохранить как шаблон (справа кнопка в том же ИГП) с именем "123".
далее вот уже готовая кнопка (скопируйте и вставьте на панель правой кнопкой мыши):
Code: | TOTALCMD#BAR#DATA
MULTIRENAME==123
wcmicons.dll,46
|
|
|
Back to top |
|
|
Lnk
Joined: 13 May 2023 Posts: 68
|
(Separately) Posted: Sat May 13, 2023 14:24 Post subject: |
|
|
Monarch-LFV wrote: | Lnk
Что ты вы явно сделали не то. В ИГП прописать то, что я говорил выше:
[N]/[N]
Далее нужно сохранить как шаблон (справа кнопка в том же ИГП) с именем "123".
далее вот уже готовая кнопка (скопируйте и вставьте на панель правой кнопкой мыши):
Code: | TOTALCMD#BAR#DATA
MULTIRENAME==123
wcmicons.dll,46
|
|
да видимо не вьезжаю в суть, у мя тотал коммандер пауер пак, там ИГП имеет свою кнопку, тычу на него там прописываю [N]/[N] и сохраняю шаблон. выхожу. тычу на вертикальной панели создать кнопку, прописываю команду MULTIRENAME==123. при тыканьи этой кнопки происходит чего написал..
ну ниче страшного, скрипт работает)
а кто понял и сработало - тому уверен пригодится через MULTIRENAME==123) |
|
Back to top |
|
|
imig73
Joined: 18 Jun 2013 Posts: 285 Location: г. Иркутск
|
(Separately) Posted: Sat May 13, 2023 14:24 Post subject: |
|
|
Lnk
Шаблон ИГП сохраняется в секции [Rename] файла wincmd.ini. Открыть ИГП, вписать в поле 'Маска для:' [N]/[N] и нажать F2 > Сохранить шаблон, ввести имя 123. Всё, шаблон готов и больше ничего не трогаем.
Готовая кнопка выглядит так:
Code: | TOTALCMD#BAR#DATA
MULTIRENAME==123
Wcmicons.dll,72
Каталоги по именам файлов и переместить в них выделенные файлы
-1
|
Скопируй код выше и вставь себе на панель, появится кнопка.
Monarch-LFV
Работает нормально. Скрипт убираю в архив, ещё раз спасибо. |
|
Back to top |
|
|
|