View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Nov 01, 2014 20:02 Post subject: |
|
|
Про "заработало" понятно. Хорошо.
Dimsok wrote: | Могут быть глюки, если будет "%P"%%date | Конечно, могут. Вторая кавычка тут ни к чему.
Добавил сохранение в UTF-8. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Sat Nov 01, 2014 21:55 Post subject: |
|
|
или с переходом к файлу на: Код:
"%%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 |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Nov 01, 2014 22:21 Post subject: |
|
|
Dimsok
Выше же написано: Flasher wrote: | ... меняем всю часть после && на | Для чего? Для перехода (установки курсора) к файлу. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Sat Nov 01, 2014 22:33 Post subject: |
|
|
Ну прежде чем спросить, я попробовал вставить после амперсандов. Просто разницы не увидел, думал что-то не так делаю. Да и отсутствие ошибки насторожило. Надо было несколько файлов создать, чтоб заметить, так удобней.
По поводу utf. Скопировал код, поменял путь к акелу. При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл. После чего приходится выгружать его из процессов |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Nov 01, 2014 22:51 Post subject: |
|
|
Да что ж у тебя ничего не работает-то. )))
Dimsok wrote: | Да и отсутствие ошибки насторожило. | Какой ошибки?
Dimsok wrote: | Надо было несколько файлов создать, чтоб заметить, так удобней. | Что заметить и что удобней?
Dimsok wrote: | При старте создается пустой файл и акел говорит, что нельзя найти такой-то файл. | Непонятно. Файл создаётся, а Акель кричит, что его нет? Глупость какая-то... _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Sat Nov 01, 2014 22:55 Post subject: |
|
|
Какой ошибки?
-Ну это я так, привык, что с первого раза не получается.
Что заметить и что удобней?
-Я про файл под курсором
Непонятно. Файл создаётся, а Акель кричит, что его нет? Глупость какая-то...
-Файлы пустые
Добавлено спустя 7 минут:
Ну вот к примеру
"Cannot open file "h:\\Command(4155) \Command(4136) \Command(4325) \quit"
Добавлено спустя 5 минут:
Ну блин, опять та же фигня. Чего то у меня упорно копирует из браузера %P без первой кавычки. Надо было сразу предыдущий случай вспомнить
Добавлено спустя 2 минуты:
Благодарю за старания |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Nov 01, 2014 23:10 Post subject: |
|
|
Dimsok wrote: | Я про файл под курсором | Тьфу ты... Ясно. Т.е. работает. )
Dimsok wrote: | Ну вот к примеру
"Cannot open file "h:\\Command(4155) \Command(4136) \Command(4325) \quit" | Хм.. А Akel современный? Буфер не пустой?
Добавлено спустя 2 минуты:
Dimsok wrote: | Чего то у меня упорно копирует из браузера %P без первой кавычки. | Везёт.
В общем, всё в ажуре. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Sat Nov 01, 2014 23:19 Post subject: |
|
|
И в заключение... Как бы это все присовокупить. Просто так добавить постамперсандную строку к акелопроизводной кнопке для выделения последнего utf файла я так полагаю не получится. Нир нужен |
|
Back to top |
|
|
Skif_off
Joined: 28 Nov 2012 Posts: 1232
|
(Separately) Posted: Sat Nov 01, 2014 23:38 Post subject: |
|
|
Dimsok
Почему не получится? Амперсанд - что-то вроде конвеера, фича консольная, а не NirCmd: сначала выполняется часть до него, потом после. Лучше два амперсанда &&, тогда следующая команда будет выполнена только после удачного завершения предыдущей. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Nov 01, 2014 23:49 Post subject: |
|
|
Dimsok
Ровно после всех параметров ту строку и надо добавить после сдвоенного амперсанда. В nir-e проблемы с кавычками, поэтому я через обычную cmd делал. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Skif_off
Joined: 28 Nov 2012 Posts: 1232
|
(Separately) Posted: Sun Nov 02, 2014 06:58 Post subject: |
|
|
AkelPad часто запущен + в опциях включен запрет на запуск нескольких копий,
далее преамбула (почти прелюдия) почему-то сначала в голову пришла бредовая мысль и я её таки реализовал ) Нашёл в исходниках, как проверяется наличие запущенной копии и скомпилил, изменив класс окна AkelPad и имя конфига. Ну, что сделал что-то не то, дошло как только опробовал кнопку...
Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен?
Несколько замороченно получается UTF-8, но на 70 000 символах (ru/en + пунктуация) уходит 3-3.5 мс (UTF-16 LE - ~2 мс). |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Nov 02, 2014 11:37 Post subject: |
|
|
Skif_off wrote: | Скрипт на AutoIt, которого не испугает амперсанд в пути и который в AkelPad предлагает только открыть результат, нужен? | Это к кому обращение?
Мне не нужен, файлы датами не помечаю, а ссылки на скрипты уже приводил в первом посте. Поправить их под формат даты - плёвое дело. Но кнопки лаконичней.
У меня, кстати, тоже установлена опция "Не открывать программу дважды", но при этом всё работает. Единственный минус - окно мелькает. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005 Posts: 349 Location: Москва
|
(Separately) Posted: Mon Nov 03, 2014 05:05 Post subject: |
|
|
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 |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Nov 03, 2014 12:52 Post subject: |
|
|
Ой, сколько красивых букаф! Да и без тега 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 |
|
|
|
|
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
|