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

[Clip] Comment/Uncomment

Expand Messages
  • Larry Thomas
    Hi All, Here is another clip from Claes Gauffin posted to this list on April 26th that can be added to the Clip Assistant. It allows you
    Message 1 of 1 , Jun 28, 1999
    • 0 Attachment
      Hi All,

      Here is another clip from Claes Gauffin <gauffin@...> posted to
      this list on April 26th that can be added to the Clip Assistant. It allows
      you to comment and uncomment selected lines in your clips.

      ---------< start clip >---------
      H="Comment"
      ;Comment selected lines
      ^!Select -2
      ^!Set %r2%=^$GetRow$
      ^!Jump Select_Start
      ^!Set %r1%=^$GetRow$
      ^!SetCursor ^%r1%:1
      :loop
      ^!InsertText ;
      ^!Jump +1
      ^!If ^%r1%=^%r2% Exit
      ^!Inc %r1%
      ^!Goto loop

      H="Uncomment"
      ;Uncomment all commented lines within the selection
      ^!set %r%=^$GetRow$
      ^!Set %c%=^$GetCol$
      ^!Jump Select_Start
      ^!Jump -1
      ^!SelectTo ^%r%:^%c%
      ^!Replace "^p;" >> "^p" THSA
      ---------< end clip >-----------

      Regards,
      Larry
      larryt@...

      ------------------------------------------------------------------------

      eGroups.com home: http://www.egroups.com/group/ntb-clips
      http://www.egroups.com - Simplifying group communications
    Your message has been successfully submitted and would be delivered to recipients shortly.