Loading ...
Sorry, an error occurred while loading the content.

Re: [Clip] Command Repetition, Perl Integration, Regexp

Expand Messages
  • Veli-Pekka Tätilä
    Hi Sheri, ... Thanks for taking the time to prove that this scripting concept is possible with NoteTab. The GUI is a bit of a problem still, though. In trivial
    Message 1 of 3 , Oct 24, 2006
    • 0 Attachment
      Hi Sheri,

      Sheri wrote:
      > The following clip will do it, not exactly unobtrusive though.
      Thanks for taking the time to prove that this scripting concept is possible
      with NoteTab. The GUI is a bit of a problem still, though. In trivial cases
      it is actually much faster to repeat things manually. I guess I'll see if I
      can read in a key combo using some external app as it would provide lots of
      flexibility and make the script so much easier to use.

      I'll leave the script code at the end of this message.

      --
      With kind regards Veli-Pekka Tätilä (vtatila@...)
      Accessibility, game music, synthesizers and programming:
      http://www.student.oulu.fi/~vtatila/

      > ;2006-10-20 by Sheri Pierce Clip to repeat a key sequence
      > ^!IfFalse ^$IsEmpty(^%finkeyseq%)$ Next Else MakeKeys
      > ^!Skip Reset previous key sequence? (If not reset, any new keys will
      > be appended to existing key sequence).
      > ^!Goto MakeKeys
      > ^!Set %finkeyseq%=""
      >> MakeKeys
      > ^!Set %keyseq%="^?{(T=L;H=10)Keyboard key==Finished|(Type Sequence)
      > ^=Typein|_ BACKSPACE| TAB| ENTER| ESC| SPACEBAR| PAGEUP| PAGEDOWN|
      > END| HOME| LEFT| UP| RIGHT| DOWN| INSERT| DELETE| HELP| CTRL| SHIFT|
      > ALT| CTRLDOWN| SHIFTDOWN| ALTDOWN| CTRLUP| SHIFTUP| ALTUP| F1| F2|
      > F3| F4| F5| F6| F7| F8| F9| F10| F11| F12}"
      > ^!IfSame "Finished" "^%keyseq%" Next Else Skip_2
      > ^!Set %keyseq%=""
      > ^!IfTrue ^$IsEmpty(^%finkeyseq%)$ End Else EditSeq
      > ^!IfSame "Typein" "^%keyseq%" Next Else Skip_1
      > ^!Set %keyseq%=" #^?{Enter Sequence (pound symbols are added
      > automatically)}#"
      > ^!IfCancel End
      > ^!Set %finkeyseq%=^%finkeyseq%^%keyseq%
      >> EditSeq
      > ^!Set %Q%=^?{More keys?==Yes|_No}
      > ^!IfTrue ^%Q% MakeKeys
      > ^!Set %finkeyseq%=^?{Edit key sequence=^%finkeyseq%};%max%=^?{how
      > many times?=^%max%}
      > ^!Skip Put a keyboard command on the clipboard for this key combo?
      > ^!Goto Skip_1
      > ^!SetClipboard ^!Keyboard ^%finkeyseq%
      > ^!Set %loopcount%=0
      > ^!If ^%max%=0 Out
      > ^!IfTrue ^$IsEmpty(^%finkeyseq%)$ Out
      >> Loop
      > ^!Inc %loopcount%
      > ^!If ^%loopcount%>^%max% Out
      > ^!Keyboard ^%finkeyseq%
      > ^!Goto Loop
      >> Out
      > ;end of clip
    Your message has been successfully submitted and would be delivered to recipients shortly.