Flasher
|
 Posted: Fri Jul 29, 2011 12:23 Post subject: |
 |
|
| 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 |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
