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

Similar clip for ^!Find command

Expand Messages
  • Sheri
    Hey, I ve applied the same ideas used in the Replace clip to the Clip Assistant s Find clip. In addition to making the previously used Find texts available for
    Message 1 of 1 , Jul 6, 2002
    • 0 Attachment
      Hey,

      I've applied the same ideas used in the Replace clip to the Clip Assistant's Find clip.
      In addition to making the previously used Find texts available for use in building ^!Find
      commands, it offers a convenient alternative option to build a ^!Replace command instead.
      Note that saved searches from the Find Dialog and the Replacement Dialog are different;
      this one uses the ones from the Find Dialog while the Replace clip uses the ones from the
      Replace Dialog.

      Sheri

      This clip can be viewed and copied without linebreaks at:

      http://groups.yahoo.com/group/ntb-clips/messages/8736?viscount=-1&expand=1


      H="Find"
      ;07-06-02 enhanced by users to make available previous find texts
      ;and choice of output command (find or replace)
      ;
      ;substitute this clip for existing Find clip in the Clip Assistant file (ClipHelp.clh)
      ;
      ;Next 7 lines are Eric's original Find clip
      ;^!Set %Name%=Find
      ;^!Set %Param%="^?{Find what (use tokens for tabs/paragraphs)}" ^?{(T=C)Whole words==_Yes^=C|No^=T|Automatic^=}^?{(T=C)Ignore case==_Yes^=I|No^=}^?{(T=C)Search backwards==Yes^=B|_No^=}^?{(T=C)All documents==Yes^=G|_No^=}^?{(T=C)Whole document==_Yes^=W|No^=}^?{(T=C)Only in selection==Yes^=H|_No^=}^?{(T=C)Regular Expression==Yes^=R|_No^=}^?{(T=C)Display messages==Yes^=|_No^=S}
      ;^!Set %C%=^$DecToChar(127)$^$DecToChar(22)$
      ;^!Set %Param%=^$StrReplace("^^P";"^%C%P";"^%Param%";False;False)$
      ;^!Set %Param%=^$StrReplace("^^T";"^%C%T";"^%Param%";False;False)$
      ;^!Set %Param%=^$StrReplace("^%C%";"^%CARET%^%CARET%";"^%Param%";False;False)$
      ;^!Clip ~ParamCommand
      ;
      ;Following is the enhanced version
      ;
      ^!Set %Param%=""
      ^!ProgIniSave
      ^!Set %Name%=^?{(T=C)Command to Build==_Find|Replace}
      ^!Set %Key%=Search
      ^!Set %Count%=1
      ^!Set %^%Key%List%=""
      :LISTS
      ^!Set %Value%=^$StrReplace("|";"¦";"^$UseTokens(^$GetValue("FindDialog:^%Key%List_^%Count%")$)$";No;No)$
      ^!IfTrue ^$IsEMPTY(^%Value%)$ DO^%Name%
      ^!Append %^%Key%List%=^%Value%|
      ^!INC %Count%
      ^!GoTO LISTS
      :DOFIND
      ^!Set %Param%="^?{Find what (use tokens for tabs/paragraphs)=^%SearchList%}" ^?{(T=C)Whole words==_Yes^=C|No^=T|Automatic^=}^?{(T=C)Ignore case==_Yes^=I|No^=}^?{(T=C)Search backwards==Yes^=B|_No^=}^?{(T=C)All documents==Yes^=G|_No^=}^?{(T=C)Whole document==_Yes^=W|No^=}^?{(T=C)Only in selection==Yes^=H|_No^=}^?{(T=C)Regular Expression==Yes^=R|_No^=}^?{(T=C)Display messages==Yes^=|_No^=S}
      ^!Goto DOPARAM
      :DOREPLACE
      ^!Set %Param%="^?{Find what (use tokens for tabs/paragraphs)=^%SearchList%}" >> "^?{Replace with (use tokens for tabs/paragraphs)=^%ReplaceList%}" ^?{(T=C)Replace all==_Yes^=A|No^=}^?{(T=C)Whole words==_Yes^=C|No^=T|Automatic^=}^?{(T=C)Ignore case==_Yes^=I|No^=}^?{(T=C)Search backwards==Yes^=B|_No^=}^?{(T=C)All documents==Yes^=G|_No^=}^?{(T=C)Whole document==_Yes^=W|No^=}^?{(T=C)Only in selection==Yes^=H|_No^=}^?{(T=C)Regular Expression==Yes^=R|_No^=}^?{(T=C)Display messages==Yes^=|_No^=S}
      ^!Goto DOPARAM
      :DOPARAM
      ^!Set %Param%=^$StrReplace("¦";"^%VBAR%";"^%Param%";False;False)$
      ^!Set %C%=^$DecToChar(127)$^$DecToChar(22)$
      ^!Set %Param%=^$StrReplace("^^P";"^%C%P";"^%Param%";False;False)$
      ^!Set %Param%=^$StrReplace("^^T";"^%C%T";"^%Param%";False;False)$
      ^!Set %Param%=^$StrReplace("^%C%";"^%CARET%^%CARET%";"^%Param%";False;False)$
      ^!Clip ~ParamCommand
      ;To use this clip outside the Clip Assistant, comment out ^!Clip ~ParaCommand
      ;and uncomment the next line
      ;^!InsertText ^!^%Name% ^%Param%^P
      ;end of clip
    Your message has been successfully submitted and would be delivered to recipients shortly.