Утилиты буфера обмена | Clipboard Managers - [7] :: Программы

oshizelly
В принципе, если сгодится мой вариант "только убрать запоминание всех текстовых фрагментов по умолчанию и вместо этого добавить один хоткей на принудительное запоминание", то всё не так уж сложно

Устанавливаете nnCron, регистрируете под бесплатной лицензией xUSSR (см. русскую Справку), потом копируете скрипт (см. ниже) как есть в файл nncron.tab (по умолчанию находится в папке "С:\Program files\nncron\").

Код:

# TEN-PIECE CLIPBOARD SAVER & RETRIEVER >>>

<%
WINAPI: GetClipboardData USER32.DLL
WINAPI: OpenClipboard USER32.DLL
WINAPI: CloseClipboard USER32.DLL

1 CONSTANT CF_TEXT
13 CONSTANT CF_UNICODETEXT

CREATE CB-BUF-X 10240 ALLOT

: UASCIIZ>plus { wa text-len -- wa u }
wa text-len 0= IF UASCIIZ> ELSE text-len THEN
;

: CB-GET-UNICODE { text-len -- addr u }
CF_UNICODETEXT GetClipboardData ?DUP 0=
IF CB-BUF-X 0 ELSE
text-len UASCIIZ>plus 10240 MIN >R
CB-BUF-X R@ CMOVE
CB-BUF-X R>
THEN
;

: clp-unicode { \ format-num text-len -- wa u }
0 OpenClipboard
IF
CF_TEXT 0 CB-GET-NUM 2 * TO text-len DROP
CF_UNICODETEXT text-len CB-GET-NUM
CloseClipboard DROP
ELSE
DROP S" "
THEN
;

: clp-ansi ( -- a u )
clp-unicode DUP 2 / ROT ROT UNICODE>S ROT NIP
;

: num>clp ( n -- a u )
         S" C:\TMP\CLIPBOARD\" ROT S>D <# # # #> S+ S" .clp" S+
     ;

\ *** ИСПРАВЛЕНО ***
    : save-to-file ( n -- )
        100 PAUSE
        S" ^(c)" SEND-KEYS \ Ctrl + с (English "c")
        10 PAUSE
        S" ^(с)" SEND-KEYS \ Ctrl + с (Russian "c")
        50 3000 BEEP
        50 PAUSE
        clp-ansi ROT num>clp FWRITE
    ;

\ *** ИСПРАВЛЕНО ***
    : paste-from-file ( n -- )
        num>clp FILE CLIPBOARD!
        50 1000 BEEP
        50 PAUSE
        S" ^(v)" SEND-KEYS \ Ctrl + v
        10 PAUSE
        S" ^(м)" SEND-KEYS \ Ctrl + м (Russian "м")
    ;
%>

#( CLASSIC-TASK-#-clipboard_saver_1
WatchHotKey: ^1 \ Ctrl + 1
Action:
1 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_2
WatchHotKey: ^2 \ Ctrl + 2
Action:
2 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_3
WatchHotKey: ^3 \ Ctrl + 3
Action:
3 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_4
WatchHotKey: ^4 \ Ctrl + 4
Action:
4 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_5
WatchHotKey: ^5 \ Ctrl + 5
Action:
5 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_6
WatchHotKey: ^6 \ Ctrl + 6
Action:
6 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_7
WatchHotKey: ^7 \ Ctrl + 7
Action:
7 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_8
WatchHotKey: ^8 \ Ctrl + 8
Action:
8 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_9
WatchHotKey: ^9 \ Ctrl + 9
Action:
9 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_saver_0
WatchHotKey: ^0 \ Ctrl + 0
Action:
0 save-to-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_1
WatchHotKey: ^+1 \ Ctrl + Shift + 1
Action:
1 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_2
WatchHotKey: ^+2 \ Ctrl + Shift + 2
Action:
2 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_2
WatchHotKey: ^+2 \ Ctrl + Shift + 2
Action:
2 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_3
WatchHotKey: ^+3 \ Ctrl + Shift + 3
Action:
3 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_4
WatchHotKey: ^+4 \ Ctrl + Shift + 4
Action:
4 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_5
WatchHotKey: ^+5 \ Ctrl + Shift + 5
Action:
5 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_6
WatchHotKey: ^+6 \ Ctrl + Shift + 6
Action:
6 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_7
WatchHotKey: ^+7 \ Ctrl + Shift + 7
Action:
7 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_8
WatchHotKey: ^+8 \ Ctrl + Shift + 8
Action:
8 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_9
WatchHotKey: ^+9 \ Ctrl + Shift + 9
Action:
9 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_retriever_0
WatchHotKey: ^+0 \ Ctrl + Shift + 0
Action:
0 paste-from-file
)#

#( CLASSIC-TASK-#-clipboard_saves_cleaner
WatchHotKey: ^@0 \ Ctrl + Alt + 0
Action:
S" Удалить сохраненные текстовые фрагменты?" 5 No TQUERY
IF
    10 0 DO
     I num>clp FDELETE
    LOOP
THEN
)#

# TEN-PIECE CLIPBOARD SAVER & RETRIEVER <<<

По нажатию Ctrl + # (где # - цифра от 0 до 9) выделенный текстовый фрагмент будет сохранен в файл (для этого программа, чье окно активно, должна поддерживать стандартное сочетание Ctrl + C), а по нажатию Ctrl + Shift + # ранее сохраненный фрагмент будет вставлен (разумеется, при условии поддержки сочетания Ctrl + V).
Сочетание Ctrl + Alt + 0 удаляет все ранее сохраненные фрагменты (т.е. стирает соответствующие файлы).

У скрипта есть недостатки. Например, символы, не входящие в набор ANSI, будут отображаться некорректно; впрочем, с русским языком проблем быть не должно: именно эту проблему мне вроде бы удалось решить (по крайней мере, у меня теперь с кириллицей всё нормально).

Кроме того, длина текстового фрагмента искусственно ограничена 5120 символами (при размере промежуточного Unicode-буфера 10 КБ), но при желании это значение можно увеличить.

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48