Re: XYwrite macro please.... -- Thanks

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "Yo Intl. YK"  Tue, 3 Sep 2002
07:14:17 +0900

It occurred to me that the routine I posted the other day has the
general capability to list *all* unique words in the current file, not
just words containing a specific string. While this can be done with
the existing routine (by specifying the reverse-video SEarch wildcard
"L" or "A" as the argument), a more straight-forward usage suggested
itself, namely, to omit the argument altogether.

The following revision -- renamed LISTWDS -- incorporates this
feature, along with other tweaks and additions (see Usage summary
below). Use this version, please, and discard the earlier ones. To
install it in U2 (v112 or later required), DECODE it, DeFine it and
issue ADD2U2.

Usage (with subject file in current window):
 List all words containing instring:  LISTWDS [instring]
 List all unique words in current file: LISTWDS
 Allow duplicate words in list:     LISTWDS/NV [instring]
 Usage reminder:            LISTWDS ?

Enjoy!

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5listwds*}} List words in the current file that contain a{32}
specified string [CLD rev. 9/7/02][cr|lf]{2}{<}GLa{>}[cr|lf][
cr|lf]Usage (with subject file in current window):[cr|lf] Li
st all words containing instring:  LISTWDS [instring][cr|lf] List all unique words in current file: LISTWDS[cr|lf] Allow duplicate words in list:     LISTWDS
/NV [instring][cr|lf] Usage reminder:       {32}
     LISTWDS ?[cr|lf][cr|lf]{<}LBa{>}[XH_][BX_]
es 1[Q2_]{<}IF{<}VA@50{>}=="?"{>}{<}PRLISTWDS[/NV] [instring]
{>}{<}EX{>}{<}EI{>}{<}IF{<}VA$WS{>}<>1{>}{<}PRNo fil
e{>}{<}EX{>}{<}EI{>}{<}IF{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}
EX{>}{<}EI{>}{<}IF{<}VA|50{>}<1{>}{<}SV50,[wA]{>}{<}EI{>}{<}S
X01,{<}VA$WA{>}{>}[BX_]func #{<}PV01{>}[Q2_][BX_]ne/1[Q2_][AS
_][XP_][TF_][TF_][XD_][XD_][XD_][YD_]{<}SV01,{3}{8}{tab} "()+
,-/:;<=>[\]^`{|}~{158}{<}{>}{176}{177}{178}{179}{180}{185}{1
86}{187}{188}{191}{192}{193}{194}{195}{196}{197}{200}{201}{20
2}{203}{204}{205}{206}{217}{218}{219}{220}{221}{223}{238}{239
}{240}{241}{242}{244}{245}{246}{247}{248}{249}{250}{>}[DX_]{<
}SX02,"Listing all words in "+{<}VA$FP{>}{>}{<}IF{<}VA|50{>}>
0{>}{<}SX02,{<}IS02{>}+" that contain """+{<}IS50{>}+""""{>}{
<}EI{>}{<}PR@02{>}{<}LBb{>}[BX_]se/f [999]{<}PV50{>}[999][Q2_
]{<}IF@not({<}ER{>}){>}[DW_]{<}SV02{>}[YD_]{<}LBc{>}{<}SX03,{
<}IS02{>}+"[255+192+142]"{>}{<}SV04,{27}X[255+192+142]{>}{<}X
S03,04,04,05,06{>}{<}SV06,{27}X{>}{<}XS05,06,,06,07{>}{<}IF{<
}IS01{>}{240}{<}IS06{>}{>}{<}SX02,{<}IS04{>}{>}{<}GLc{>}{<}EI
{>}[AS_]{<}GT02{>}[255+48+68][DO_][DX_][AS_]{<}GLb{>}{<}EI{>}
[AS_][DF_][TF_][TF_][DF_]{<}SV01,{>}{<}SV02,{>}{<}IF"/"{238}{
<}VA$FR{>}<0{>}{<}SX01,{<}VA$SK{>}{>}{<}SX01,"[BX_]d sk="+{<}
IS01{>}+"[Q2_]"{>}[BX_]d sk=4,80[Q2_]{<}SV02, unique{>}{<}EI{
>}[BX_]sort/nv[Q2_][BX_]wait[Q2_]
{<}PV01{>}[TF_][TF_][AS_][TF_][TF_][AS_][BX_]ch [wC] [wC][Q2
_][BX_]wait[Q2_]{<}SX01,{<}VA$WC{>}{>}{<}SX01,{<}IS01{>}+{<}I
S02{>}+" words"{>}{<}IF{<}VA|50{>}>0{>}{<}SX01,{<}IS01{>}+" c
ontaining """+{<}IS50{>}+""""{>}{<}EI{>}{<}PR@01{>}{2}[cr|lf]
[cr|lf]
-nd
XPLeNCODE

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