Re: cwd in U2

[Judith Davidsen jdavidsen@xxxxxxxx]

Carl--

Just plugged CWD/S into U2 and it's purring along. Thanks.

> In other words, you want to count strings instead of words?

Is there a glossary somewhere that will help me choose the
right words?

> You know the drill.

Sez U! Took me two hours to find where I had stored the
instructions, and two minutes to carry them out.

thanks again

Judith Davidsen

===========


> To count strings, issue CWD/S. To conserve memory, I've
> eliminated the longer framename COUNTWD.
>
> XPLeNCODE v2.0
> b-gin [UNTITLED]
> {{;5cwd,cwd/s}} Count occurrences of a WorD or STring [CLD re
> v. 1/16/02][cr|lf]{2}{<}IF{<}VA$WS{>}<>1{>}{<}PRNo file{>}{<}
> EX{>}{<}EI{>}{<}SX01,{<}VA$WA{>}{>}{<}IF{<}PV01{>}<1{>}{<}PRN
> o window{>}{<}EX{>}{<}EI{>}[XH_][BX_]es 1[Q2_][DX_]{<}SV02,{>
> }{<}IF""""{238}{<}IS50{>}==0{>}{<}SX50,{<}VA@50"2{>}{>}{<}SV0
> 2,a{>}{<}GLa{>}{<}EI{>}{<}SX50,@upr({<}IS50{>}){>};*;[cr|lf]{
> <}LBa{>}{<}SU03,{>}[DZ_]{<}IF{<}VA$DE{>}<1{>}{<}SX04,{<}CP{>}
> {>}[TF_][DF_][BF_][DF_][BX_]jmp {<}PV04{>}[Q2_]{<}SU03,[YD_]{
> >}{<}EI{>}[BX_]func #{<}PV01{>}[Q2_][BX_]ne/100[Q2_][CP_];*;[
> cr|lf][BX_]ch{<}PV02{>}/t{<}IF"S"{238}@upr({<}VA$FR{>})<0{>}/
> w{<}EI{>} [999]{<}PV50{>}[999]{<}PV50{>}[999][Q2_]{<}SX01,{<}
> VA$WC{>}{>}{<}IF{<}VA|02{>}>0{>}{<}SX50,""""+{<}IS50{>}+"""{>
> }{<}EI{>}{<}SX05,{<}IS01{>}+" occurrence(s) of "{>}{<}IF@upr(
> {<}VA$FR{>}){240}"S"{>}{<}SX05,{<}is05{>}+"string "{>}{<}EI{>
> }{<}SX05,{<}is05{>}+{<}IS50{>}{>}{<}SX01,{<}VA$WN{>}{>}[BX_]a
> b/nv[Q2_]{<}IF{<}VA$WN{>}=={<}PV01{>}{>}[BX_]rs[Q2_]{<}EI{>}{
> <}GT03{>}{<}PR@05{>}{<}EX{>}{2}[cr|lf][cr|lf]
> -nd
> XPLeNCODE
>
> --
> Carl Distefano
> cld@xxxxxxxx
> http://users.datarealm.com/xywwweb/