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 

Single Post  Topic: Выделение файлов по кол-ву символов в их имени 
Author Message
Flasher



PostPosted: Fri Jul 29, 2011 12:23    Post subject: Reply with quote

shveicar wrote:
во втором вводим нужное количество символов из буфера обмена
Зачем вводить (второе окно), если можно число из буфера уже в скрипте задействовать? Только я не понял, при чём тут приведённый js-скрипт? Его же подклеивать не надо, если речь только о буфере?
shveicar wrote:
Конечно файл список- создать проще, но отфильтровать имена в нем, не всегда просто (для начала мешает знак \)и некоторые другие, моменты.
Не понял насчёт знака. Где он мешает? Отфильтровать можно и в скрипте, смотря какая задача.
shveicar wrote:
Во первых, данный способ не позволяет выбрать режим выделения(файлы или папки), во вторых, выделяется все имена - в том числе и те, которые имеют меньшее количество символов. Ну а в третьих речь идёт именно об автоматизации процесса и экономии времени при работе с большим количеством информации, но тем не менее
Ну, способ, конечно, ещё тот, но свести к автоматизации тоже не проблема:
Code:
' Выделение элементов в файловой панели по числу символов в имени
'===============================================
Types = InputBox("Введите 1/2/3, если требуются выделить всё/файлы/папки:", "Выделение элементов списка по длине имён", "2")
If Not IsNumeric(Types) Then Call A
If Types > 3 Then Call A
Name = InputBox("Введите число символов:", "Выделение элементов списка по длине имён")
If Len(Name) = 0 Or Not IsNumeric(Name) Then WScript.Quit

With CreateObject("WScript.Shell")
  .Exec("%COMMANDER_PATH%\Utils\TCMC\TCMC.exe CM331"&Types)
  .SendKeys "<{^}.{{}"&Name&"{}}$~"
End With

WSCript.Quit

Sub A
  MsgBox "Неверный ввод данных! Повторите попытку!", vbCritical, "  Выделение элементов списка по длине имён"
  WScript.Quit
End Sub
Путь к TCMC должен соответствовать скриптовому.

Last edited by Flasher on Sat Jul 30, 2011 00:19; edited 2 times in total
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group