Flasher
|
 Posted: Sun Apr 05, 2020 13:49 Post subject: |
 |
|
ToniZa
Так?: | Code: | '==========================================================
' Условие: необходим компонент TCScript.dll
' Параметр при необходимости: <имя подкаталога для вставки>
'==========================================================
Option Explicit : Dim REx, Arg, Er, TCH
Set REx = New RegExp : REx.Pattern = "[""/*\\\t:|<>?]"
If WSH.Arguments.Count Then
Arg = WSH.Arguments(0)
Else Arg = "": Er = vbCr
Do
Arg = InputBox(vbCr & vbCr & Er & String(3, vbCr) & "Введите вставляемое имя подкаталога:",_
"Копирование изменённых путей c FTP", Arg) : Er = "Ошибка: введены запрещённые символы!"
If Not REx.Test(Arg) Then Exit Do
Loop
End If : If Trim(Arg) = "" Then WSH.Quit
Set TCH = CreateObject("TCScript.Helper") : TCH.SendCommand 2018, 1
With REx
.Global = 1 : .IgnoreCase = 1 : .Pattern = "(^|\n)f(tp://[^/]+/)"
TCH.SetTextToClip .Replace(TCH.GetTextFromClip, "ht$2" & Arg & "/")
End With
Set TCH = Nothing : Set REx = Nothing |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
