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 

Вопрос по поиску

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
noklip



Joined: 17 Sep 2008
Posts: 22

Post (Separately) Posted: Fri Sep 19, 2008 03:44    Post subject: Вопрос по поиску Reply with quote

Часто приходится разкидывать папку в которой еще несколько сотен папок, содержащих мп3 файлы различных жанров (но при этом в одном каталоге 1 жанр). Если произвести поиск с помощью плагина media по критерию genre? а затем нажать > файлы на панель, тогда толат выдаст все эти файлы.

Подскажите пожалуйста, возможен ли вариант указания каталогов в которых лежат эти файлы, чтобы их выделить и переместить в нужное мне место? (так как если я выделю только файлы и перемещу их, папки всеравно останутся) если нет то какие еще могут быть методики разкидывания папок по жанрам?

Спасибо.

 !  Моторокер:
Форум Советы – для советов, а не для вопросов.
Перенесено.
Back to top
View user's profile Send private message
Вахмурка



Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва

Post (Separately) Posted: Fri Sep 19, 2008 13:45    Post subject: Reply with quote

Приходит в голову использование тега "Артист" или "Альбом" в качестве имени директории. Например, директория "Кобзон", песня "Кобзон - Хотят ли русские войны". После копирования можно выделить регулярными выражениями часть имени файла перед "-" и опять создать директорию с именем "Кобзон". Сейчас прочел, понял, что сыро, но покопаться можно...
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
Back to top
View user's profile Send private message
noklip



Joined: 17 Sep 2008
Posts: 22

Post (Separately) Posted: Fri Sep 19, 2008 20:49    Post subject: Reply with quote

ну это немного нето. тег артист или альбом не имеет значения. ведь файлы сортируются в попочки по жанрам - электроник техно драм н басс итд....
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Fri Sep 19, 2008 22:25    Post subject: Reply with quote

media.wdx выдает жанр в виде строки. Можно использовать для перемещения\переименования
Back to top
View user's profile Send private message
noklip



Joined: 17 Sep 2008
Posts: 22

Post (Separately) Posted: Fri Sep 19, 2008 23:56    Post subject: Reply with quote

я пробовал. переместятся только файлы а попки останутся пустыми
Back to top
View user's profile Send private message
Rodny



Joined: 24 Jan 2007
Posts: 949
Location: Могилёв, Беларусь

Post (Separately) Posted: Sat Sep 20, 2008 00:16    Post subject: Reply with quote

noklip
Может поручить это дело спецпрограммам? Например, MediaMonkey с поставленной задачей справляется успешно.
Back to top
View user's profile Send private message
noklip



Joined: 17 Sep 2008
Posts: 22

Post (Separately) Posted: Sat Sep 20, 2008 00:47    Post subject: Reply with quote

спасибо за совет попробую
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sat Sep 20, 2008 02:26    Post subject: Reply with quote

Вот такой скрипт создаст файл-список папок, в которых расположены выделенные в текущей панели файлы:
Code:
'  File:         ListOfPaths.vbs
'  Description:  Создает файл со списком имен папок для выделенных файлов
'  Installation: Создайте кнопку на панели TC
'                Команда: "диск:\путь\к\файлу\ListOfPaths.vbs"
'                Параметры: "%L"
' (c)2008, Volniy

Option Explicit
Dim FSO, ListFile, Dic,p, z

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dic = CreateObject("Scripting.Dictionary")

Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not ListFile.AtEndOfStream
   p=FSO.GetFileName(FSO.GetParentFolderName(ListFile.ReadLine))
   If Dic.Exists(p) =False Then dic.Add p,""
Loop

ListFile.Close : Set ListFile = Nothing
Set ListFile = FSO.OpenTextFile("c:\listofpaths.txt", 2,-1)

For Each z In Dic.Keys: ListFile.WriteLine z & "\": Next
ListFile.Close : Set ListFile = Nothing
Set FSO = Nothing
Set Dic = Nothing
WScript.Quit


Ну, а дальше можно использовать или копирование списка в буфер и команду Вставить выделение из буфера, или команду Загрузить выделение из файла....
Back to top
View user's profile Send private message
noklip



Joined: 17 Sep 2008
Posts: 22

Post (Separately) Posted: Sat Sep 20, 2008 16:32    Post subject: Reply with quote

Супер! Огромное спасибо!!! теперь процесс ускорился раз в 20))!
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
Page 1 of 1

 
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