Серый форум — AHK: Преобразование букв в цифры

Re: AHK: Преобразование букв в цифры

null@example.com (serzh82saratov) — Sun, 17 Jan 2021 19:00:14 +0000

Когда надо по два, четыре, восемь..., то очень интересно, а когда надо будет по три, то целочисленное деление поинтереснее.

Re: AHK: Преобразование букв в цифры

null@example.com (teadrinker) — Sun, 17 Jan 2021 18:04:17 +0000

__Михаил__ пишет:

ind := A_Index-1 >> 1

Интересный способ.

Re: AHK: Преобразование букв в цифры

null@example.com (__Михаил__) — Sun, 17 Jan 2021 17:54:37 +0000

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

ABW = н|м|г|ж|д|т|к|х|ч|щ|п|б|ш|л|с|з|в|ф|р|ц	; Строка всех букв.

List := Array()	; Массив для замены.

Loop, Parse, ABW, |
{
 ind := A_Index-1 >> 1	; Преобразование.
 List[A_LoopField] := ind	; Запись в массив.
 Txt .= A_LoopField . List[A_LoopField] "`t"
}

ToolTip, Txt:`n%Txt%,0,0

Re: AHK: Преобразование букв в цифры

null@example.com (__Михаил__) — Sun, 17 Jan 2021 16:28:57 +0000

Botsy

Это я и так знал, вчера этот сообщение тоже видел. Просто забыл, что сверху идёт заполнение этих самых букв / переменных. Смотрел пару минут в один участок кода и не мог сообразить взглянуть вверх кода.

Re: AHK: Преобразование букв в цифры

null@example.com (Botsy) — Sun, 17 Jan 2021 16:09:03 +0000

__Михаил__ Хе-хе, у меня вчера был такой же вопрос и serzh82saratov ответил так:

Операторы в выражениях
Если переменная внутри выражения обрамлена знаками процента, например, %Var%, ее содержимое трактуется как имя или часть имени другой переменной

Re: AHK: Преобразование букв в цифры

null@example.com (__Михаил__) — Sun, 17 Jan 2021 15:57:32 +0000

Для меня остаётся загадкой - как эта строка:

num .= %A_LoopField%

преобразуется в цифру? Где об этом прочитать?

Upd: Всё дошло, понял что сверху переменные для этого и объявлены.

Re: AHK: Преобразование букв в цифры

null@example.com (teadrinker) — Sun, 17 Jan 2021 15:48:06 +0000

Подправил немного, там лишнее.

Re: AHK: Преобразование букв в цифры

null@example.com (DxNeferzul) — Sun, 17 Jan 2021 15:47:30 +0000

teadrinker
Добавил в код задержки и всё заработало, теперь и с заглавными буквами, спасибо всем.

н:=0
м:=0
г:=1
ж:=1
д:=2
т:=2
к:=3
х:=3
ч:=4
щ:=4
п:=5
б:=5
ш:=6
л:=6
с:=7
з:=7
в:=8
ф:=8
р:=9
ц:=9

F1:: 
Send, +{home} ; Выделяю текст слева shift+home
sleep 10
Send, ^{vk43} ; Копирую Ctrl+c
sleep 10
Send, {end} ; Перемещаюсь в конец строки и
sleep 10
Send, {space} ; ставлю пробел.
sleep 10
num := ""
Loop, parse, Clipboard
{
   try if (%A_LoopField% != "") {
      num .= %A_LoopField%
      continue
   }
   loverVar := Format("{:L}", A_LoopField)
   try if (%loverVar% != "")
      num .= %loverVar%
} until StrLen(num) = 3

SendInput, % num ; Вставляю текст, преобразованный в соответствующие цифры ctrl-v
Return

Re: AHK: Преобразование букв в цифры

null@example.com (teadrinker) — Sun, 17 Jan 2021 15:42:23 +0000

Попробуйте обновить AHK до текущей версии. Может, так сработает:


н:=0
м:=0
г:=1
ж:=1
д:=2
т:=2
к:=3
х:=3
ч:=4
щ:=4
п:=5
б:=5
ш:=6
л:=6
с:=7
з:=7
в:=8
ф:=8
р:=9
ц:=9

F1:: 
Send, +{home} ; Выделяю текст слева shift+home
Send, ^{vk43} ; Копирую Ctrl+c
Send, {end} ; Перемещаюсь в конец строки и
Send, {space} ; ставлю пробел.
num := ""
Loop, parse, Clipboard
{
   loverVar := Format("{:L}", A_LoopField)
   try if (%loverVar% != "")
      num .= %loverVar%
} until StrLen(num) = 3

SendInput, % num ; Вставляю текст, преобразованный в соответствующие цифры ctrl-v
Return

Re: AHK: Преобразование букв в цифры

null@example.com (serzh82saratov) — Sun, 17 Jan 2021 15:38:54 +0000

Мне кажется, или там что то похожее на код.

Re: AHK: Преобразование букв в цифры

null@example.com (serzh82saratov) — Sun, 17 Jan 2021 15:37:55 +0000

О, и у меня также.

Re: AHK: Преобразование букв в цифры

null@example.com (DxNeferzul) — Sun, 17 Jan 2021 15:35:44 +0000

serzh82saratov

Re: AHK: Преобразование букв в цифры

null@example.com (DxNeferzul) — Sun, 17 Jan 2021 15:32:43 +0000

н:=0
м:=0
г:=1
ж:=1
д:=2
т:=2
к:=3
х:=3
ч:=4
щ:=4
п:=5
б:=5
ш:=6
л:=6
с:=7
з:=7
в:=8
ф:=8
р:=9
ц:=9

F1:: 
Send, +{home} ; Выделяю текст слева shift+home
sleep 10
Send, ^{vk43} ; Копирую Ctrl+c
sleep 10
Send, {end} ; Перемещаюсь в конец строки и
sleep 10
Send, {space} ; ставлю пробел.
sleep 10
Loop, parse, Clipboard
{
   try if (%A_LoopField% != "")
      num .= %A_LoopField%
} until StrLen(num) = 3

SendInput, % num ; Вставляю текст, преобразованный в соответствующие цифры ctrl-v
Sleep, 50
num =
Return

Добавил задержки и заработало, но на заглавные не работает.

Re: AHK: Преобразование букв в цифры

null@example.com (serzh82saratov) — Sun, 17 Jan 2021 15:31:50 +0000

DxNeferzul
Какая версия браузера, 4 пост как отображается?

Re: AHK: Преобразование букв в цифры

null@example.com (DxNeferzul) — Sun, 17 Jan 2021 15:30:36 +0000

teadrinker
1.1.24.01