Серый форум — AHK: Ввод греческих букв

Re: AHK: Ввод греческих букв

null@example.com (ypppu) — Tue, 23 Nov 2010 14:52:09 +0000

Вроде как решил проблему, с горем пополам, добавив задержки 100 мс и ограничив автоповтор. Видимо, у программы буфер был "тяжёлый".
Теперь файлы форматированных символов складываются в папку \res\symbols, а в листе настроек надо вписывать строчки, вроде:

+vk58::    Var2paste("phi2")        ;Ч    Фи(вар.2)
+vk49::    Var2paste("diametr")        ;Ш    Значок диаметра

Re: AHK: Ввод греческих букв

null@example.com (ypppu) — Mon, 22 Nov 2010 15:14:49 +0000

Теперь такой костыль всплыл.
На горячую клавишу (Shift+Ч) назначил вставку символа из буфера. В буфер он попадает из переменной, в которую предварительно считывается из файла. Заодно содержимое буфера записывается во вспомогательную переменную ClipSaved, из которого потом и восстанавливается.
Привожу код.

FileAppend, %ClipboardAll%, 1.smb
Sleep, 1000
FileRead, phi2, *c 1.smb

+vk58::            ;Ч
ClipSaved := ClipboardAll
Clipboard :=phi2
Send ^{vk56}
Clipboard := ClipSaved
sleep, 50
return

Возьмите в буфер какую-нибудь букву. Запустите скрипт. Теперь, если нажать Shift+Ч, в текстовом поле вставится символ. Но если нажать и удерживать Shift+Ч, будет напечатан этот же символ, но вперемежку с Ч. А если при этом в буфере было что-то ещё, то получится ещё интереснее.
Спрашивается, как сделать, чтобы при удерживании Shift+Ч печатался ряд символов (из переменной phi2), а не всякий хлам?

Re: AHK: Ввод греческих букв

null@example.com (ypppu) — Sun, 21 Nov 2010 09:29:27 +0000

Нашёл у себя ошибку, всё работает.

Re: AHK: Ввод греческих букв

null@example.com (YMP) — Sat, 20 Nov 2010 12:41:28 +0000

Не знаю, у меня всё работает.

Re: AHK: Ввод греческих букв

null@example.com (ypppu) — Sat, 20 Nov 2010 09:57:53 +0000

ClipboardAll также может быть сохранена в файл (в этом режиме FileAppend всегда перезаписывает существующий файл):
FileAppend, %ClipboardAll%, C:\Company Logo.clip ; Расширение файла не имеет значения.
Для последующего восстановления файла в клипборде (или в переменной) следуйте следующему образцу:
FileRead, Clipboard, *c C:\Company Logo.clip ; Обратите внимание на *c перед именем файла

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

Re: AHK: Ввод греческих букв

null@example.com (YMP) — Thu, 18 Nov 2010 15:42:20 +0000

Конечно, можно. Почитайте про ClipboardAll. Только у Вас получится по файлу на каждый символ.

Если же все символы в один файл, тогда нужно через DllCall с API работать. Любой формат можно извлечь или поместить, какой нужно. Пример извлечения я давал тут: AHK: Доступ к расширенному буферу.

Re: AHK: Ввод греческих букв

null@example.com (ypppu) — Thu, 18 Nov 2010 14:57:40 +0000

Я могу скопировать в буфер символ. Можно с помощью Autohotkey записать содержимое буфера в файл, чтобы потом считывать в буфер из файла?

Re: AHK: Ввод греческих букв

null@example.com (YMP) — Thu, 18 Nov 2010 12:55:06 +0000

Если разбираетесь в этом формате.

Re: AHK: Ввод греческих букв

null@example.com (ypppu) — Thu, 18 Nov 2010 11:47:09 +0000

Возможно вводить символы определённым шрифтом?
Допустим, при вставке текста (Ctrl+V) приложение понимает форматирование. И если в буфере обмена текст был определённым шрифтом, то он и вставится этим же шрифтом. А можно ли в буфере сформировать символ в нужном формате?

Re: AHK: Ввод греческих букв

null@example.com (ypppu) — Sun, 24 Oct 2010 16:57:41 +0000

Готово.

Re: AHK: Ввод греческих букв

null@example.com (YMP) — Sun, 24 Oct 2010 15:39:13 +0000

ypppu, функция SendU, собственно, не моя, взята отсюда: SendInput in Unicode mode. Я только создание буфера внёс внутрь функции. Думаю, в теме в Коллекции нужно дать ссылку на оригинал.

Re: AHK: Ввод греческих букв

null@example.com (YMP) — Mon, 31 May 2010 08:38:21 +0000

Ну, вообще-то, это давно не новости, просто не доходили руки разобраться. Насчёт тем на эту тему я уже думал. По мере того, как сам буду разбираться в документации, можно и пересказывать на русском. Документация там напоминает не дерево, а скорее сеть. Ходишь по ссылкам и постепенно теряешь ориентацию.

Re: AHK: Ввод греческих букв

null@example.com (alexii) — Mon, 31 May 2010 06:52:28 +0000

YMP пишет:

Кстати, установил для пробы AutoHotkey_L, юникодовский вариант.

Можно бы, пожалуй, под это дело отдельную тему завести: может, ещё желающие найдутся попробовать, а?! А то — сразу в «Новости…».

Re: AHK: Ввод греческих букв

null@example.com (YMP) — Mon, 31 May 2010 06:48:14 +0000

Кстати, установил для пробы AutoHotkey_L, юникодовский вариант. Там этой проблемы вообще нет. Скрипты можно сохранять в UTF-8, так что можно просто написать в скрипте:

F11:: Send, ΙΘΞΣΨΩ

И всё нормально посылается.

Также можно работать с файлами в разных кодировках, что тоже было проблемой в основном AutoHotkey. Чтение/запись бинарных файлов тоже встроена. Наверно, пора на него переходить. Тем более, эта ветка развивается, а основная что-то заглохла.

Re: AHK: Ввод греческих букв

null@example.com (YMP) — Sun, 23 May 2010 11:14:54 +0000

Не смог проверить, т.к. Ворда нет. Думаю, возможно более универсальное решение, чтобы работало не только в Ворде. Правда, опять же, не знаю, как это поведёт себя в Ворде. Тут используются коды символов, взятые из программки "Таблица символов" Windows.

#Singleinstance, force
SetKeyDelay, -1, -1

;Заглавные
+vk46:: SendU(0x391)   ;А    Альфа
+vkBC:: SendU(0x392)   ;Б    Бета
+vk44:: SendU(0x392)   ;В    Бета
+vk55:: SendU(0x393)   ;Г    Гамма
+vk4C:: SendU(0x394)   ;Д    Дельта

;строчные
vk46:: SendU(0x3B1)    ;а    альфа
vkBC:: SendU(0x3B2)    ;б    бета
vk44:: SendU(0x3B2)    ;в    бета
vk55:: SendU(0x3B3)    ;г    гамма
vk4C:: SendU(0x3B4)    ;д    дельта

CapsLock:: Suspend
F12:: ExitApp

;===================== Функция ====================================

SendU(UC) {  ; Send Unicode Char, Pressed modifier keys stay active!
    VarSetCapacity(SendUbuf, 56, 0) ; INIT SendU data strucure
    NumPut(1, SendUbuf, 0, "Char")
    NumPut(1, SendUbuf,28, "Char")
    NumPut(0x40000|UC, SendUbuf, 6)
    NumPut(0x60000|UC, SendUbuf,34)
    Return DllCall("SendInput", UInt,2, UInt,&SendUbuf, Int,28)
}