Flasher
|
 Posted: Wed Dec 06, 2017 11:54 Post subject: |
 |
|
ingerard
Не, это никуда не годится. Тут такой набор манипуляций совершенно не требуется. Всё куда проще:
| Code: | '=========================== VBS ============================
' Выделение в другой панели одноимённых с выбранными объектов
' Условие: требуется компонент TCScript.dll
'============================================================
With CreateObject("TCScript.Helper")
.Pause = 0 : .Wait = True : Clip = .GetTextFromClip
.LockTC True : .NoArrayReturn = True: If .GetInfo("TP") = "" Then _
.SetTextToClip .GetSrcSelectedFiles(1) Else _
.SetTextToClip Replace(.GetSrcSelectedFiles(1), .GetInfo("SP"), "")
.SendCommand 4006, True : .SendCommand 2033, True
.SendCommand 4006, True : .LockTC False : .SetTextToClip Clip
End With |
И это обсуждение точно не по теме.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Wed Dec 06, 2017 16:32; edited 7 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
