(*New* much better replace dialog clip enclosed below too)
---
I had said
>I need help with check box wizard.
NTB SampleCode clip library did a very good @ how to of check box wizard.
Also I looked at a clip I have that's written by Jody it's entitled
Checkbox Favorites... Opens or closes files you pick in a Favorites
---
Hello ******** Hello ********* Hello
****On below*** (**NEW and completed** replace dialog items can made into
replace clip) enclosed clip, I'm open to suggestions. And also open to
suggestions for what options to have and whether to pick them from a wizard or
not.
:wrapup section has a long set line - And here's clip that's now all done except
for options
H="replace dialog 2clips"
^!ClearVariables
^!Set %SrchLstCnt%=^$GetValue("ReplaceDialog:SearchListCount")$
^!Set %count%=0
; above and next loop gathers "find what" items from ini
:srchliscnt
^!Inc %count%
^!If ^%count% > ^%SrchLstCnt% slc_exit
^!Set %srchitem%=^$GetValue("ReplaceDialog:SearchList_^%count%")$
^!Append %srchlist%=^%srchitem%|
^!Goto srchliscnt
:slc_exit
^!Set %RplcLstCnt%=^$GetValue("ReplaceDialog:ReplaceListCount")$
^!Set %count%=0
; above and next loop gathers "replace with" items from ini
:rplcliscnt
^!Inc %count%
^!If ^%count% > ^%RplcLstCnt% wrapup
^!Set %rplcitem%=^$GetValue("ReplaceDialog:ReplaceList_^%count%")$
^!Append %rplclist%=^%rplcitem%|
^!Goto rplcliscnt
:wrapup
; check box wizard
^!Set %find%=^?{(T=A;H=20)SrchItems=^%srchlist%};
%rplc%=^?{(T=A;H=20)RplcItems=^%rplclist%}
; to clipboard with Ur clip's content
^!SetClipboard ^!Replace "^%find%" >> "^%rplc%"
; -----<end of clip<<
Regards. Alan.
Hi Alan,
I've found a problem with the approach. When any of the previously used
search or replace texts have "|" characters in them, they get interpreted
as separate selections by the wizards. I tried without success a variety of
$StrReplace's to fix the problem. The clip below seems to work well when
there are no "|" characters. This is essentially a combination of your
wizard builder and the Replace clip from the Clip Assistant.
Regards,
Sheri
This clip can be viewed and copied without linebreaks at:
http://groups.yahoo.com/group/ntb-clips/messages/8731?viscount=-2&expand=1
H="Enhanced Replace"
;need to save ini or most recent search/replace texts are not in them
^!ProgIniSave
^!ClearVariables
^!Set %SrchLstCnt%=^$GetValue("ReplaceDialog:SearchListCount")$
^!Set %count%=0
; above and next loop gathers "find what" items from ini
:srchliscnt
^!Inc %count%
^!If ^%count% > ^%SrchLstCnt% slc_exit
^!Set %srchitem%=^$GetValue("ReplaceDialog:SearchList_^%count%")$
^!Append %srchlist%=^%srchitem|
^!Goto srchliscnt
:slc_exit
^!Set %RplcLstCnt%=^$GetValue("ReplaceDialog:ReplaceListCount")$
^!Set %count%=0
; above and next loop gathers "replace with" items from ini
:rplcliscnt
^!Inc %count%
^!If ^%count% > ^%RplcLstCnt% wrapup
^!Set %rplcitem%=^$GetValue("ReplaceDialog:ReplaceList_^%count%")$
^!Append %rplclist%=^%rplcitem%|
^!Goto rplcliscnt
:wrapup
;from replace clip in Clip Assistant, amended to insert default values in
wizards
;THERE IS A PROBLEM when the values retrieved from the ini file have their own
;vertical bars in them!
^!Set %Name%=Replace
^!Set %Param%="^?{Find what (use tokens for tabs/paragraphs)=^%srchlist%}" >>
"^?{Replace with (use tokens for tabs/paragraphs)=^%rplclist%}" ^?{(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}
^!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)$
^!InsertText ^
^!InsertText !^%Name% ^%Param%^P
^!GoTo Exit
;end of clip