Страница 2 из 7
Добавлено: Сб ноя 01, 2014 19:02
Flasher
Про "заработало" понятно. Хорошо.
Dimsok писал(а):Могут быть глюки, если будет "%P"%%date
Конечно, могут. Вторая кавычка тут ни к чему.
Добавил сохранение в UTF-8.
Добавлено: Сб ноя 01, 2014 20:55
Dimsok
или с переходом к файлу на: Код:
"%%commander_exe%%" /S /O /L="%P%%date:~6%%.%%date:~3,2%%.%%date:~0,2%%_%%time:~0,2%%.%%time:~3,2%%.%%time:~6,2%%.txt\:"
Че то не понял, это для чего? Куда это вствалять?
Добавлено: Сб ноя 01, 2014 21:00
MVV
Dimsok,
Блок с TOTALCMD#BAR#DATA и по 1 целиком - это код кнопки. Копируешь в буфер и вставляешь прямо на панель тотала.
Добавлено: Сб ноя 01, 2014 21:21
Flasher
Dimsok
Выше же написано:
Flasher писал(а):... меняем всю часть после && на
Для чего? Для перехода (установки курсора) к файлу.
Добавлено: Сб ноя 01, 2014 21:33
Dimsok
Ну прежде чем спросить, я попробовал вставить после амперсандов. Просто разницы не увидел, думал что-то не так делаю. Да и отсутствие ошибки насторожило. Надо было несколько файлов создать, чтоб заметить, так удобней.
По поводу utf. Скопировал код, поменял путь к акелу. При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл. После чего приходится выгружать его из процессов
Добавлено: Сб ноя 01, 2014 21:51
Flasher
Да что ж у тебя ничего не работает-то. )))
Dimsok писал(а):Да и отсутствие ошибки насторожило.
Какой ошибки?
Dimsok писал(а):Надо было несколько файлов создать, чтоб заметить, так удобней.
Что заметить и что удобней?
Dimsok писал(а):При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл.
Непонятно. Файл создаётся, а Акель кричит, что его нет? Глупость какая-то...
Добавлено: Сб ноя 01, 2014 22:08
Dimsok
Какой ошибки?
-Ну это я так, привык, что с первого раза не получается.
Что заметить и что удобней?
-Я про файл под курсором
Непонятно. Файл создаётся, а Акель кричит, что его нет? Глупость какая-то...
-Файлы пустые
Добавлено спустя 7 минут:
Ну вот к примеру
"Cannot open file "h:\\Command(4155) \Command(4136) \Command(4325) \quit"
Добавлено спустя 5 минут:
Ну блин, опять та же фигня. Чего то у меня упорно копирует из браузера %P без первой кавычки. Надо было сразу предыдущий случай вспомнить
Добавлено спустя 2 минуты:
Благодарю за старания
Добавлено: Сб ноя 01, 2014 22:11
Flasher
Dimsok писал(а):Я про файл под курсором
Тьфу ты... Ясно. Т.е. работает. )
Dimsok писал(а):Ну вот к примеру
"Cannot open file "h:\\Command(4155) \Command(4136) \Command(4325) \quit"
Хм.. А Akel современный? Буфер не пустой?
Добавлено спустя 2 минуты:
Dimsok писал(а):Чего то у меня упорно копирует из браузера %P без первой кавычки.
Везёт.
В общем, всё в ажуре.
Добавлено: Сб ноя 01, 2014 22:19
Dimsok
И в заключение... Как бы это все присовокупить. Просто так добавить постамперсандную строку к акелопроизводной кнопке для выделения последнего utf файла я так полагаю не получится. Нир нужен
Добавлено: Сб ноя 01, 2014 22:38
Skif_off
Dimsok
Почему не получится? Амперсанд - что-то вроде конвеера, фича консольная, а не NirCmd: сначала выполняется часть до него, потом после. Лучше два амперсанда &&, тогда следующая команда будет выполнена только после удачного завершения предыдущей.
Добавлено: Сб ноя 01, 2014 22:49
Flasher
Dimsok
Ровно после всех параметров ту строку и надо добавить после сдвоенного амперсанда. В nir-e проблемы с кавычками, поэтому я через обычную cmd делал.
Добавлено: Вс ноя 02, 2014 05:58
Skif_off
AkelPad часто запущен + в опциях включен запрет на запуск нескольких копий,
[cut="далее преамбула (почти прелюдия)"]почему-то сначала в голову пришла бредовая мысль и я её таки реализовал
) Нашёл в исходниках, как проверяется наличие запущенной копии и скомпилил, изменив класс окна AkelPad и имя конфига. Ну, что сделал что-то не то, дошло как только опробовал кнопку...[/cut]
Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?
Несколько замороченно получается UTF-8, но на 70 000 символах (ru/en + пунктуация) уходит 3-3.5 мс (UTF-16 LE - ~2 мс).
Добавлено: Вс ноя 02, 2014 10:37
Flasher
Skif_off писал(а):Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?
Это к кому обращение?
Мне не нужен, файлы датами не помечаю, а ссылки на скрипты уже приводил в первом посте. Поправить их под формат даты - плёвое дело. Но кнопки лаконичней.
У меня, кстати, тоже установлена опция "Не открывать программу дважды", но при этом всё работает. Единственный минус - окно мелькает.
Добавлено: Пн ноя 03, 2014 04:05
LocKtaR-o-DarK
Dimsok
VBS-Код:
Option Explicit
dim dt
, y
, m
, d
, h
, n
, s
, list
, df
dt
= now
' год
y
= datepart("yyyy", dt
)
' месяц
m
= datepart("m", dt
)
if m
<10 then
m
="0"&m
end if
' день
d
= datepart("d", dt
)
if d
<10 then
d
="0"&d
end if
' час
h
= datepart("h", dt
)
if h
<10 then
h
="0"&h
end if
' минута
n
= datepart("n", dt
)
if n
<10 then
n
="0"&n
end if
' секунда
s
= datepart("s", dt
)
if s
<10 then
s
="0"&s
end if
list
= d
& "." & m
& "." & y
& "_" & h
& "." & n
& "." & s
&".txt"
' MsgBox list
' MsgBox now
CreateObject("Scripting.FileSystemObject").OpenTextFile
(list
, 2, true).WriteLine "" &CreateObject("htmlfile").ParentWindow.ClipboardData.GetData
("text")
df
= MsgBox ("Создан файл: "&list
, vbYesNo, "Открыть файл в редакторе?")
Select Case df
Case vbYes
CreateObject("Wscript.Shell").run
"notepad.exe "&list
Case vbNo
' MsgBox "Создан файл: "&list
End Select
Оговорюсь, что буфер обмена в настройках IE должен быть включён
Редактор, конечно, по вкусу (43 строка кода)
Кнопка
Код: Выделить всё
TOTALCMD#BAR#DATA
C:\TEST\t.vbs
WScript.exe,2
Сохранить текст из буфера обмена в файл с названием из даты и времени системы
Добавлено: Пн ноя 03, 2014 11:52
Flasher
Ой, сколько красивых букаф! Да и без тега quote..
Код: Выделить всё
'======================================================================================
' Назначение: cоздание в активной панели файла с текстом из буфера обмена (при наличии)
' с последующим к нему переходом или открытием в редакторе
' Условие: пустой путь запуска
' Параметр: "<Путь к редактору>" (необязательный)
'======================================================================================
T = Replace(Time, ":", ".") : If InStr(T, ".") = 2 Then T = 0 & T
Name = Year(Date) & "." & Left(Date, 5) & "_" & T & ".txt"
R = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
With CreateObject("WScript.Shell")
On Error Resume Next
A = .RegRead(R) : If A > 0 Or Err.Number <> 0 Then .RegWrite R, 0, "REG_DWORD"
Clip = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
If A > 0 Then .RegWrite R, A, "REG_DWORD"
On Error Goto 0
If IsNull(Clip) Or Trim(Clip) = "" Then WScript.Quit
Path = .CurrentDirectory & "\" & Name
With CreateObject("ADODB.Stream")
.Open : .CharSet = "UTF-8" : .WriteText Clip
.Position = 0 : .Type = 1 : .Position = 3 : Buff = .Read
.Close : .Open : .Write Buff : .SaveToFile Path, 2 : .Close
End With
If WScript.Arguments.Count Then .Exec WScript.Arguments(0) & " """ & Path & """" Else _
.Exec "%COMMANDER_EXE% /S /O /L=""" & Path & "\'"""
End With