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 1, 2  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Thu Nov 02, 2006 13:50    Post subject: как сделать кнопку добавления даты в выделенных файлах Reply with quote

как сделать кнопку чтобы при нажатии на нее к выделенным файлам
добавилась текущая дата с начала файла
Типа - 2006.11.02 *******

1. Вобщем выделил несколько файлов (вася, миша).
2. нажал на кнопку-скрипт
3. получил результат (2006.11.02 вася, 2006.11.02 миша)

CaptainFlint:
Нарушение пп. 9, 13 правил! Переношу в "Автоматизацию".
+
Предупреждение за дубликат темы.
Back to top
View user's profile Send private message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Thu Nov 02, 2006 14:45    Post subject: Reply with quote

Quote:
CaptainFlint:
Нарушение пп. 9, 13 правил! Переношу в "Автоматизацию".
+ Предупреждение за дубликат темы.


Подскажите тогда пожалуйста ссылочку на эту тему, а то все ищу и не могу найти, может поиск неправильно спрашиваю
Back to top
View user's profile Send private message
CaptainFlint



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

Post (Separately) Posted: Thu Nov 02, 2006 15:06    Post subject: Reply with quote

Под дубликатом я подразумевал создание двух одинаковых тем в разных разделах этого форума: в "Общих вопросах" и в "Написании плагинов".
_________________
Почему же, ё-моё, ты нигде не пишешь "ё"?
Back to top
View user's profile Send private message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Wed Nov 15, 2006 18:51    Post subject: Reply with quote

Дак никто не знает или может вопрос я непонятно задал, чтоб помогли ответить
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Wed Nov 15, 2006 19:40    Post subject: Reply with quote

1. Вобщем выделил несколько файлов (вася, миша).
2. нажал на Ctrl+M
3. Ввел маску переименования - [Y].[M].[D] [N]
(В следующий раз будешь выбирать её из списка запомненных)
4. Start
5. получил результат (2006.11.02 вася, 2006.11.02 миша)
Можно и скриптом, но лениво писать
Back to top
View user's profile Send private message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Wed Nov 15, 2006 19:46    Post subject: Reply with quote

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



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Wed Nov 15, 2006 19:48    Post subject: Reply with quote

А скриптик было бы клево. Именно это и хотелось как-то сделать
Back to top
View user's profile Send private message
Zorroz



Joined: 16 Dec 2004
Posts: 308
Location: Россия, Иркутская обл., г. Ангарск

Post (Separately) Posted: Thu Nov 16, 2006 03:50    Post subject: Reply with quote

Lev
А у меня при такой маске выводится дата создания. Т.е. я сейчас(16 ноября) пишу [Y].[M].[D] [N] и выводится 2006.11.14 log .png
_________________
Когда ангелу обрезают крылья, он учится летать на метле...
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Thu Nov 16, 2006 17:23    Post subject: Reply with quote

Перепроверил в 6.54 и 7pb1 - у меня получается дата файла, а не текущая
Back to top
View user's profile Send private message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Thu Nov 16, 2006 17:29    Post subject: Reply with quote

у меня получается текущая дата в переименовании в 7pb1.
По маске стоит [=tc.Дата создания.Y.M.D] [N]
Back to top
View user's profile Send private message
Zorroz



Joined: 16 Dec 2004
Posts: 308
Location: Россия, Иркутская обл., г. Ангарск

Post (Separately) Posted: Thu Nov 16, 2006 17:39    Post subject: Reply with quote

wert202
Тоже не помогает ставит 14, а не 16 число.
Там же написано [=tc.Дата создания.Y.M.D] [N] - Дата создания
_________________
Когда ангелу обрезают крылья, он учится летать на метле...
Back to top
View user's profile Send private message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Thu Nov 16, 2006 17:49    Post subject: Reply with quote

я раньше не обращал внимание, но после подсказки
нажимаю кнопку:
[= ?] плагин -> tc -> Дата создания -> (выбираю из списка)
и мне выводится

[=tc.Дата создания.YMD]

Вот эта часть обязательная [=tc.Дата создания.

Также в этом списке есть [= ?] плагин -> tc -> Время создания,
Дата модификации (вобщем штук 15 перечислено)

Но вот все же еслиб был скриптик, одной кнопкой всего переводить в нужное тебе - былобы здорово
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Thu Nov 16, 2006 18:57    Post subject: Reply with quote

чего-то у вас в консерваториях...
ланна, держите скриптик.
для работы требует установки TCScript.Helper'а
Code:
'namebydate.vbs
Dim fso,tcs,f,ff,dt.fff
Set fso = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")

ff = TCS.GetSrcSelectedFiles(-1)
For Each f In ff
Set fff = FSO.GetFile(f)
dt=fff.DateLastModified'.datecreated
dt = Year(Dt) & "." & Month(Dt) & "." & Day(Dt)
fff.name=dt & " " & fff.name
Next

Set fso = Nothing
WScript.Quit
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Thu Nov 16, 2006 22:55    Post subject: Reply with quote

Так вроде же текущую дату нужно было дописывать. Кроме того, тут вполне можно обойтись и без хелпера, например вот так:
Code:
' Copyright (c) 2006, Volniy
Option Explicit
Dim FSO, StreamFile, theFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set StreamFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
   Do While Not StreamFile.AtEndOfStream
     Set theFile = FSO.GetFile(StreamFile.ReadLine)
     theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name
   Loop
Set StreamFile = Nothing
Set FSO = Nothing
Wscript.Quit()

Arrow В кнопке в качестве параметра указать "%L"
А обработку ошибок лень добавить мне было...
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Fri Nov 17, 2006 16:17    Post subject: Reply with quote

Ой, про текущую только при третьем прочтении прочел Smile
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 1, 2  Next
Page 1 of 2

 
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