Flasher
|
Posted: Thu Apr 02, 2020 18:39 Post subject: |
|
|
ToniZa wrote: | Можете помочь с этим? | Да, это просто:
Code: | ' Условие: необходим компонент TCScript.dll
Set TCH = CreateObject("TCScript.Helper") : TCH.SendCommand 2018, 1
With New RegExp
.Global = 1 : .IgnoreCase = 1 : .Pattern = "(^|\n)f(tp://[^/]+/)"
TCH.SetTextToClip .Replace(TCH.GetTextFromClip, "ht$2exchange_II/")
End With
Set TCH = Nothing | См. п. 7 и ссылку ниже. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|