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 

[Plugin Request] File Duplicator

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
DeYura



Joined: 06 Sep 2007
Posts: 3

Post (Separately) Posted: Thu Sep 06, 2007 15:25    Post subject: [Plugin Request] File Duplicator Reply with quote

Очень нужен плагин для создания дубликата файла (копии на всякий случай) по нажатию комбинации кнопок Ctrl+D.
А то уже надоело делать Copy, потом Paste - это довольно долго + изменяеться содержимое буфера обмена.

Зачем нужен: например вы редактируете конфиг или код программы, скопировали в буфер что-то, но потом подумали, что неплохо бы сохранить резервную копию файла. Делаете Copy, потом Paste, потом лезете обратно в файл и копируете данные, которые были в буфере перед этим - всё это муторно и долго.

Приблизительно хотелось чтобы плагин делал так:
исходный файл "file.txt"
продублированный "file_20070925233640.txt"
где "20070925233640" - дата и время подряд

Думаю создание такого плагина много времени не займёт, буду очень благодарен.
Back to top
View user's profile Send private message
D1P



Joined: 20 Dec 2004
Posts: 2973
Location: Тбилиси

Post (Separately) Posted: Thu Sep 06, 2007 15:51    Post subject: Reply with quote

Зачем плагин? Вполне подойдёт скрипт на VBS+Script Helper. В RU.TCKB есть скрипт "Копирование в каталог с именем файла", тебе, скорее всего, подойдёт даже он. Если нет - в TCKB много примеров скриптов, они очень простые, и переделать один из них в точности под твои нужды труда не составит. Готового решения не даю.
Ссылка на TCKB: http://www.tckb.megabyte-web.ru/wiki/Оффлайн-версия_RU.TCKB
_________________
База знаний о Total Commander
Блог
Back to top
View user's profile Send private message
funduk



Joined: 16 Aug 2005
Posts: 1513
Location: Санкт-Петербург

Post (Separately) Posted: Thu Sep 06, 2007 17:37    Post subject: Reply with quote

2DeYura
Тебе намного облегчит жизнь программа-менеджер буфера обмена. Я пользуюсь CLCL, но она конфликтует с последними версиями FlashGet.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Thu Sep 06, 2007 18:35    Post subject: Reply with quote

DeYura
А зачем через буфер? F5 или Shift+F5 не катят?

Если уж нужен скрипт, то вот VBS (Script Helper не используется):
Code:
'=======================================================
' Копирование выделенных файлов\папок в текущий каталог
'   с добавлением текущих даты и времени в имя:
' {Имя}_YYYYMMDDhhmmss.{Расширение}

' Параметры вызова из TC:
' %L
'=======================================================
Option Explicit
If WScript.Arguments.Count = 0 Then
  MsgBox "Не заданы параметры!", vbOKOnly + vbCritical, "Копирование"
  WScript.Quit
End If
Dim FSO, OTF, List, F
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1, False)
List = OTF.ReadAll
OTF.Close
Set OTF = Nothing

For Each F In Split(List, vbNewLine)
  If FSO.FileExists(F) Then
    FSO.CopyFile F, FSO.GetFile(F).ParentFolder.Path & "\" &_
                    FSO.GetBaseName(F) & "_" & DateTime & "." &_
                    FSO.GetExtensionName(F)
  End If
  If FSO.FolderExists(F) Then
    FSO.CopyFolder Left(F, Len(F) - 1), Left(F, Len(F) - 1) & "_" & DateTime
  End If
Next
Set FSO = Nothing
WScript.Quit

Function DateTime
  Dim d, t
  d = Date
  t = Time
  DateTime = Year(d) & Right(0 & Month(d), 2) & Right(0 & Day(d), 2) &_
             Replace(t, ":", "")
End Function
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6151
Location: Москва

Post (Separately) Posted: Thu Sep 06, 2007 18:49    Post subject: Reply with quote

Переношу в Автоматизацию.
_________________
Почему же, ё-моё, ты нигде не пишешь "ё"?
Back to top
View user's profile Send private message
DeYura



Joined: 06 Sep 2007
Posts: 3

Post (Separately) Posted: Fri Sep 07, 2007 10:35    Post subject: Reply with quote

Спасибо Batya
Back to top
View user's profile Send private message
DeYura



Joined: 06 Sep 2007
Posts: 3

Post (Separately) Posted: Fri Sep 07, 2007 10:56    Post subject: Reply with quote

Получилось запихнуть в панель ввиде кнопки.
Всё работает и даже с папками.

Подскажите, а как назначить ему горячую клавищу?
Back to top
View user's profile Send private message
D1P



Joined: 20 Dec 2004
Posts: 2973
Location: Тбилиси

Post (Separately) Posted: Fri Sep 07, 2007 11:33    Post subject: Reply with quote

Quote:
Подскажите, а как назначить ему горячую клавищу?

Создать пользовательскую команду (есть в TC 7.0+), назначить на неё.
_________________
База знаний о Total Commander
Блог
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
Page 1 of 1

 
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