Re: XYwrite macro please....

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from cld@xxxxxxxx (Carl Distefano) Mon, 2 Sep 2002
23:35:02 -0400

> This can be easily generalized, by the way, to a routine that
> lists all words containing any specified string.

Here it is. DECODE it, DeFine it, and issue ADD2U2 to add
it to U2 (v112 and later). To list all words containing an
ampersand, the command is SORTWDS &. To list all words
containing any instring: SORTWDS [instring].

This version strips out duplicates. To retain the dupes, comment
out the indicated line.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5sortwds}} List and sort all words-containing specified st
ring [CLD 9/2/02][cr|lf]{2}[XH_][BX_]es 1[Q2_]{<}IF{<}VA|50{>
}<1{>}{<}PRSORTWDS [instring]{>}{<}EX{>}{<}EI{>}{<}I
F{<}VA$WS{>}<>1{>}{<}PRNo file{>}{<}EX{>}{<}EI{>}{<}IF{<}VA$W
A{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}{<}SX01,{<}VA$WA{>}
{>}[BX_]func #{<}PV01{>}[Q2_][BX_]ne/1[Q2_][AS_][TF_][TF_][XD
_][XD_][XD_][YD_]{<}LBa{>}[BX_]se/f [999]{<}PV50{>}[999][Q2_]
{<}IF@not({<}ER{>}){>}[DW_]{<}SV01{>}[YD_]{<}IF{<}IS01{>}{240
}" "{>}{<}SX01,{<}VA@01 1{>}{>}{<}EI{>}{<}IF{<}IS01{>}{240}""
"{>}{<}SX01,{<}VA@01"1{>}{>}{<}EI{>}{<}IF@upr({<}IS01{>}){240
}@upr({<}IS50{>}){>}[AS_]{<}GT01{>}[255+48+68][AS_]{<}EI{>}{<
}GLa{>}{<}EI{>}[AS_][DF_][TF_][TF_][DF_]{<}SV01,{>};*;[cr|lf]
;*;[cr|lf];*; Comment out (;*;) next line to retain duplicate
s in list[cr|lf]{<}SX01,{<}VA$SK{>}{>}{<}SX01,"[BX_]d sk="+{<
}IS01{>}+"[Q2_]"{>}[BX_]d sk=4,80[Q2_];*;[cr|lf];*;[cr|lf][BX
_]sort[Q2_][BX_]wait[Q2_]{<}PV01{>}[TF_][TF_][AS_][TF_][TF_][
AS_]{<}PRDone{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx
http://users.datarealm.com/xywwweb/