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

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

Ну всё же разработчики от ANSI-версии пока не отказались, так что рано "бить по рукам" . Другое дело, когда упорно продолжают использовать basic-версию.

Вопрос ещё актуален?

Баг головного мозга, надо поправить.

К сожалению, нет

Скрипты должны сохраняться только с BOM в любом формате из ANSI, UTF-8, UTF-16.

У меня семёрка, с таким не сталкивался. Попробуйте это почитать. И ещё здесь вариант решения подобных проблем в прошлых версиях Windows правкой реестра (в последней трети страницы).
Только что проэкспериментировал, что при сохранении скрипта в UTF-8 без BOM действительно делает из латинских символов кракозябры, а с кириллицей ничего не делает. Советую сохранять скрипты в ANSI. Если в юникоде — то обязательно с BOM.

Да, так и задумано, после пробела скрипт сработает, если только выделить предыдущий текст.

Скрипт многократно тестировался на разных сайтах и текстовых редакторах, где разная реакция на отправку клавиш. Если у вас лучше работает ваш вариант, то почему нет. А я в данном случае предпочитаю пользоваться правилом «работает — не трогай».

Собственно изначальный вопрос и не задал:

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

Можно ли упростить?

Фигурные скобки добавлю, а по поводу слешей — так они могут быть и в русской, и в английской раскладке, если текст состоит только из них — непонятно, куда переводить. Можно ориентироваться на текущую раскладку, конечно, но не стопроцентный вариант — вдруг юзер уже сам перевёл в другую.

Как исправить следующие ошибки:
1. :^ (шифт-6) не перекодируется.
2. (iban-6) перекодируется на (iban-(шифт-6)
3. http://ф перекодируется на реезЖ..ф - хотя я набрал только "ф" и, по логике, должно получиться http://a

И как сделать:
4. Мне нужна перекодировка СТРОГО на раскладку, противоположную текущей (например, если смесь тех и этих букв, я именно раскладкой укажу нужное направление).
5. Без учёта пробелов и переводов строк, а то перекодируется лишнее, а в текстовых полях на некоторых сайтах делается лишний перевод строки.
По-моему, если от набранного слова отошёл - нечего мудрить, перекодируешь его через выделение.

Спасибо, вообще очень классный и нужный скрипт. Я сам писал такой, но там не было смены регистра, и он не работает с AHK_L.

Почему-то забыл эти символы добавить в набор, отредактировал в Коллекции.

stealzy, поясните.

Да, так работает, интересное решение.

Ну, это вряд ли пригодится. Хотя универсальность, конечно, приятна. Если бы ещё это как-то эффектно решить. Стал думать, можно ли как-то определить регистр символа? Ничего в голову не приходит.

Можно ещё Translit добавить, полезно например вставить в путь к файлу.

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
}

Не асилил читать всю тему, извините, если повторюсь.
Не работает последний вариант вашего скрипта у меня.. нажимаю перевод и получаю вместо слова привет из английской раскладки:
ghbdtn
вот это :
§РРЇћ‘

может кодировка  поехала в скрипте ??

Оказалось не слабо:

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
}

Ты про то, что сопоставление символов можно брать из установленных раскладок?

Обычный польский показывает латиницу, попробуй в нём азербайджан.

Например "E" латинская.

Используется стандартная функция CharLower/CharUpper.

Вроде мой код корректно работает, конкретно с польским что-то непонятное, но например с немецким, если установить немецкую раскладку, получается. öÄü —> ÖäÜ

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

Можете пояснить эту мысль?

teadrinker, не понял что значит преобразование раскладки?
Encoding - кодировка, как единственная нужная информация для однозначной идентификации текста.
serzh82saratov, а там вся фишка в диакритических знаках - сочетания с Alt.

Я на Win 7 пробовал, там если так выбрать

тогда все латинские, а если отметить чекбокс Дополнительно, ещё ветка разворачивается, и если там выбрать

тогда диакритические знаки появляются. Но при нажатии Shift + [клавиша с диакритическим знаком] вместо того же знака в верхнем регистре появляется другой знак.

Поставил немецкую — там всё нормально.

Путаете, это не тот случай. Кодировка нужна, когда символы задаются цифровым кодом, а в данном случае они однозначно задаются графически.

А весь топик-то о чём? Изначально задача была изменить раскладку текста, написанного в неправильной раскладке: ghbdtn —> привет.

Просто думал раз написали функцию StringInvertCase(str, langID) про регистр продолжаем, конкретно в ней без раскладок и языков проще обойтись.

Ага, точно, правильно так:

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
}

Через список из реестра?

Как я понимаю, надо загружать дефолтную раскладку:

https://docs.microsoft.com/en-us/window … ardlayouta
Cписок дефолтных раскладок тут:
https://docs.microsoft.com/en-us/window … uage-packs

А как по-другому?
Например с польской 00000415 и 00010415 - это не названия раскладок, а их значения.
Названия же у 00000415 будет такое же, а у 00010415 - d0010415.
Названия, после установки, можно посмотреть здесь:

Но с такой раскладкой данный код уже не работает

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
}

У меня все 2 польские раскладки установлены со всеми опциями.
А использую я ее для проверки того, что твоим способом нельзя переконвертировать при любой раскладке, а похоже только при дефолтной.

С русской mnemonic, например с буквой ё тоже не сработает.

Ну, пока что всё равно нет другого способа переконвертировать символ из одной раскладки в другую.

А как на все раскладки массивы сделаешь?

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

Почему, выполнима на 90%.