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 

Вставка содержимого буфера в новый файл (текст/изображениe)
Goto page Previous  1, 2, 3, 4, 5, 6, 7  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Nov 01, 2014 20:02    Post subject: Reply with quote

Про "заработало" понятно. Хорошо.
Dimsok wrote:
Могут быть глюки, если будет "%P"%%date
Конечно, могут. Вторая кавычка тут ни к чему.

Добавил сохранение в UTF-8.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Sat Nov 01, 2014 21:55    Post subject: Reply with quote

или с переходом к файлу на: Код:
"%%commander_exe%%" /S /O /L="%P%%date:~6%%.%%date:~3,2%%.%%date:~0,2%%_%%time:~0,2%%.%%time:~3,2%%.%%time:~6,2%%.txt\:"

Че то не понял, это для чего? Куда это вствалять?
Back to top
View user's profile Send private message
MVV



Joined: 15 Oct 2009
Posts: 4811
Location: Ростов-Дон

Post (Separately) Posted: Sat Nov 01, 2014 22:00    Post subject: Reply with quote

Dimsok,
Блок с TOTALCMD#BAR#DATA и по 1 целиком - это код кнопки. Копируешь в буфер и вставляешь прямо на панель тотала.
_________________
TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel…
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Nov 01, 2014 22:21    Post subject: Reply with quote

Dimsok
Выше же написано:
Flasher wrote:
... меняем всю часть после && на
Для чего? Для перехода (установки курсора) к файлу.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Sat Nov 01, 2014 22:33    Post subject: Reply with quote

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

По поводу utf. Скопировал код, поменял путь к акелу. При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл. После чего приходится выгружать его из процессов
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Nov 01, 2014 22:51    Post subject: Reply with quote

Да что ж у тебя ничего не работает-то. )))
Dimsok wrote:
Да и отсутствие ошибки насторожило.
Какой ошибки?
Dimsok wrote:
Надо было несколько файлов создать, чтоб заметить, так удобней.
Что заметить и что удобней?
Dimsok wrote:
При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл.
Непонятно. Файл создаётся, а Акель кричит, что его нет? Глупость какая-то...
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Sat Nov 01, 2014 22:55    Post subject: Reply with quote

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

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

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

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

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

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

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

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

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

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

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

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

Благодарю за старания
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Nov 01, 2014 23:10    Post subject: Reply with quote

Dimsok wrote:
Я про файл под курсором
Тьфу ты... Ясно. Т.е. работает. )

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

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

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

Dimsok wrote:
Чего то у меня упорно копирует из браузера %P без первой кавычки.
Везёт. Smile
В общем, всё в ажуре.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Sat Nov 01, 2014 23:19    Post subject: Reply with quote

И в заключение... Как бы это все присовокупить. Просто так добавить постамперсандную строку к акелопроизводной кнопке для выделения последнего utf файла я так полагаю не получится. Нир нужен
Back to top
View user's profile Send private message
Skif_off



Joined: 28 Nov 2012
Posts: 1232

Post (Separately) Posted: Sat Nov 01, 2014 23:38    Post subject: Reply with quote

Dimsok
Почему не получится? Амперсанд - что-то вроде конвеера, фича консольная, а не NirCmd: сначала выполняется часть до него, потом после. Лучше два амперсанда &&, тогда следующая команда будет выполнена только после удачного завершения предыдущей.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Nov 01, 2014 23:49    Post subject: Reply with quote

Dimsok
Ровно после всех параметров ту строку и надо добавить после сдвоенного амперсанда. В nir-e проблемы с кавычками, поэтому я через обычную cmd делал.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Skif_off



Joined: 28 Nov 2012
Posts: 1232

Post (Separately) Posted: Sun Nov 02, 2014 06:58    Post subject: Reply with quote

AkelPad часто запущен + в опциях включен запрет на запуск нескольких копий,
 далее преамбула (почти прелюдия)

Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?
Несколько замороченно получается UTF-8, но на 70 000 символах (ru/en + пунктуация) уходит 3-3.5 мс (UTF-16 LE - ~2 мс).
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Nov 02, 2014 11:37    Post subject: Reply with quote

Skif_off wrote:
Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?
Это к кому обращение?
Мне не нужен, файлы датами не помечаю, а ссылки на скрипты уже приводил в первом посте. Поправить их под формат даты - плёвое дело. Но кнопки лаконичней.
У меня, кстати, тоже установлена опция "Не открывать программу дважды", но при этом всё работает. Единственный минус - окно мелькает.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
LocKtaR-o-DarK



Joined: 12 Aug 2005
Posts: 349
Location: Москва

Post (Separately) Posted: Mon Nov 03, 2014 05:05    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Nov 03, 2014 12:52    Post subject: Reply with quote

Ой, сколько красивых букаф! Да и без тега 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

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.


Last edited by Flasher on Tue Nov 04, 2014 17:07; edited 4 times in total
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 Previous  1, 2, 3, 4, 5, 6, 7  Next
Page 2 of 7

 
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