Вставка содержимого буфера в новый файл (текст/изображениe)
Select messages from
 # through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3, 4, 5, 6, 7  Next  :| |:
Total Commander -> Автоматизация Total Commander
#16:  Author: Flasher, Location: Москва PostPosted: Sat Nov 01, 2014 20:02
    —
Про "заработало" понятно. Хорошо.
Dimsok wrote:
Могут быть глюки, если будет "%P"%%date
Конечно, могут. Вторая кавычка тут ни к чему.

Добавил сохранение в UTF-8.
#17:  Author: Dimsok,  PostPosted: Sat Nov 01, 2014 21:55
    —
или с переходом к файлу на: Код:
"%%commander_exe%%" /S /O /L="%P%%date:~6%%.%%date:~3,2%%.%%date:~0,2%%_%%time:~0,2%%.%%time:~3,2%%.%%time:~6,2%%.txt\:"

Че то не понял, это для чего? Куда это вствалять?
#18:  Author: MVV, Location: Ростов-Дон PostPosted: Sat Nov 01, 2014 22:00
    —
Dimsok,
Блок с TOTALCMD#BAR#DATA и по 1 целиком - это код кнопки. Копируешь в буфер и вставляешь прямо на панель тотала.
#19:  Author: Flasher, Location: Москва PostPosted: Sat Nov 01, 2014 22:21
    —
Dimsok
Выше же написано:
Flasher wrote:
... меняем всю часть после && на
Для чего? Для перехода (установки курсора) к файлу.
#20:  Author: Dimsok,  PostPosted: Sat Nov 01, 2014 22:33
    —
Ну прежде чем спросить, я попробовал вставить после амперсандов. Просто разницы не увидел, думал что-то не так делаю. Да и отсутствие ошибки насторожило. Надо было несколько файлов создать, чтоб заметить, так удобней.

По поводу utf. Скопировал код, поменял путь к акелу. При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл. После чего приходится выгружать его из процессов
#21:  Author: Flasher, Location: Москва PostPosted: Sat Nov 01, 2014 22:51
    —
Да что ж у тебя ничего не работает-то. )))
Dimsok wrote:
Да и отсутствие ошибки насторожило.
Какой ошибки?
Dimsok wrote:
Надо было несколько файлов создать, чтоб заметить, так удобней.
Что заметить и что удобней?
Dimsok wrote:
При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл.
Непонятно. Файл создаётся, а Акель кричит, что его нет? Глупость какая-то...
#22:  Author: Dimsok,  PostPosted: Sat Nov 01, 2014 22:55
    —
Какой ошибки?

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

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

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

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

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

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

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

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

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

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

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

Благодарю за старания
#23:  Author: Flasher, Location: Москва PostPosted: Sat Nov 01, 2014 23:10
    —
Dimsok wrote:
Я про файл под курсором
Тьфу ты... Ясно. Т.е. работает. )

Dimsok wrote:
Ну вот к примеру

"Cannot open file "h:\\Command(4155) \Command(4136) \Command(4325) \quit"
Хм.. А Akel современный? Буфер не пустой?

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

Dimsok wrote:
Чего то у меня упорно копирует из браузера %P без первой кавычки.
Везёт. Smile
В общем, всё в ажуре.
#24:  Author: Dimsok,  PostPosted: Sat Nov 01, 2014 23:19
    —
И в заключение... Как бы это все присовокупить. Просто так добавить постамперсандную строку к акелопроизводной кнопке для выделения последнего utf файла я так полагаю не получится. Нир нужен
#25:  Author: Skif_off,  PostPosted: Sat Nov 01, 2014 23:38
    —
Dimsok
Почему не получится? Амперсанд - что-то вроде конвеера, фича консольная, а не NirCmd: сначала выполняется часть до него, потом после. Лучше два амперсанда &&, тогда следующая команда будет выполнена только после удачного завершения предыдущей.
#26:  Author: Flasher, Location: Москва PostPosted: Sat Nov 01, 2014 23:49
    —
Dimsok
Ровно после всех параметров ту строку и надо добавить после сдвоенного амперсанда. В nir-e проблемы с кавычками, поэтому я через обычную cmd делал.
#27:  Author: Skif_off,  PostPosted: Sun Nov 02, 2014 06:58
    —
AkelPad часто запущен + в опциях включен запрет на запуск нескольких копий,
 далее преамбула (почти прелюдия)

Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?
Несколько замороченно получается UTF-8, но на 70 000 символах (ru/en + пунктуация) уходит 3-3.5 мс (UTF-16 LE - ~2 мс).
#28:  Author: Flasher, Location: Москва PostPosted: Sun Nov 02, 2014 11:37
    —
Skif_off wrote:
Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?
Это к кому обращение?
Мне не нужен, файлы датами не помечаю, а ссылки на скрипты уже приводил в первом посте. Поправить их под формат даты - плёвое дело. Но кнопки лаконичней.
У меня, кстати, тоже установлена опция "Не открывать программу дважды", но при этом всё работает. Единственный минус - окно мелькает.
#29:  Author: LocKtaR-o-DarK, Location: Москва PostPosted: Mon Nov 03, 2014 05:05
    —
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 строка кода)

Кнопка
Code:
TOTALCMD#BAR#DATA
C:\TEST\t.vbs

WScript.exe,2
Сохранить текст из буфера обмена в файл с названием из даты и времени системы


Last edited by LocKtaR-o-DarK on Tue Nov 04, 2014 02:09; edited 1 time in total
#30:  Author: Flasher, Location: Москва PostPosted: Mon Nov 03, 2014 12:52
    —
Ой, сколько красивых букаф! Да и без тега quote..

Code:
'======================================================================================
' Назначение: 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


Last edited by Flasher on Tue Nov 04, 2014 17:07; edited 4 times in total
Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3, 4, 5, 6, 7  Next  :| |:
Page 2 of 7

Powered by phpBB © 2001, 2005 phpBB Group