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 |
|