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

Re: [Clip] Re: clip to delete a sentence

Expand Messages
  • Adrian/ Rosemary Worsfold
    I generated two versions from the clip so helpfully put on this list. The first highlights and that s it, thes second deletes. Small alterations really. ^!Info
    Message 1 of 23 , Jun 17, 2005
      I generated two versions from the clip so helpfully put on this list. The first highlights and
      that's it, thes second deletes. Small alterations really.

      ^!Info [L] Highlights successive sentences from paragraph start. After cancelling, highlighting
      remains for choice of operation.

      ^!Jump line_Start

      ^!Set %Start%=^$GetRow$:^$GetCol$
      ^!Find (\.)|(\?)|(\!) IRS
      ^!IfError End
      ^!Jump Select_End
      ^!SelectTo ^%Start%
      ^!Keyboard SHIFTDOWN RIGHT
      ^!Keyboard SHIFTUP
      ^!Continue Highlight next sentence

      :Loop
      ^!Find (\.)|(\?)|(\!) IRS
      ^!IfError End
      ^!Jump Select_End
      ^!Keyboard RIGHT
      ^!Set %Start%=^$GetRow$:^$GetCol$
      ^!Find (\.)|(\?)|(\!) IRS
      ^!Jump Select_End
      ^!SelectTo ^%Start%
      ^!Keyboard SHIFTDOWN RIGHT
      ^!Keyboard SHIFTUP
      ^!Continue Highlight next sentence
      ^!Goto Loop


      ^!Jump line_Start

      ^!Set %Start%=^$GetRow$:^$GetCol$
      ^!Find (\.)|(\?)|(\!) IRS
      ^!IfError End
      ^!Jump Select_End
      ^!SelectTo ^%Start%
      ^!Keyboard SHIFTDOWN RIGHT
      ^!Keyboard SHIFTUP
      ^!Skip Delete Sentence?^%nl%^%nl%(CTRL+ALT and No to abort)^%nl%
      ^!Goto Skip
      ^!InsertText
      ^!Keyboard LEFT LEFT

      :Loop
      ^!Find (\.)|(\?)|(\!) IRS
      ^!IfError End
      ^!Jump Select_End
      ^!Keyboard RIGHT
      ^!Set %Start%=^$GetRow$:^$GetCol$
      ^!Find (\.)|(\?)|(\!) IRS
      ^!Jump Select_End
      ^!SelectTo ^%Start%
      ^!Keyboard SHIFTDOWN Right
      ^!Keyboard SHIFTUP
      ^!Skip Delete Sentence?^%nl%^%nl%(CTRL+ALT and No to abort)^%nl%
      ^!Goto Skip
      ^!InsertText
      ^!Keyboard LEFT LEFT
      ^!Goto Loop



      Adrian Worsfold

      http://www.pluralist.co.uk
    Your message has been successfully submitted and would be delivered to recipients shortly.