Tol!k
|
 Posted: Mon Aug 09, 2010 01:32 Post subject: |
 |
|
| ask-rus wrote: | | TC по умолчанию для файла под курсором/выделенного устанавливает имя этого файла в качестве имени для архива. Если выделены два и более файлов, то за имя архива берет имя каталога, где эти файлы находятся. Исходить бы из этого... |
| Code: | ' File: PackHere.vbs
' Requirements: WSH Helper for TC by Volniy
Option Explicit
Dim TCS, Str, Name, Ext, RR, NN, Buff
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_PackFiles", False
Buff = TCS.GetTextFromClip
TCS.SendKeystroke "^C"
Str = TCS.GetTextFromClip
TCS.SetTextToClip(Buff)
Str = Replace(Str, """", "")
RR = Split (Str, "\"): NN = UBound(RR)
Name = RR(NN)
RR = Split (Name, "."): NN = UBound(RR)
Ext = RR(NN)
TCS.SendKeystroke "^+1" 'В доп. параметрах клав-ы нужно
'переключатель на англ. раскладку назначить на Ctrl+Shift+1
TCS.SendKeystroke Ext & ":""" & Name & """{ENTER}"
Set TCS = Nothing
WScript.Quit |
Пакует в последний использованный формат
— Портит (нетекстовый) буфер обмена
Last edited by Tol!k on Mon Aug 09, 2010 11:03; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
