ingerard
|
 Posted: Wed Dec 06, 2017 01:05 Post subject: |
 |
|
Flasher
Я тут немного ваш скрипт переделал под другую задачу, на удивление работает, но хотелось бы чтоб работало без затрагивания буфера. И еще не работает параметр 3 - только папки.
| 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
.Pause = 0 : .Wait = True : Clip = .GetSrcSelectedFiles(0) : .Sleep 20
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
.LockTC False
End With |
| ! | Avada: | | Отсюда и далее цепочка сообщений, находившаяся ранее в этой теме, перенесена в более адекватное место. | |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
