Скрипт для посылания в буфер изменённого пути

[ToniZa]

Да, это просто:

Супер! Огромное спасибо!

Немного, правда, провозился с инсталляцией .dll-ки, но, в итоге, всё заработало!!!

[Flasher]

с инсталляцией .dll-ки

Там же показано, что инсталляция (регистрация) не требуется.

Пож-та.

[ToniZa]

Там же показано, что инсталляция (регистрация) не требуется.

Тут я не совсем понял, как это работает. Надо (было) распаковать файл библиотеки в каталог со скриптом? Или - что-то еще?

[Flasher]

ToniZa
Нет. Скрипт может быть где угодно. Там же пример кнопки показан.
Версия WIndows новее 7-ки?

[ToniZa]

Версия WIndows новее 7-ки?

Да, 10-ка

Там же пример кнопки показан.

Я пример видел, но, если честно, не понял, как его применить

[Flasher]

Да, 10-ка

В таком случае нужен другой интерпретатор. Добавил ниже ссылку на сборку с годным wscript.exe и заодно с обновлением. В ReadMe см. детали установки и запуска.

если честно, не понял, как его применить

Обычно, если хотят получить ответ, пишут, что именно непонятно, а не констатируют об этом.

[ToniZa]

В таком случае нужен другой интерпретатор.

Пасибо огромное!! Всё заработало с новым интерпретатором!!!

[Flasher]

ToniZa
Пож-та. Только предыдущую версию надо было разрегистрировать. Это сделано?

[ToniZa]

Только предыдущую версию надо было разрегистрировать. Это сделано?

Да, сделал, спасибо!

А, такой вопрос - можно модифицировать скрипт и сделать 2 (два) варианта, таким образом, чтобы нужный для замены параметр (переменная №2. В данном случае - "/exchange_II/") задавался:

а) - в настройках кнопки, в строке "Параметры";
в) - указывался в сплывающем окне, непосредственно во время выполнения скрипта;

Был бы весьма признателен за такую доп. помощь

[Flasher]

ToniZa
Так?:

Код: Выделить всё

'==========================================================
' Условие: необходим компонент 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

[ToniZa]

Так?:

Да! - это, то что нужно по варианту "в". Спасибо!

А, можно еще и вариант "а" - чтобы этот параметр заранее можно было бы прописывать в поле настройки кнопки "Параметры"? (тогда можно будет создать заранее несколько кнопок, с разными параметрами, а в единичных случаях, использовать вариант со всплывающим окном).

[Flasher]

ToniZa
Я же, наверно, не слепой. См. п. 5 памятки.

[ToniZa]

См. п. 5 памятки.

Ну, чайник, чё с него взять...

Пасибо огромное! Сильно выручили!!!