ingerard
|
 Posted: Wed Dec 06, 2017 11:31 Post subject: |
 |
|
Flasher
Получилось сделать самому, в шапке уточнил для чего это нужно, надеюсь что объяснил доступно  Не знаю только насчет оптимизации, работает вроде быстро.
| Code: | '===================== VBS ======================
' Выделение в противоположной панели похожих по
' названию файлов/папок, выделенных на текущей.
' Условия: 1) требуется компонент TCScript.dll;
' 2) имена папок должны иметь \ на конце
' Параметры: "%T" <выдел. всё/файлы/папки: 1/2/3>
'================================================
Set R = New RegExp : R.Global = True : P = WSH.Arguments(0)
With CreateObject("TCScript.Helper")
.NoArrayReturn = True : .LockTC True
T = .GetTextFromClip
.Pause = 0 : .Wait = True : Clip = .GetSrcSelectedFiles(0) : .Sleep 20
.SetTextToClip Clip : .SendCommand 2033, True
R.Pattern = "^[\r\n]+|[\r\n]+$|\r?\n(?=(\r?\n)+)"
RClip = Replace(R.Replace(Clip, ""), vbNewline, "|")
R.Pattern = "([.;$+^\\\(\)\{\[])" : R.MultiLine = True
R.Pattern = "(^|\r\n)([^\r\n]+\\(" & R.Replace(RClip, "\$1") & "))$"
.NoArrayReturn = True : .LockTC True : .SendCommand 4006, True
.SendCommand 3300 + WSH.Arguments(1), True
Sel = .GetSrcSelectedFiles(1) : .Sleep 20
For Each Path in R.Execute(Sel)
List = List & Path.Value
Next : .SendCommand 524, True
If P <> "" Then List = Replace(List, P, "") : .Sleep 20
.SetTextToClip List : .SendCommand 2033, True : .SendCommand 4006, True
.SetTextToClip(T)
.LockTC False
End With |
| Quote: | | Не про эту тему речь? |
Похоже на то, я просто искал по слову "Выделение". Этот скрипт у меня просит разрешение IE и какой-то он сильно громадской. А этот выдает ошибку "Не найден путь, строка 6, символ 3" |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
