Серый форум — AHK: Решено: Переключение раскладки не работает в окнах FileOpen

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (teadrinker) — Wed, 30 Apr 2014 15:02:56 +0000

Добавил, заодно остальной код подправил.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (teadrinker) — Wed, 30 Apr 2014 14:26:53 +0000

Вроде работает.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (serzh82saratov) — Wed, 30 Apr 2014 14:20:01 +0000

Вообщем так:


ConvertRegistr(text) {
    Loop, parse, text
        res .= (Asc := Asc(A_LoopField)) > 0x0040 && Asc < 0x005b ? Chr(Asc+32)
            : Asc > 0x0060 && Asc < 0x007b ? Chr(Asc-32)
            : Asc > 0x040f && Asc < 0x0430 ? Chr(Asc+32)
            : Asc > 0x042f && Asc < 0x0451 ? Chr(Asc-32)
            : Asc = 0x0451 ? "Ё" :  Asc = 0x0401 ? "ё" : A_LoopField
   Return res
}

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (serzh82saratov) — Wed, 30 Apr 2014 14:15:50 +0000

А букву Ё за что обидел?

Эх Ё моЁ.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (teadrinker) — Wed, 30 Apr 2014 14:10:31 +0000

И "Я" из верхнего в нижний не конвертируется.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (teadrinker) — Wed, 30 Apr 2014 14:04:50 +0000

serzh82saratov пишет:

Да в принципе и массивы букв ненужны, просто добавьте:


ConvertRegistr(text) {
    Loop, parse, text
        res .= (Asc := Asc(A_LoopField)) > 0x0040 && Asc < 0x005b ? Chr(Asc+32)
            : Asc > 0x0060 && Asc < 0x007b ? Chr(Asc-32)
            : Asc > 0x040f && Asc < 0x042f ? Chr(Asc+32)
            : Asc > 0x042f && Asc < 0x0451 ? Chr(Asc-32) : A_LoopField
   Return res
}

А букву Ё за что обидел?

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (teadrinker) — Tue, 29 Apr 2014 21:48:23 +0000

Ага, спасибо, посмотрю, может заодно остальной код причешу.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (serzh82saratov) — Tue, 29 Apr 2014 20:48:55 +0000

Да в принципе и массивы букв ненужны, просто добавьте:


ConvertRegistr(text) {
    Loop, parse, text
        res .= (Asc := Asc(A_LoopField)) > 0x0040 && Asc < 0x005b ? Chr(Asc+32)
            : Asc > 0x0060 && Asc < 0x007b ? Chr(Asc-32)
            : Asc > 0x040f && Asc < 0x042f ? Chr(Asc+32)
            : Asc > 0x042f && Asc < 0x0451 ? Chr(Asc-32) : A_LoopField
   Return res
}

Ну и функцию запуска:


SwitchRegistr() {
    Critical 
    TempClipboard := ClipboardAll
    Clipboard =
    SendInput, ^{vk43}   ; Ctrl + C
    ClipWait, 0 
    SelText := ErrorLevel ? GetWord() : Clipboard 
    Clipboard := ConvertRegistr(SelText) 
    SendInput, ^{vk56}   ; Ctrl + V 
    Sleep, 200 
    Clipboard := TempClipboard
}

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (teadrinker) — Tue, 29 Apr 2014 20:26:43 +0000

Ладно, добавлю, как руки дойдут. Но человек, может, сам хотел попытаться.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (serzh82saratov) — Tue, 29 Apr 2014 20:21:51 +0000

teadrinker
Похоже на 10+ просьбу добавить это сюда - Смена раскладки написанного текста.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (teadrinker) — Tue, 29 Apr 2014 20:15:28 +0000

Алгоритм такой. Создаете две пары массивов символов: один с русскими буквами в нижнем регистре, второй с соответствующими в верхнем, аналогично с английскими; считываете последнее написанное слово и побуквенно сравниваете с символами в массивах, если найдено, добавляете в переменную соответствующий символ из парного массива, если нет — сам считанный символ. После прохождения всех букв заменяете написанное слово на текст из полученной переменой.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (define) — Tue, 29 Apr 2014 15:31:36 +0000

А как реализовать инверт CapsLock, исправление регистра букв (с заглавных на маленькие и обратно)?

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (stealzy) — Sat, 26 Apr 2014 07:50:37 +0000

+ Offtop

Последний вариант YMP мне не подходит, т.к. мне не нужен переключатель, а первый предложенный работал очень нестабильно.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (YMP) — Thu, 24 Apr 2014 11:18:27 +0000

У меня он работает на 8.1, ещё проверил на ХР SP2.

Re: AHK: Решено: Переключение раскладки не работает в окнах FileOpen

null@example.com (teadrinker) — Thu, 24 Apr 2014 10:45:27 +0000

А что, последний вариант YMP`а тоже не работает? Какая ОС?