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

[cld@xxxxxxxx (Carl Distefano)]

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

Sorry, but LISTWDS required one final tweak. Use this version
(dated "9/7a/02"); discard the one dated 9/7/02 and all earlier
versions.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5listwds*}} List words in the current file that contain a{32}
specified string [CLD rev. 9/7a/02][cr|lf]{2}{<}GLa{>}[cr|lf]
[cr|lf]Usage (with subject file in current window):[cr|lf] L
ist all words containing instring:  LISTWDS [instring][cr|lf] List all unique words in current file: LISTWDS[cr|lf] Allow duplicate words in list:     LISTWD
S/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 fi
le{>}{<}EX{>}{<}EI{>}{<}IF{<}VA$WA{>}<1{>}{<}PRNo window{>}{<
}EX{>}{<}EI{>}{<}IF{<}VA|50{>}<1{>}{<}SV50,[wA]{>}{<}EI{>}{<}
SX01,{<}VA$WA{>}{>}[BX_]func #{<}PV01{>}[Q2_][BX_]ne/1[Q2_][A
S_][XP_][TF_][TF_][XD_][XD_][XD_][YD_]{<}SV01,{3}{8}{tab} "()
+,-/:;<=>[\]^`{|}~{158}{<}{>}{176}{177}{178}{179}{180}{185}{
186}{187}{188}{191}{192}{193}{194}{195}{196}{197}{200}{201}{2
02}{203}{204}{205}{206}{217}{218}{219}{220}{221}{223}{238}{23
9}{240}{241}{242}{244}{245}{246}{247}{248}{249}{250}{>}[DX_]{
<}SX02,"Listing all words in "+{<}VA$FP{>}{>}{<}IF{<}IS50{>}<
>"[wA]"{>}{<}SX02,{<}IS02{>}+" that contain """+{<}IS50{>}+""
""{>}{<}EI{>}{<}PR@02{>}{<}LBb{>}[BX_]se/f [999]{<}PV50{>}[99
9][Q2_]{<}IF@not({<}ER{>}){>}[DW_]{<}SV02{>}[YD_]{<}LBc{>}{<}
SX03,{<}IS02{>}+"[255+192+142]"{>}{<}SV04,{27}X[255+192+142]{
>}{<}XS03,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{>}+{<}IS02{>}+" words"{>}{<}IF{<}IS50{>}<>"[wA]"{>}{<}
SX01,{<}IS01{>}+" containing """+{<}IS50{>}+""""{>}{<}EI{>}{<
}PR@01{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE

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