Tips & Tricks -- команда Keys

[Reuben]

Как известно, команда keys эмулирует нажатия на клавиши, не обращая внимания на кодировку. Так что если вы посылаете в окно "Открыть" что-нибудь вроде c:\wincmd\utils\, а у вас включена русская кодировка, то результат будет не тот, что вы ожидали. Можно пользоваться clip-плагином, но это тоже часто бывает ненадежно.( PowerPro не всегда удается изменить, клипборд) . Выход состоит в том, чтобы посылать не буквы, а их номера.
Объясняющий пример:

Код: выделить все


charord=" !'"#$%'&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^A`abcdefghijklmnopqrstuvwxyz{|}~"
notepad
wait 2
for (char=1;char le length(charord);char=char+1)
ord=char+31
keys {to "=notepad}{&(ord)}

endfor


Запустите этот скрипт при разных включенных кодировках и посмотрите, что получится

(!!!! Важно ! Предполагается, что в Setup/Advansed/Characters отмечена галочка на use ' for escapes !!!)

[Gregory]

Предлагаю такой вариант программы:

Код: выделить все

;Аргумент - набор символов, который надо послать, можно посылать нажатия клавиш
;вроде {enter} и указывать окно
local charord, char, j, i, string
charord=" !'"#$%'&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^A`abcdefghijklmnopqrstuvwxyz{|}~"
for (i=1; i le length(arg(1)); i=i+1)
  char=select(arg(1),i,i)
  if (char=="{") Do
   char=remove(arg(1),i)
     j=select(arg(1),i,i+index(char,"}"))
     i=i+index(char,"}")
     if (j != "{")
        string=string ++ j
**********************************
  Else
     j=index(charord,char)+31
     if ((char le "z") and (char ge "a") and (replacechars(char, "abcdefghijklmnopqrstuvwxyz$") eq "$"))
        j=j+32
     string = string ++ "{" ++ &(j)++ "}"
  endif
endfor
*Keys &(string)


Ее в большинстве случаев можно использовать вместо *Keys.

PS Замечен глюк - символ [ не печатается ни в какую.

[Reuben]

Ага, клево! чую я, скоро мы всю латиницу хотя бы в keys добьем-таки

[Gregory]

Поскольку у меня *Keys {91} символ [ не печатает, то
я вставил в скрипт (там где отмечено) такую команду

Код: выделить все

elseif (char=="[")
                string = string ++"{alt}{pad0}{pad9}{pad1}{alt}"


Теперь [ в большинстве случаев печатается <!--emo&:)--><!--endemo-->

[Reuben]

М-да ... а Numlock не беспокоит ...<!--emo&:(--><!--endemo-->

[Gregory]

В смысле? Numlock не беспокоит, все нормально работает как с включенным Numlock так и выключенным.

[Reuben]

У меня просто Alt+номер символа работает в Notrpad вне завиимости от состояния NumLock, а в ТС только с выключенным NumLock, почему я и спрашиваю. В любом случае, я послал баг-репорт, может Брюс это и починит

[XLSoft]

Странно как-то у меня скрипт Gregory работает. В разных редакторах по-разному, да и в одних и тех же то печатает нужный символ, то безликий квадратец. <!--emo&:)--><!--endemo-->

[Gregory]

Еще один вариант программы:

Код: выделить все

local charord, char, j, i, string
charord=" !'"#$%'&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^A`abcdefghijklmnopqrstuvwxyz{|}~"
for (i=1; i le length(arg(1)); i=i+1)
  char=select(arg(1),i,i)
  if (char=="{") Do
   char=remove(arg(1),i)
     j=select(arg(1),i,i+index(char,"}"))
     i=i+index(char,"}")
     if (j != "{")
        if (j=="{brace}" or j=="{br}" or j=="{{}") Do
           string= string ++ "{123}"
        Elseif (j=="{^}" or j=="{caret}" or j=="{ca}")
           string= string ++ "{94}"
        elseif (j=="{quote}" or j=="{qu}")
           string= string ++ "{34}"
        elseif (j=="{question}" or j=="{qn}")
           string= string ++ "{63}"
        elseif (j=="{greater}" or j=="{gt}")
           string= string ++ "{62}"
        elseif (j=="{less}" or j=="{lt}")
           string= string ++ "{60}"
        else
           string = string ++ j
 Endif
  elseif (char=="[")
     string=string++"{alt}{pad0}{pad9}{pad1}{alt}"
  elseif (char=="%" or char=="^" or char=="+")
     string=string++char
  Else
     j=index(charord,char)+31
     if ((char le "z") and (char ge "a") and (replacechars(char, "abcdefghijklmnopqrstuvwxyz$") eq "$"))
        j=j+32
     string = string ++"{"++j++"}"
  endif
endfor
*Keys &(string)


2XLSoft

А какие редакторы ты имеешь ввиду? У меня все нормально работает в EditPlus, NotePad, WinEdit, WinWord (другие я не использую).

Кстати в TC тоже глюков не замечено.

[XLSoft]

2Gregory
В ЭдитПаде делаю .keys("i") - выводит ¦

[Gregory]

Поставил EditPad, у меня .keys("i") печатает именно i.

[XLSoft]

Ой, блин, какой ЭдитПад! Я конечно ЭдитПлюс имел в виду. Сорри.

[Gregory]

С ЭдитПлюс у меня никаких проблем нет.
Правда ¦ у меня в Коммандере появляется, если я посылаю сочетания вроде Alt+Left или Alt+Right.