| View previous topic :: View next topic |
| Author |
Message |
skyinfire
Joined: 10 Oct 2011
Posts: 28
|
 (Separately) Posted: Mon Oct 10, 2011 21:27 Post subject: Копирование имени без слеша |
 |
|
Как сделать, чтобы имя папки по команде cm_CopyNamesToClip копировалось БЕЗ слеша в конце?
Сейчас так:
Новая папка\
| ! | Avada: | | С учётом последующего обсуждения перенесено в подфорум "Автоматизация". | |
|
| Back to top |
|
 |
Avada
Joined: 01 Aug 2008
Posts: 10415
Location: Россия, Саратов
|
| (Separately) Posted: Mon Oct 10, 2011 22:27 Post subject: |
|
|
Никакого иного поведения эта команда не предусматривает.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
skyinfire
Joined: 10 Oct 2011
Posts: 28
|
| (Separately) Posted: Tue Oct 11, 2011 14:29 Post subject: |
|
|
| а есть какой-то плагин, который копирует имена без слешей? |
|
| Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Oct 11, 2011 16:46 Post subject: |
|
|
| Code: | ' Копировать имя папки/файла под курсором
' Параметры: %N%Z "%P"
'========================================
With CreateObject("WScript.Shell")
P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
A = .RegRead(P)
If A > 0 Then .RegWrite P, 0, "REG_DWORD"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
.document.ParentWindow.ClipboardData.SetData("text"), WScript.Arguments(0)
End With
If A > 0 Then .RegWrite P, A, "REG_DWORD"
End With |
Last edited by Flasher on Tue Oct 11, 2011 22:58; edited 1 time in total |
|
| Back to top |
|
|
sa
Joined: 29 Apr 2009
Posts: 2691
|
| (Separately) Posted: Tue Oct 11, 2011 17:05 Post subject: |
|
|
До кучи скрипт с Helper-ом:
| Code: | ' Описание: Копирование в буфер имени без слеша
'Требования: Необходима регистрация WSH Helper for TC by Volniy
'---------------------------------------------------------------
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand 2017, True 'cm_CopyNamesToClip
TCS.SetTextToClip Replace(TCS.GetTextFromClip, "\", "")
Set TCS = Nothing |
Last edited by sa on Tue Oct 11, 2011 17:27; edited 1 time in total |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Oct 11, 2011 17:20 Post subject: |
|
|
| sa, %N не нужен. |
|
| Back to top |
|
|
sa
Joined: 29 Apr 2009
Posts: 2691
|
| (Separately) Posted: Tue Oct 11, 2011 17:27 Post subject: |
|
|
Flasher
Тогда и %Z тоже. Убрал параметры совсем. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Tue Oct 11, 2011 17:29 Post subject: |
|
|
| Flasher wrote: | | Параметры: %N "%P" |
А зачем "%P"?
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Oct 11, 2011 17:31 Post subject: |
|
|
| sa wrote: | | Тогда и %Z тоже. |
Ну да, подобные команды в архивах работают.
Batya
Чтобы при постановке на [..] копировался путь к родительскому каталогу. Типа фича.  |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Tue Oct 11, 2011 17:37 Post subject: |
|
|
| Flasher wrote: | | Чтобы при постановке на [..] копировался путь к рабочему каталогу. Типа фича. |
Прикольно.
Вариант на основе скрипта от Flasher:
| Code: | '=========================================
' Копировать имена выделенных папок/файлов
' Параметр: {%L|%l|%F|%f|%D|%d}
'=========================================
If WScript.Arguments.Count = 0 Then Wscript.Quit
Dim T
T = Replace(CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1).ReadAll, "\" + chr(13), chr(13))
Text2Clip Mid(T, 1, Len(T) - 2)
Sub Text2Clip(pText)
Dim TCS
On Error Resume Next
Set TCS = CreateObject("TCScript.Helper")
If Err.Number > 0 Then
Dim A
On Error GoTo 0
Const P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
With CreateObject("WScript.Shell")
A = .RegRead(P)
If A > 0 Then .RegWrite P, 0, "REG_DWORD"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
.document.ParentWindow.ClipboardData.SetData("text"), pText
End With
If A > 0 Then .RegWrite P, A, "REG_DWORD"
End With
Else
On Error GoTo 0
TCS.SetTextToClip(pText)
End If
End Sub |
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Wed Oct 12, 2011 16:02; edited 3 times in total |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Oct 11, 2011 17:38 Post subject: |
|
|
Batya
Опередил, я почти то же самое хотел уже выложить.  |
|
| Back to top |
|
|
skyinfire
Joined: 10 Oct 2011
Posts: 28
|
|
| Back to top |
|
|
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
| (Separately) Posted: Tue Oct 11, 2011 21:27 Post subject: |
|
|
Вообще-то все ответы на вопросы здесь. Выбираешь ответ справа внизу и читаешь. Там, в частности, истолковывается разница между скриптом и плагином.
Ссылок там немеряно. Я насчитал шесть. "ТщательнЕе надо, ребята" ( © М. Жванецкий).
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон) |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Oct 11, 2011 22:02 Post subject: |
|
|
skyinfire
Информация для опубликованных здесь кодов. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
