AHK: Break и Shift+Break как в пунто свитчере (Страница 2 из 3)

delimiters := "`n {([,._"""

SelText = абв_абв абв{абв.абв"абв[абв`nабв,абв

SelText := RegExReplace(SelText, "(.)", Format("{:Ts}", SubStr(SelText, 1, 1)), , 1), pos := 1
While (pos := RegExMatch(SelText, "S)[\Q" delimiters "\E][a-zа-яё]", M, pos))
	SelText := RegExReplace(SelText, ".", Format("{:Ts}", SubStr(M, 2, 1)), , 1, ++pos)
	; или   SelText := SubStr(SelText, 1, pos) Format("{:Ts}", SubStr(M, 2, 1)) SubStr(SelText, ++pos+1)
MsgBox % SelText

Translit() {
	Static RU := "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
	, ENG := ["A","B","V","G","D","E","Yo","Zh","Z","I","Y","K","L","M","N","O"
	,"P","R","S","T","U","F","Kh","Ts","Ch","Sh","Sch","'","I","","E","Yu","Ya"]
	
	If (SelText := GetWord(TempClipboard)) = ""
		Return Clipboard := TempClipboard
	Loop, Parse, SelText
		If p := (RU ~= "Si)\Q" A_LoopField "\E")
			Translit .= (A_LoopField ~= "S)[А-ЯЁ]") ? ENG[p] : Format("{:L}", ENG[p])
		Else
			Translit .= A_LoopField
	Clipboard := Translit
	SendInput, ^{vk56}   ; Ctrl + V
	Sleep, 200
	Clipboard := TempClipboard
}

MsgBox % StringInvertCase("cZEŚĆ W jĘZYKU pOLSKIM", langID := 0x415)

StringInvertCase(str, langID) {
   VarSetCapacity(buff, 256, 0), VarSetCapacity(key, 2)
   layout := DllCall("LoadKeyboardLayout", "Str", "0000" . Format("{:04X}", langID), "UInt", 0)
   Loop, Parse, str
   {
      res := DllCall("VkKeyScanEx", UShort, Ord(A_LoopField), UInt, layout, UShort)
      vk := res & 0xFF, shift := res >> 8
      NumPut(shift ? 0 : 128, buff, 16, "Char")
      DllCall("ToUnicodeEx", UInt, vk, UInt, 0, Ptr, &buff, Str, key, Int, 2, UInt, 0, Ptr, layout)
      invertedStr .= key
   }
   Return invertedStr
}

shift := (res >> 8)&1

MsgBox, % StringInvertCase("nNńŃ", langID := 0x415)

StringInvertCase(str, langID) {
   VarSetCapacity(buff, 256, 0), VarSetCapacity(key, 2)
   layout := DllCall("LoadKeyboardLayout", "Str", "0000" . Format("{:04X}", langID), "UInt", 0)
   Loop, Parse, str
   {
      res := DllCall("VkKeyScanEx", "UShort", Ord(A_LoopField), "UInt", layout, "UShort")
      vk := res & 0xFF, modifiers := res >> 8
      shift := modifiers & 1, ctrl := modifiers & 2, alt := modifiers & 4, hankaku := modifiers & 8
      for k, v in {ctrl: 0x11, alt: 0x12, hankaku: 0xF3}
         NumPut(%k% ? 128 : 0, buff, v, "Char")
      NumPut(shift ? 0 : 128, buff, 0x10, "Char")
      DllCall("ToUnicodeEx", "UInt", vk, "UInt", 0, "Ptr", &buff, "Str", key, "Int", 2, "UInt", 0, "Ptr", layout)
      invertedStr .= key
   }
   Return invertedStr
}

MsgBox, % StringInvertCase("nNńŃ", langID := 0x415)

StringInvertCase(str, langID) {
   VarSetCapacity(buff, 256, 0), VarSetCapacity(key, 2)
   msgbox % layout := DllCall("LoadKeyboardLayout", "Str", "d0010415", "UInt", 0)
   Loop, Parse, str
   {
      msgbox % res := DllCall("VkKeyScanEx", "UShort", Ord(A_LoopField), "UInt", layout, "UShort")
      vk := res & 0xFF, modifiers := res >> 8
      shift := modifiers & 1, ctrl := modifiers & 2, alt := modifiers & 4, hankaku := modifiers & 8
      for k, v in {ctrl: 0x11, alt: 0x12, hankaku: 0xF3}
         NumPut(%k% ? 128 : 0, buff, v, "Char")
      NumPut(shift ? 0 : 128, buff, 0x10, "Char")
      DllCall("ToUnicodeEx", "UInt", vk, "UInt", 0, "Ptr", &buff, "Str", key, "Int", 2, "UInt", 0, "Ptr", layout)
      invertedStr .= key
   }
   Return invertedStr
}

MsgBox, % StringInvertCase("nNńŃ", langID := 0x415)

StringInvertCase(str, langID) {
   VarSetCapacity(buff, 256, 0), VarSetCapacity(key, 2)
   msgbox % layout := DllCall("LoadKeyboardLayout", "Str", "00010415", "UInt", 0)
   Loop, Parse, str
   {
      msgbox % res := DllCall("VkKeyScanEx", "UShort", Ord(A_LoopField), "UInt", layout, "UShort")
      vk := res & 0xFF, modifiers := res >> 8
      shift := modifiers & 1, ctrl := modifiers & 2, alt := modifiers & 4, hankaku := modifiers & 8
      for k, v in {ctrl: 0x11, alt: 0x12, hankaku: 0xF3}
         NumPut(%k% ? 128 : 0, buff, v, "Char")
      NumPut(shift ? 0 : 128, buff, 0x10, "Char")
      DllCall("ToUnicodeEx", "UInt", vk, "UInt", 0, "Ptr", &buff, "Str", key, "Int", 2, "UInt", 0, "Ptr", layout)
      invertedStr .= key
   }
   Return invertedStr
}

SwitchKeysLocale()
{
   SelText := GetWord() 
   Clipboard := ConvertText(SelText, Layout)
   SendInput, ^{vk56}   ; Ctrl + V
   Sleep, 50
   SwitchLocale(Layout)
}

SwitchReg()
{
   SelText := GetWord()
   Clipboard := ConvertReg(SelText) 
   SendInput, ^{vk56}   ; Ctrl + V 
}

GetWord()
{
   SetKeyDelay, 0
   
   SendInput, ^{vk43}
   Sleep, 100
   if (Clipboard != "")
      Return Clipboard
   
   SendInput, +{Right}
}

Global oSymbols := {}
SymbolsListCreate("ENU", "RUS")
Return

^PGDN::SwitchKeysLocale()   ; Ctrl + Page Down
+PGDN::SwitchRegistr()      ; Shift + Page Down

SwitchKeysLocale()
{
   SelText := GetWord(TempClipboard) 
   Clipboard := ConvertText(SelText, Layout)
   SendInput, ^{vk56}   ; Ctrl + V
   Sleep, 50
   SwitchLocale(Layout)
   Sleep, 50
   Clipboard := TempClipboard
}

SwitchRegistr()
{
   SelText := GetWord(TempClipboard)
   Clipboard := ConvertRegistr(SelText) 
   SendInput, ^{vk56}   ; Ctrl + V 
   Sleep, 200 
   Clipboard := TempClipboard
}

GetWord(ByRef TempClipboard)
{
   SetBatchLines, -1
   SetKeyDelay, 0
   
   TempClipboard := ClipboardAll
   Clipboard =
   SendInput, ^{vk43}
   Sleep, 100
   if (Clipboard != "")
      Return Clipboard
   
   While A_Index < 10
   {
      SendInput, ^+{Left}^{vk43}
      ClipWait, 1
      if ErrorLevel
         Return

      if RegExMatch(Clipboard, "P)([ \t])", Found) && A_Index != 1
      {
         SendInput, ^+{Right}
         Return SubStr(Clipboard, FoundPos1 + 1)
      }

      PrevClipboard := Clipboard
      Clipboard =
      SendInput, +{Left}^{vk43}
      ClipWait, 1
      if ErrorLevel
         Return

      if (StrLen(Clipboard) = StrLen(PrevClipboard))
      {
         Clipboard =
         SendInput, +{Left}^{vk43}
         ClipWait, 1
         if ErrorLevel
            Return

         if (StrLen(Clipboard) = StrLen(PrevClipboard))
            Return Clipboard
         Else
         {
            SendInput, +{Right 2}
            Return PrevClipboard
         }
      }

      SendInput, +{Right}

      s := SubStr(Clipboard, 1, 1)
      if s in %A_Space%,%A_Tab%,`n,`r
      {
         Clipboard =
         SendInput, +{Left}^{vk43}
         ClipWait, 1
         if ErrorLevel
            Return

         Return Clipboard
      }
      Clipboard =
   }
}

ConvertText(Text, ByRef OppositeLayout)
{  
   RegExReplace(Text, "i)[A-Z@#\$\^&\[\]'`\{}]", "", LatCount)
   RegExReplace(Text, "i)[А-ЯЁ№]", "", CyrCount)
   
   if (LatCount != CyrCount)  {
      CurrentLayout := LatCount > CyrCount ? oSymbols.Langs[1] : oSymbols.Langs[2]
      OppositeLayout := LatCount > CyrCount ? oSymbols.Langs[2] : oSymbols.Langs[1]
   }
   else
   {
      threadId := DllCall("GetWindowThreadProcessId", Ptr, WinExist("A"), UInt, 0, Ptr)
      landId := DllCall("GetKeyboardLayout", Ptr, threadId, Ptr) & 0xFFFF
      if (oSymbols.Langs[1] = landId)
         CurrentLayout := oSymbols.Langs[2], OppositeLayout := oSymbols.Langs[1]
      else
         CurrentLayout := oSymbols.Langs[1], OppositeLayout := oSymbols.Langs[2]
   }  
   Return Translate(Text, CurrentLayout, OppositeLayout)
} 

SwitchLocale(Layout)
{
   ControlGetFocus, CtrlFocus, A
   PostMessage, WM_INPUTLANGCHANGEREQUEST := 0x50,, Layout, %CtrlFocus%, A
}

ConvertRegistr(string)
{

}

Translate(string, inhkl, outhkl) {
	Loop, Parse, string
	{ 
		If !sc := oSymbols[inhkl].chartocode[Ord(A_LoopField)]
			newstring .= A_LoopField
		Else
			newstring .= oSymbols[outhkl].sctochar[sc]
	}
	Return newstring 
} 

SymbolsListCreate(L1, L2) {
	Static MAPVK_VK_TO_VSC := 0
	oSymbols := {}
	oSymbols.Langs := [] 
	for hkl, LayoutName in GetKeyboardLayoutList()
	{
		If (LayoutName != L1 && LayoutName != L2)
			Continue 
		oSymbols.Langs[2 - (LayoutName = L1)] := hkl 
		oSymbols[hkl] := {}, oSymbols[hkl].sctochar := {}, oSymbols[hkl].chartocode := {}, oSymbols[LayoutName] := hkl
		for min, max in {0x30:0x5A,0xBA:0xE2}
			loop % max - min + 1
			{
				vk := min + A_Index - 1
				If !sc := DllCall("MapVirtualKeyEx", "Uint", vk, "Uint", MAPVK_VK_TO_VSC, "Ptr", hkl, "Uint")
					Continue
				Char := GetKeyChar(vk, sc, hkl, 0), _Char := GetKeyChar(vk, sc, hkl, 1)
				If (Char = "" && _Char = "")
					Continue
				oSymbols[hkl].sctochar[sc] := Char, oSymbols[hkl].sctochar[-sc] := _Char
				oSymbols[hkl].chartocode[Ord(Char)] := sc, oSymbols[hkl].chartocode[Ord(_Char)] := -sc 
			}
	}  
}

GetKeyChar(vk, sc, HKL, Shift = 0) {
    Static state, _ := VarSetCapacity(state, 256, 0)
		, char, __ := VarSetCapacity(char, 4, 0) 
	If Shift
		NumPut(-128, state, 0x10 , "Char")  
	Else 
		NumPut(0, state, 0x10 , "Char")   
    n := DllCall("ToUnicodeEx", "uint", vk, "uint", sc
        , "ptr", &state, "ptr", &char, "int", 1, "uint", 0, "ptr", HKL)
    Return StrGet(&char, n, "utf-16")
}
	
GetKeyboardLayoutList() {
   VarSetCapacity(List, A_PtrSize*5)
   Size := DllCall("GetKeyboardLayoutList", Int, 5, Str, List)
   Locales := []
   Loop % Size 
		Locales[Locale := NumGet(List, A_PtrSize*(A_Index - 1)) & 0xFFFF] := GetLangName(Locale)
   Return Locales
}

GetLangName(Locale, LCType := 3) { 
	Size := DllCall("GetLocaleInfo", UInt, Locale, UInt, LCType, UInt, 0, UInt, 0) * 2
	VarSetCapacity(lpLCData, Size, 0)
	DllCall("GetLocaleInfo", UInt, Locale, UInt, LCType, Str, lpLCData, UInt, Size)
	Return lpLCData
} 

ConvertText(Text, ByRef OppositeLayout)
{  
   RegExReplace(Text, "i)[A-Z@#\$\^&\[\]'`\{}]", "", LatCount)
   RegExReplace(Text, "i)[А-ЯЁ№]", "", CyrCount)

SymbolsListCreate("ENU", "RUS")

RegExMatch(Char, "(*UCP)[^\W\d_]")

/*
Смена раскладки написанного текста
Модификация этого скрипта https://forum.script-coding.com/viewtopic.php?pid=102343#p102343

v1.2
С генерацией раскладок
	http://forum.script-coding.com/viewtopic.php?pid=157311#p157311
*/

#SingleInstance Force
#Persistent
ListLines Off
SetBatchLines -1
#NoEnv

Global oSymbols := {} 
; SymbolsListCreate() ; Все раскладки в буфер обмена
SymbolsListCreate("ENU", "RUS") 
Return
   
^PGDN::SwitchKeysLocale()   ; Ctrl + Page Down
+PGDN::SwitchRegistr()      ; Shift + Page Down

; Esc:: ExitApp

SwitchKeysLocale()
{
	SelText := GetWord(TempClipboard) 
	If SelText = 
		Return Clipboard := TempClipboard
	Clipboard := ConvertText(SelText, Layout)
	SendInput  {LCtrl Down}{vk56}{LCtrl Up}    ;  "V"
	Sleep, 50
	SwitchLocale(Layout)
	Sleep, 50
	Clipboard := TempClipboard
}

SwitchRegistr()
{
	SelText := GetWord(TempClipboard)
	If SelText = 
		Return Clipboard := TempClipboard
	Clipboard := ConvertRegistr(SelText) 
	SendInput  {LCtrl Down}{vk56}{LCtrl Up}    ;  "V"
	Sleep, 200 
	Clipboard := TempClipboard
}

GetWord(ByRef TempClipboard)
{
   SetBatchLines, -1
   SetKeyDelay, 0
   
   TempClipboard := ClipboardAll
   Clipboard =
   SendInput  {LCtrl Down}{vk43}{LCtrl Up}    ;  "C"
   Sleep, 100
   if (Clipboard != "")
      Return Clipboard
   
   While A_Index < 20
   {
      SendInput, {LCtrl Down}{LShift Down}{Left}{LCtrl Up}{LShift Up}{LCtrl Down}{vk43}{LCtrl Up}    ;  "C"
      ClipWait, 1
      if ErrorLevel
         Return

      if RegExMatch(Clipboard, "P)([ \t])", Found) && A_Index != 1
      {
         SendInput  {LCtrl Down}{LShift Down}{Right}{LCtrl Up}{LShift Up}
         Return SubStr(Clipboard, FoundPos1 + 1)
      }

      PrevClipboard := Clipboard
      Clipboard =
      SendInput, {LShift Down}{Left}{LShift Up}{LCtrl Down}{vk43}{LCtrl Up}    ;  "C"
      ClipWait, 1
      if ErrorLevel
         Return

      if (StrLen(Clipboard) = StrLen(PrevClipboard))
      {
         Clipboard =
         SendInput, {LShift Down}{Left}{LShift Up}{LCtrl Down}{vk43}{LCtrl Up}    ;  "C"
         ClipWait, 1
         if ErrorLevel
            Return

         if (StrLen(Clipboard) = StrLen(PrevClipboard))
            Return Clipboard
         Else
         {
            SendInput  {LShift Down}{Right 2}{LShift Up}
            Return PrevClipboard
         }
      }

      SendInput  {LShift Down}{Right}{LShift Up}

      s := SubStr(Clipboard, 1, 1)
      if s in %A_Space%,%A_Tab%,`n,`r
      {
         Clipboard =
         SendInput, {LShift Down}{Left}{LShift Up}{LCtrl Down}{vk43}{LCtrl Up}    ;  "C"
         ClipWait, 1
         if ErrorLevel
            Return

         Return Clipboard
      }
      Clipboard =
   }
}

ConvertText(string, ByRef OppositeLayout) 
{   
	L1 := L2 := 0
	Loop, Parse, string
	{  
		_ord := Ord(A_LoopField)
		If oSymbols[oSymbols.Langs[1]].charischar[_ord]
			++L1
		Else If oSymbols[oSymbols.Langs[2]].charischar[_ord]
			++L2 
	}
	if (L1 != L2)  {
		CurrentLayout := L1 > L2 ? oSymbols.Langs[1] : oSymbols.Langs[2]
		OppositeLayout := L1 > L2 ? oSymbols.Langs[2] : oSymbols.Langs[1] 
	}
	else
	{
		threadId := DllCall("GetWindowThreadProcessId", Ptr, WinExist("A"), UInt, 0, Ptr)
		landId := DllCall("GetKeyboardLayout", Ptr, threadId, Ptr) & 0xFFFF
		if (oSymbols.Langs[1] = landId)
			CurrentLayout := oSymbols.Langs[1], OppositeLayout := oSymbols.Langs[2]
		else
			CurrentLayout := oSymbols.Langs[2], OppositeLayout := oSymbols.Langs[1]
	}   
	Return ConvertLayout(string, CurrentLayout, OppositeLayout)
} 

SwitchLocale(Layout)
{
   ControlGetFocus, CtrlFocus, A
   PostMessage, 0x50,, Layout, %CtrlFocus%, A	; WM_INPUTLANGCHANGEREQUEST 
}

ConvertRegistr(string) {
	Loop, Parse, string
	{ 
		r := oSymbols.Registr[Ord(A_LoopField)] 
		newstring .= (r = "") ? A_LoopField : r
	}
	Return newstring 
}

ConvertLayout(string, inhkl, outhkl) {
	Loop, Parse, string
	{ 
		If !sc := oSymbols[inhkl].chartocode[Ord(A_LoopField)]
			newstring .= A_LoopField
		Else
			newstring .= oSymbols[outhkl].sctochar[sc]
	}
	Return newstring 
}   

SymbolsListCreate(L1 = "", L2 = "") {
	; ENU = 1033, RUS = 1049, DEU = 1031
	Static MAPVK_VK_TO_VSC := 0
	If (L1 = "")
	{
		for hkl, LayoutName in GetKeyboardLayoutList()
			LangsStr .= LayoutName "`t" hkl  "`n" 
		MsgBox % Clipboard := LangsStr
		Return
	}
	oSymbols := {} 
	oSymbols.Langs := [] 
	oSymbols.Registr := {}
	for hkl, LayoutName in GetKeyboardLayoutList()
	{ 
		If (LayoutName != L1 && LayoutName != L2)
			Continue 
		oSymbols.Langs[2 - (LayoutName = L1)] := hkl 
		oSymbols[hkl] := {}, oSymbols[hkl].sctochar := {}
		oSymbols[hkl].chartocode := {}, oSymbols[LayoutName] := hkl
		oSymbols[hkl].charischar := {}
		for min, max in {0x30:0x5A,0xBA:0xE2}
		{
			loop % max - min + 1
			{
				vk := min + A_Index - 1
				If !sc := DllCall("MapVirtualKeyEx", "Uint", vk, "Uint", MAPVK_VK_TO_VSC, "Ptr", hkl, "Uint")
					Continue
				Char := GetKeyChar(vk, sc, hkl, 0), _Char := GetKeyChar(vk, sc, hkl, 1)
				If (Char != "") 
				{
					_ord := Ord(Char)
					oSymbols[hkl].sctochar[sc] := Char
					oSymbols[hkl].chartocode[_ord] := sc
					If (RegExMatch(Char, "(*UCP)[^\W\d_]"))
					{
						oSymbols[hkl].charischar[_ord] := 1
						If (_Char != "")
							oSymbols.Registr[_ord] := _Char 
					}
				}
				If (_Char != "") 
				{
					_ord := Ord(_Char)
					oSymbols[hkl].sctochar[-sc] := _Char
					oSymbols[hkl].chartocode[_ord] := -sc 
					If (RegExMatch(_Char, "(*UCP)[^\W\d_]"))
					{
						oSymbols[hkl].charischar[_ord] := 1
						If (Char != "")
							oSymbols.Registr[_ord] := Char 
					}  
				} 
			} 
		}
	}  
	If oSymbols.Langs.Count() != 2 
		Throw Exception("Не найдена указанная раскладка!")
} 

GetKeyChar(vk, sc, HKL, Shift = 0) {
    Static state, _ := VarSetCapacity(state, 256, 0)
		, char, __ := VarSetCapacity(char, 4, 0) 
	If Shift
		NumPut(-128, state, 0x10 , "Char")  
	Else 
		NumPut(0, state, 0x10 , "Char")   
    n := DllCall("ToUnicodeEx", "uint", vk, "uint", sc
        , "ptr", &state, "ptr", &char, "int", 1, "uint", 0, "ptr", HKL)
    Return StrGet(&char, n, "utf-16")
}
	
GetKeyboardLayoutList() {
   VarSetCapacity(List, A_PtrSize*5)
   Size := DllCall("GetKeyboardLayoutList", Int, 5, Str, List)
   Locales := []
   Loop % Size 
		Locales[Locale := NumGet(List, A_PtrSize*(A_Index - 1)) & 0xFFFF] := GetLangName(Locale)
   Return Locales
}

GetLangName(Locale, LCType := 3) { 
	Size := DllCall("GetLocaleInfo", UInt, Locale, UInt, LCType, UInt, 0, UInt, 0) * 2
	VarSetCapacity(lpLCData, Size, 0)
	DllCall("GetLocaleInfo", UInt, Locale, UInt, LCType, Str, lpLCData, UInt, Size)
	Return lpLCData
}