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
xrRender



Joined: 23 Jun 2018
Posts: 2

Post (Separately) Posted: Sat Jun 23, 2018 17:15    Post subject: Имена папок как у вложенных одиночных файлов заданного типа Reply with quote

Доброго времени суток долго гуглив решил написать о своей проблеме тут Sad
В каталоге есть 1780 папок с неправильными именами но в каждой папке есть файл с расширением *.map которое имеет правильное имя! Как мне можно с помощью батника или коммандера переименовать все эти папки в правильное имя из файла?

 !  Avada:
Слишком общий прежний заголовок заменён более конкретным.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12943
Location: Москва

Post (Separately) Posted: Sat Jun 23, 2018 22:47    Post subject: Reply with quote

Code:
'=================================== VBS ===================================
' Дать папкам активного каталога имена своих одиночных файлов заданного типа
' Условие:  путь запуска — пустой
' Параметр: <расширение одиночного файла>
' Ключ /base оставляет только базовое имя
'===========================================================================
Set ShA = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
If WSH.Arguments.Named.Exists("base") Then Pr = "Bas" Else Pr = "Fil"
For Each Fd In FSO.GetFolder(FSO.GetAbsolutePathName("")).SubFolders
  Set Items = ShA.NameSpace(Fd.Path).Items
  Items.Filter 8384, "*." & WSH.Arguments(0)
  If Items.Count = 1 Then Execute "Fd.Name="&_
  "FSO.Get" & Pr & "eName(Items.Item(0).Path)"
Next

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
xrRender



Joined: 23 Jun 2018
Posts: 2

Post (Separately) Posted: Wed Jun 27, 2018 00:33    Post subject: Reply with quote

Flasher
Спасибо огромное Smile
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2223

Post (Separately) Posted: Thu Jun 28, 2018 17:35    Post subject: Reply with quote

Если пользоваться средствами самого TC, то можно попробовать такой способ.
1. Отсортировать содержимое панели по имени (Ctrl+F3), найти (Alt+F7) файлы *.map, вывести их на панель, выделить и сКопировать имена файлов в буфер.
2. Выделить папки и в инструменте группового переименования (Ctrl+M) использовать пункт Редактировать имена… из контекстного меню, вызываемого по F10 или мышкой. Вместо старых имён папок надо вставить в редактор строки из буфера (Ctrl+V), сохранить новые имена и нажать кнопку Выполнить. Если расширение .map в именах папок не нужно, то перед Выполнить надо вписать .map в поле Найти: (в простейшем случае).
Разумеется, должно соблюдаться требование, что файлов c расширением map в каждой папке должно быть строго по одному.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12943
Location: Москва

Post (Separately) Posted: Thu Jun 28, 2018 18:04    Post subject: Reply with quote

Безотносительно того, в каком разделе находимся, и зачем делать столько лишних движений, нижнее "Разумеется"-требование тут уже по сути мимо сабжа (должно быть учтено в решении).
sa wrote:
перед Выполнить надо вписать .map в поле Найти: (в простейшем случае).
Но уход от простейшего к верному был бы всяко безопаснее: \.map$ ([E], Рег.выраж.)
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
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