Серый форум — AHK:Изменение языка текста с английского на русский и наоборот

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (sabir.yanin2014) — Mon, 09 May 2016 21:14:14 +0000

Небольшое изменение (способ смены раскладки) позволяет коду работать в Windows 10


#EscapeChar \
EN1=QWERTYUIOP{}qwertyuiop[]
RU1=ЙЦУКЕНГШЩЗХЪйцукенгшщзхъ
EN2=ASDFGHJKL:"asdfghjkl;'
RU2=ФЫВАПРОЛДЖЭфывапролджэ
EN3=ZXCVBNM<>zxcvbnm,.
RU3=ЯЧСМИТЬБЮячсмитьбю
EN4=~#|`
RU4=Ё№/ё
EN_Alt=$^?/@
RU_Alt=;:,."
EN=%EN1%%EN2%%EN3%%EN4%
RU=%RU1%%RU2%%RU3%%RU4%

^Ins:: ;выделяем строку от курсора влево
send {Shift Down}{Home}{Shift Up} 
Gosub, s1
return
Ins:: ;выделяем слово от курсора влево
send {Ctrl Down}{Shift Down}{Left}{Shift Up}{Ctrl Up} 
Gosub, s1
return
+Ins:: ;выделяем символ от курсора влево
send {Shift Down}{Left}{Shift Up} 
Gosub, s1
return
^#Ins:: ;выделяем строку от курсора вправо
send {Shift Down}{End}{Shift Up} 
Gosub, s1
return
#Ins:: ;выделяем слово от курсора вправо
send {Ctrl Down}{Shift Down}{Right}{Shift Up}{Ctrl Up} 
Gosub, s1
return
+#Ins:: ;выделяем символ от курсора вправо
send {Shift Down}{Right}{Shift Up} 
Gosub, s1
return

s1:
If DllCall("GetKeyboardLayout", "Int", DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", "0"))=0x4190419
{
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4090409, %CtrlFocus% ;английский
}
else
{
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4190419, %CtrlFocus% ;русский
}
Clipboard=
send ^{vk43} ;Ctrl+C
V:="",English:=EN,Russian:=RU,Text:=Clipboard
Gosub, s2

if V=%Clipboard_OLD%
{
V:="",English:=EN_Alt,Russian:=RU_Alt,Text:=Clipboard_OLD
Gosub, s2
}
Clipboard_OLD:=Clipboard,Clipboard:=V
Send ^{vk56} ;Ctrl+V
return

s2:
Loop, parse, Text
{
M1:=A_LoopField

	if InStr(English, M1)
	L1:=English,L2:=Russian
	else if InStr(Russian, M1)
	L1:=Russian,L2:=English
	else
	V.=A_LoopField,L1:="",L2:=""
	
	Loop, parse, L1
	{
	M2:=A_LoopField
	if (Asc(M2)=Asc(M1))
		{
		N:=A_Index
		break
		}
	}
	Loop, parse, L2
	{
	if (N=A_Index)
		{
		V.=A_LoopField
		break
		}
	}	
} 
return

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (sabir.yanin2014) — Mon, 18 Apr 2016 19:00:35 +0000

becauseim,
Следующий скрипт меняет язык раскладки в активном окне после каждой конвертации:


#EscapeChar \
EN1=QWERTYUIOP{}qwertyuiop[]
RU1=ЙЦУКЕНГШЩЗХЪйцукенгшщзхъ
EN2=ASDFGHJKL:"asdfghjkl;'
RU2=ФЫВАПРОЛДЖЭфывапролджэ
EN3=ZXCVBNM<>zxcvbnm,.
RU3=ЯЧСМИТЬБЮячсмитьбю
EN4=~#|`
RU4=Ё№/ё
EN_Alt=$^?/@
RU_Alt=;:,."
EN=%EN1%%EN2%%EN3%%EN4%
RU=%RU1%%RU2%%RU3%%RU4%

^Ins:: ;выделяем строку от курсора влево
send {Shift Down}{Home}{Shift Up} 
Gosub, s1
return
Ins:: ;выделяем слово от курсора влево
send {Ctrl Down}{Shift Down}{Left}{Shift Up}{Ctrl Up} 
Gosub, s1
return
+Ins:: ;выделяем символ от курсора влево
send {Shift Down}{Left}{Shift Up} 
Gosub, s1
return
^#Ins:: ;выделяем строку от курсора вправо
send {Shift Down}{End}{Shift Up} 
Gosub, s1
return
#Ins:: ;выделяем слово от курсора вправо
send {Ctrl Down}{Shift Down}{Right}{Shift Up}{Ctrl Up} 
Gosub, s1
return
+#Ins:: ;выделяем символ от курсора вправо
send {Shift Down}{Right}{Shift Up} 
Gosub, s1
return

s1:
If DllCall("GetKeyboardLayout", "Int", DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", "0")) = 0x4190419
PostMessage, 0x50, 0, 0x4090409,, A ;английский
Else
PostMessage, 0x50, 0, 0x4190419,, A ;русский
Clipboard=
send ^{vk43} ;Ctrl+C
V:="",English:=EN,Russian:=RU,Text:=Clipboard
Gosub, s2

if V=%Clipboard_OLD%
{
V:="",English:=EN_Alt,Russian:=RU_Alt,Text:=Clipboard_OLD
Gosub, s2
}
Clipboard_OLD:=Clipboard,Clipboard:=V
Send ^{vk56} ;Ctrl+V
return

s2:
Loop, parse, Text
{
M1:=A_LoopField

	if InStr(English, M1)
	L1:=English,L2:=Russian
	else if InStr(Russian, M1)
	L1:=Russian,L2:=English
	else
	V.=A_LoopField,L1:="",L2:=""
	
	Loop, parse, L1
	{
	M2:=A_LoopField
	if (Asc(M2)=Asc(M1))
		{
		N:=A_Index
		break
		}
	}
	Loop, parse, L2
	{
	if (N=A_Index)
		{
		V.=A_LoopField
		break
		}
	}	
} 
return

*Также нажатие Insert можно использовать как замену Alt+Shift для переключения раскладки

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (becauseim) — Sun, 17 Apr 2016 14:46:11 +0000

teadrinker, я взял приведенную ссылку из Вашего сообщения в этой теме и даже не обратил внимания на последнее обновление. Новая версия работает быстро и стабильно. Спасибо!

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (teadrinker) — Sun, 17 Apr 2016 14:44:44 +0000

А почему бы не попробовать код из последнего поста в топике? Это, вроде, логичнее, не правда ли?

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (becauseim) — Sun, 17 Apr 2016 14:40:45 +0000

teadrinker, только что скачал вновь отсюда и запустил. Это старая версия?

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (teadrinker) — Sun, 17 Apr 2016 14:37:55 +0000

В смысле, скачали новый код только что, или старый запустили? Удивляюсь, т. к. код был обновлён, скорость максимально повышена.

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (becauseim) — Sun, 17 Apr 2016 14:36:05 +0000

teadrinker, только что.

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (teadrinker) — Sun, 17 Apr 2016 14:34:34 +0000

А вы давно проверяли?

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (becauseim) — Sun, 17 Apr 2016 14:09:47 +0000

teadrinker, вариант из коллекции работает корректно, но в разы медленнее.

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (becauseim) — Sun, 17 Apr 2016 13:56:00 +0000

teadrinker, однажды я искал альтернативу программе Punto Switcher в виде сценария AHK, но из всех найденных вариантов на этом форуме мне, к сожалению, ни один не подошел. Кажется, я находил около трех вариантов. Как минимум два варианта из трех у меня роняли Skype при срабатывании. Вероятно, проблема была в моем компьютере, например в системе Win 10, не знаю. Этот вариант, кажется, не конфликтует с мессенджером. Возможно, стоит вновь попробовать вариант из коллекции.

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (teadrinker) — Sun, 17 Apr 2016 13:50:10 +0000

becauseim, может, откроете секрет, чем вариант в коллекции плох? Просто интересно, может, подправить надо?

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (becauseim) — Sun, 17 Apr 2016 13:46:39 +0000

sabir.yanin2014, не хватает переключения раскладки после конвертации. Добавьте, пожалуйста.

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (sabir.yanin2014) — Sat, 16 Apr 2016 05:18:59 +0000

Спасибо, Malcev! Все заработало, теперь "ё" переводит


#EscapeChar \
EN1=QWERTYUIOP{}qwertyuiop[]
RU1=ЙЦУКЕНГШЩЗХЪйцукенгшщзхъ
EN2=ASDFGHJKL:"asdfghjkl;'
RU2=ФЫВАПРОЛДЖЭфывапролджэ
EN3=ZXCVBNM<>zxcvbnm,.
RU3=ЯЧСМИТЬБЮячсмитьбю
EN4=~#|`
RU4=Ё№/ё
EN_Alt=$^?/@
RU_Alt=;:,."
EN=%EN1%%EN2%%EN3%%EN4%
RU=%RU1%%RU2%%RU3%%RU4%

^Ins:: ;выделяем строку от курсора влево
send {Shift Down}{Home}{Shift Up} 
Gosub, s1
return
Ins:: ;выделяем слово от курсора влево
send {Ctrl Down}{Shift Down}{Left}{Shift Up}{Ctrl Up} 
Gosub, s1
return
+Ins:: ;выделяем символ от курсора влево
send {Shift Down}{Left}{Shift Up} 
Gosub, s1
return
^#Ins:: ;выделяем строку от курсора вправо
send {Shift Down}{End}{Shift Up} 
Gosub, s1
return
#Ins:: ;выделяем слово от курсора вправо
send {Ctrl Down}{Shift Down}{Right}{Shift Up}{Ctrl Up} 
Gosub, s1
return
+#Ins:: ;выделяем символ от курсора вправо
send {Shift Down}{Right}{Shift Up} 
Gosub, s1
return

s1:
Clipboard=
send ^{vk43} ;Ctrl+C
V:="",English:=EN,Russian:=RU,Text:=Clipboard
Gosub, s2

if V=%Clipboard_OLD%
{
V:="",English:=EN_Alt,Russian:=RU_Alt,Text:=Clipboard_OLD
Gosub, s2
}
Clipboard_OLD:=Clipboard,Clipboard:=V
Send ^{vk56} ;Ctrl+V
return

s2:
Loop, parse, Text
{
M1:=A_LoopField

	if InStr(English, M1)
	L1:=English,L2:=Russian
	else if InStr(Russian, M1)
	L1:=Russian,L2:=English
	else
	V.=A_LoopField,L1:="",L2:=""
	
	Loop, parse, L1
	{
	M2:=A_LoopField
	if (Asc(M2)=Asc(M1))
		{
		N:=A_Index
		break
		}
	}
	Loop, parse, L2
	{
	if (N=A_Index)
		{
		V.=A_LoopField
		break
		}
	}	
} 
return

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (teadrinker) — Sun, 10 Apr 2016 21:32:30 +0000

sabir.yanin2014, у нас принято реагировать на требования модераторов.
Напоминаю.
Если хотите продолжать пользоваться форумом, внесите исправления в неверно оформленный пост.

Re: AHK:Изменение языка текста с английского на русский и наоборот

null@example.com (Malcev) — Sun, 10 Apr 2016 21:04:46 +0000

http://www.script-coding.com/AutoHotkey/EscapeChar.html