Вставка содержимого буфера в новый файл (текст/изображениe)

[Flasher]

Про "заработало" понятно. Хорошо.

Могут быть глюки, если будет "%P"%%date

Конечно, могут. Вторая кавычка тут ни к чему.

Добавил сохранение в UTF-8.

[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\:"

Че то не понял, это для чего? Куда это вствалять?

[MVV]

Dimsok,
Блок с TOTALCMD#BAR#DATA и по 1 целиком - это код кнопки. Копируешь в буфер и вставляешь прямо на панель тотала.

[Flasher]

Dimsok
Выше же написано:

... меняем всю часть после && на

Для чего? Для перехода (установки курсора) к файлу.

[Dimsok]

Ну прежде чем спросить, я попробовал вставить после амперсандов. Просто разницы не увидел, думал что-то не так делаю. Да и отсутствие ошибки насторожило. Надо было несколько файлов создать, чтоб заметить, так удобней.

По поводу utf. Скопировал код, поменял путь к акелу. При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл. После чего приходится выгружать его из процессов

[Flasher]

Да что ж у тебя ничего не работает-то. )))

Да и отсутствие ошибки насторожило.

Какой ошибки?

Надо было несколько файлов создать, чтоб заметить, так удобней.

Что заметить и что удобней?

При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл.

Непонятно. Файл создаётся, а Акель кричит, что его нет? Глупость какая-то...

[Dimsok]

Какой ошибки?

-Ну это я так, привык, что с первого раза не получается.

Что заметить и что удобней?

-Я про файл под курсором

Непонятно. Файл создаётся, а Акель кричит, что его нет? Глупость какая-то...

-Файлы пустые

Добавлено спустя 7 минут:

Ну вот к примеру

"Cannot open file "h:\\Command(4155) \Command(4136) \Command(4325) \quit"

Добавлено спустя 5 минут:

Ну блин, опять та же фигня. Чего то у меня упорно копирует из браузера %P без первой кавычки. Надо было сразу предыдущий случай вспомнить

Добавлено спустя 2 минуты:

Благодарю за старания

[Flasher]

Я про файл под курсором

Тьфу ты... Ясно. Т.е. работает. )

Ну вот к примеру

"Cannot open file "h:\\Command(4155) \Command(4136) \Command(4325) \quit"

Хм.. А Akel современный? Буфер не пустой?

Добавлено спустя 2 минуты:

Чего то у меня упорно копирует из браузера %P без первой кавычки.

Везёт.
В общем, всё в ажуре.

[Dimsok]

И в заключение... Как бы это все присовокупить. Просто так добавить постамперсандную строку к акелопроизводной кнопке для выделения последнего utf файла я так полагаю не получится. Нир нужен

[Skif_off]

Dimsok
Почему не получится? Амперсанд - что-то вроде конвеера, фича консольная, а не NirCmd: сначала выполняется часть до него, потом после. Лучше два амперсанда &&, тогда следующая команда будет выполнена только после удачного завершения предыдущей.

[Flasher]

Dimsok
Ровно после всех параметров ту строку и надо добавить после сдвоенного амперсанда. В nir-e проблемы с кавычками, поэтому я через обычную cmd делал.

[Skif_off]

AkelPad часто запущен + в опциях включен запрет на запуск нескольких копий,
[cut="далее преамбула (почти прелюдия)"]почему-то сначала в голову пришла бредовая мысль и я её таки реализовал ) Нашёл в исходниках, как проверяется наличие запущенной копии и скомпилил, изменив класс окна AkelPad и имя конфига. Ну, что сделал что-то не то, дошло как только опробовал кнопку...[/cut]
Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?
Несколько замороченно получается UTF-8, но на 70 000 символах (ru/en + пунктуация) уходит 3-3.5 мс (UTF-16 LE - ~2 мс).

[Flasher]

Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?

Это к кому обращение?
Мне не нужен, файлы датами не помечаю, а ссылки на скрипты уже приводил в первом посте. Поправить их под формат даты - плёвое дело. Но кнопки лаконичней.
У меня, кстати, тоже установлена опция "Не открывать программу дважды", но при этом всё работает. Единственный минус - окно мелькает.

[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
Сохранить текст из буфера обмена в файл с названием из даты и времени системы

[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