Страница 1 из 2
как сделать кнопку добавления даты в выделенных файлах
Добавлено: Чт ноя 02, 2006 12:50
wert202
как сделать кнопку чтобы при нажатии на нее к выделенным файлам
добавилась текущая дата с начала файла
Типа - 2006.11.02 *******
1. Вобщем выделил несколько файлов (вася, миша).
2. нажал на кнопку-скрипт
3. получил результат (2006.11.02 вася, 2006.11.02 миша)
CaptainFlint:
Нарушение пп. 9, 13 правил! Переношу в "Автоматизацию".
+ Предупреждение за дубликат темы.
Добавлено: Чт ноя 02, 2006 13:45
wert202
CaptainFlint:
Нарушение пп. 9, 13 правил! Переношу в "Автоматизацию".
+ Предупреждение за дубликат темы.
Подскажите тогда пожалуйста ссылочку на эту тему, а то все ищу и не могу найти, может поиск неправильно спрашиваю
Добавлено: Чт ноя 02, 2006 14:06
CaptainFlint
Под дубликатом я подразумевал создание двух одинаковых тем в разных разделах этого форума: в "Общих вопросах" и в "Написании плагинов".
Добавлено: Ср ноя 15, 2006 17:51
wert202
Дак никто не знает или может вопрос я непонятно задал, чтоб помогли ответить
Добавлено: Ср ноя 15, 2006 18:40
Lev
1. Вобщем выделил несколько файлов (вася, миша).
2. нажал на Ctrl+M
3. Ввел маску переименования - [Y].[M].[D] [N]
(В следующий раз будешь выбирать её из списка запомненных)
4. Start
5. получил результат (2006.11.02 вася, 2006.11.02 миша)
Можно и скриптом, но лениво писать
Добавлено: Ср ноя 15, 2006 18:46
wert202
Спасибо, но это я уже знаю по CTRL+M.
Просто часто этим приходится заниматься и както немного не удобно
таким макаром делать.
А можно как-то вытащить ссылку на добавление даты, чтоб прописать ее например в параметр какой-нить запуска?
Добавлено: Ср ноя 15, 2006 18:48
wert202
А скриптик было бы клево. Именно это и хотелось как-то сделать
Добавлено: Чт ноя 16, 2006 02:50
Zorroz
Lev
А у меня при такой маске выводится дата создания. Т.е. я сейчас(16 ноября) пишу [Y].[M].[D] [N] и выводится 2006.11.14 log .png
Добавлено: Чт ноя 16, 2006 16:23
Lev
Перепроверил в 6.54 и 7pb1 - у меня получается дата файла, а не текущая
Добавлено: Чт ноя 16, 2006 16:29
wert202
у меня получается текущая дата в переименовании в 7pb1.
По маске стоит [=tc.Дата создания.Y.M.D] [N]
Добавлено: Чт ноя 16, 2006 16:39
Zorroz
wert202
Тоже не помогает ставит 14, а не 16 число.
Там же написано [=tc.Дата создания.Y.M.D] [N] - Дата создания
Добавлено: Чт ноя 16, 2006 16:49
wert202
я раньше не обращал внимание, но после подсказки
нажимаю кнопку:
[= ?] плагин -> tc -> Дата создания -> (выбираю из списка)
и мне выводится
[=tc.Дата создания.YMD]
Вот эта часть обязательная [=tc.Дата создания.
Также в этом списке есть [= ?] плагин -> tc -> Время создания,
Дата модификации (вобщем штук 15 перечислено)
Но вот все же еслиб был скриптик, одной кнопкой всего переводить в нужное тебе - былобы здорово
Добавлено: Чт ноя 16, 2006 17:57
Lev
чего-то у вас в консерваториях...
ланна, держите скриптик.
для работы требует установки TCScript.Helper'а
Код: Выделить всё
'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
Добавлено: Чт ноя 16, 2006 21:55
Volniy
Так вроде же
текущую дату нужно было дописывать. Кроме того, тут вполне можно обойтись и без хелпера, например вот так:
Код: Выделить всё
' 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()

В кнопке в качестве параметра указать "
%L"
А обработку ошибок лень добавить мне было...
Добавлено: Пт ноя 17, 2006 15:17
Lev
Ой, про текущую только при третьем прочтении прочел
