Серый форум — AHK: Конвертация текста

Re: AHK: Конвертация текста

null@example.com (Alectric) — Mon, 16 Nov 2015 13:47:02 +0000

У becauseim, регистр остается прежним.

Re: AHK: Конвертация текста

null@example.com (YMP) — Mon, 16 Nov 2015 13:44:48 +0000

Ругается на 30-ю строчку, там точка с запятой откуда-то взялась перед =. После исправления, в Блокноте заменяет английскую абракадабру на русский текст в нижнем регистре. Русскую абракадабру просто удаляет.

Re: AHK: Конвертация текста

null@example.com (Alectric) — Mon, 16 Nov 2015 13:33:36 +0000

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

Re: AHK: Конвертация текста

null@example.com (YMP) — Mon, 16 Nov 2015 12:48:19 +0000

Я Скайпом не пользуюсь.

Re: AHK: Конвертация текста

null@example.com (becauseim) — Mon, 16 Nov 2015 12:37:41 +0000

YMP, у нас тут битва экстрасенсов
А если серьезно, было бы кстати, если бы Вы протестировали на своей "десятке" в окне Скайпа вариант из 16 поста от Alectric. Подозреваю, что у меня одного все так плохо.

Re: AHK: Конвертация текста

null@example.com (YMP) — Mon, 16 Nov 2015 11:59:22 +0000

У меня 10 стоит. А в чём мистика-то, не пойму. У вас тут какой-то таинственный разговор происходит, непонятный непосвящённому.

Re: AHK: Конвертация текста

null@example.com (becauseim) — Mon, 16 Nov 2015 10:16:58 +0000

Впрочем, теперь и этот метод перестал дружить со Скайпом.

Re: AHK: Конвертация текста

null@example.com (Alectric) — Mon, 16 Nov 2015 10:00:41 +0000

OFF: Что за мистика у него там происходит?!... У кого-нибудь еще стоит windows 10, кто-нибудь может это подтвердить?

Re: AHK: Конвертация текста

null@example.com (becauseim) — Mon, 16 Nov 2015 09:54:58 +0000

Re: AHK: Конвертация текста

null@example.com (Alectric) — Mon, 16 Nov 2015 09:49:35 +0000

Дану... напечатай слово заглавными буквами(без капслока) и смени этому слову раскладку.

...

Нужно исправить возвращаемое значение на:

    return "{vk" VK "}"

SendMode Input
#LAlt::
Send ^+{Left}^{vk58} ; Выделить и вырезать последнее слово слева от каретки
if (old_layout = "RU")
	{
		SendMessage, 0x50,, % Locale_EN,, A
	}
else
	{
		SendMessage, 0x50,, % Locale_RU,, A
	}
gosub, Paste
return


Paste:
KeyWait Ctrl
for k, v in StrSplit(clipboard)
    Send % CharToVk(v)
return



; ---------- Functions -----------

CharToVk(Char)
{
    static Eng := 0x4090409, Rus := 0x4190419
    CharCode := Asc(Char)
    Lang := charcode > 127 ? Rus : Eng
    PrevLang := getscriptlang()
    If (Lang != PrevLang) {
        SetScriptLang(Lang)
    }
    VK := DllCall("VkKeyScan", "uchar", CharCode, "Short")
    SetFormat, Integer, H
    VK :=  SubStr(VK & 0xFF, 3)
    StringUpper, VK, VK
    SetFormat, Integer, D
    If (Lang != PrevLang) {
        SetScriptLang(PrevLang)
    }
    return "{vk" VK "}"
}

GetScriptLang()
{
    static ThreadID := 0
    If (ThreadID = 0)
        ThreadID := DllCall("GetWindowThreadProcessId", "ptr", A_ScriptHwnd, "uint", 0, "ptr")
    Return DllCall("GetKeyboardLayout", "ptr", ThreadID, "ptr")
}

SetScriptLang(Lang)
{
    static Func := "PostMessage" . (A_IsUnicode? "W":"A")
    DllCall(Func, "ptr", A_ScriptHwnd, "uint", 0x50, "ptr", 0, "ptr", Lang)
    Sleep, -1
}

Re: AHK: Конвертация текста

null@example.com (becauseim) — Mon, 16 Nov 2015 09:45:23 +0000

Alectric, используя имеющийся вариант из первого поста, проблем с регистром не возникает.

На данный момент у меня не получилось связать модификацию от YMP с отправлением скопированного текста.

Re: AHK: Конвертация текста

null@example.com (Alectric) — Mon, 16 Nov 2015 09:37:37 +0000

Далее возникнет проблема регистра букв...

Re: AHK: Конвертация текста

null@example.com (YMP) — Mon, 16 Nov 2015 09:24:16 +0000

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


MsgBox, % CharToVk("a") "`n" CharToVk("ф")


; ---------- Functions -----------

CharToVk(Char)
{
    static Eng := 0x4090409, Rus := 0x4190419
    CharCode := Asc(Char)
    Lang := CharCode > 127 ? Rus : Eng
    PrevLang := GetScriptLang()
    If (Lang != PrevLang) {
        SetScriptLang(Lang)
    }
    VK := DllCall("VkKeyScan", "uchar", CharCode, "Short")
    SetFormat, Integer, H
    VK :=  SubStr(VK & 0xFF, 3)
    StringUpper, VK, VK
    SetFormat, Integer, D
    If (Lang != PrevLang) {
        SetScriptLang(PrevLang)
    }
    Return "vk" VK
}

GetScriptLang()
{
    static ThreadID := DllCall("GetWindowThreadProcessId", "ptr", A_ScriptHwnd, "uint", 0, "ptr")
    Return DllCall("GetKeyboardLayout", "ptr", ThreadID, "ptr")
}

SetScriptLang(Lang)
{
    static Func := "PostMessage" . (A_IsUnicode? "W":"A")
    DllCall(Func, "ptr", A_ScriptHwnd, "uint", 0x50, "ptr", 0, "ptr", Lang)
    Sleep, -1
}

Re: AHK: Конвертация текста

null@example.com (Alectric) — Mon, 16 Nov 2015 06:20:11 +0000

Проблема того кода с первого поста, то из-за чего исчезает слово:

msgbox,% "ru: " asc("ф") "`nen: " asc("a")

Здесь:

VK := DllCall("VkKeyScan", "uchar", Asc(Char), "Short")

...

VK1 := DllCall("VkKeyScan", "uchar", Asc("ф"), "Short")
VK2 := DllCall("VkKeyScan", "uchar", Asc("a"), "Short")

msgbox,% vk1 "`n" vk2

...

Возможно можно позаимствовать некоторые функции из библиотеки у serzh82saratov.

Re: AHK: Конвертация текста

null@example.com (becauseim) — Mon, 16 Nov 2015 05:18:20 +0000

serzh82saratov, Скайп падает после второй конвертации.
Такая же проблема была и с Punto Switcher до ее обновления.

Я могу ошибаться, но мне кажется странным, что вариант с отправлением виртуальных кодов никому не приглянулся, т.к. кажется, что такой метод должен работать не хуже при гораздо меньшем объеме кода. И самое, на мой взгляд, интересное, что он должен работать с разными языками, для чего необходимо будет лишь заменить строку с заданной раскладкой.