Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Скрипт для посылания в буфер изменённого пути
Goto page Previous  1, 2, 3
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
ToniZa



Joined: 01 Apr 2020
Posts: 11

Post (Separately) Posted: Fri Apr 03, 2020 01:21    Post subject: Reply with quote

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


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

Немного, правда, провозился с инсталляцией .dll-ки, но, в итоге, всё заработало!!!
_________________
ToniZa -
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Apr 03, 2020 01:26    Post subject: Reply with quote

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

Пож-та.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
ToniZa



Joined: 01 Apr 2020
Posts: 11

Post (Separately) Posted: Fri Apr 03, 2020 02:21    Post subject: Reply with quote

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


Тут я не совсем понял, как это работает. Надо (было) распаковать файл библиотеки в каталог со скриптом? Или - что-то еще?
_________________
ToniZa -
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Apr 03, 2020 02:44    Post subject: Reply with quote

ToniZa
Нет. Скрипт может быть где угодно. Там же пример кнопки показан.
Версия WIndows новее 7-ки?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
ToniZa



Joined: 01 Apr 2020
Posts: 11

Post (Separately) Posted: Fri Apr 03, 2020 02:57    Post subject: Reply with quote

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


Да, 10-ка

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


Я пример видел, но, если честно, не понял, как его применить Embarassed
_________________
ToniZa -
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Apr 03, 2020 08:57    Post subject: Reply with quote

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

ToniZa wrote:
если честно, не понял, как его применить
Обычно, если хотят получить ответ, пишут, что именно непонятно, а не констатируют об этом. Wink
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
ToniZa



Joined: 01 Apr 2020
Posts: 11

Post (Separately) Posted: Fri Apr 03, 2020 23:24    Post subject: Reply with quote

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


Пасибо огромное!! Всё заработало с новым интерпретатором!!!
_________________
ToniZa -
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Apr 04, 2020 01:35    Post subject: Reply with quote

ToniZa
Пож-та. Только предыдущую версию надо было разрегистрировать. Это сделано?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
ToniZa



Joined: 01 Apr 2020
Posts: 11

Post (Separately) Posted: Sun Apr 05, 2020 10:35    Post subject: Reply with quote

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


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

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

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

Был бы весьма признателен за такую доп. помощь
_________________
ToniZa -
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Apr 05, 2020 13:49    Post subject: Reply with quote

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) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
ToniZa



Joined: 01 Apr 2020
Posts: 11

Post (Separately) Posted: Sun Apr 05, 2020 20:30    Post subject: Reply with quote

Flasher wrote:
Так?:


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

А, можно еще и вариант "а" - чтобы этот параметр заранее можно было бы прописывать в поле настройки кнопки "Параметры"? (тогда можно будет создать заранее несколько кнопок, с разными параметрами, а в единичных случаях, использовать вариант со всплывающим окном).
_________________
ToniZa -
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Apr 05, 2020 20:46    Post subject: Reply with quote

ToniZa
Я же, наверно, не слепой. См. п. 5 памятки.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
ToniZa



Joined: 01 Apr 2020
Posts: 11

Post (Separately) Posted: Sun Apr 05, 2020 22:43    Post subject: Reply with quote

Flasher wrote:
См. п. 5 памятки.


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

Пасибо огромное! Сильно выручили!!!
_________________
ToniZa -
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3
Page 3 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group