Re: Countchars

[cld@xxxxxxxx]

Manuel:

I followed your instructions, but I cannot reproduce the error. I got another error, however, a
slight variance in the char vs. byte count under some conditions. The revision below addresses
that. Plug it in -- maybe it will solve the other problem as well? (Wishful thinking.)

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5countchars*}} Count number of chars|bytes in DF block [CL
D rev. 2/10/05][cr|lf]{002};*;[cr|lf];*; Basic usage (with bl
ock DeFined):[cr|lf];*;  COUNTCHARS[cr|lf];*; Optio
ns:[cr|lf];*;  COUNTCHARS/NF excludes embedded form
atting from count[cr|lf];*;  COUNTCHARS -"aBc" excl
udes chars a, B and c[cr|lf];*;  (double quotes required)[c
r|lf];*; Options may be combined; e.g.:[cr|lf];*;  COUNTCHAR
S/NF -"[255+050+048] " (exclude formatting, hard & s
oft spaces)[cr|lf];*; Single wildcards may used to specify ch
ars to exclude[cr|lf];*;  COUNTCHARS -"[wN][wS]" (e
xclude numbers and separators)[cr|lf];*; One available window
 required for /NF and exclude options[cr|lf];*;[cr|lf][XH_][B
X_]es 1[Q2_][DZ_]{<}IF{<}VA$DE{>}<1{>}{<}PRNothing DeFined{>}
{<}EX{>}{<}EI{>}[DX_]{<}SV51,{>}{<}SV52,{>}{<}SV53,{>}{<}IF@u
pr({<}VA$FR{>}){240}"/NF"!"-"{238}{<}VA@50{>}==0{>}{<}SX53,@u
pr({<}VA$FR{>}){>}{<}IF{<}VA|50{>}>0{>}{<}SX54,{<}IS50{>}{>}{
<}EI{>}[Q2_]{<}IF{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}
EI{>}[DX_]{<}SX55,{<}VA$WA{>}{>}[BX_]func #{<}PV55{>}[Q2_][BX
_]ne/100[Q2_][CP_][TF_][TF_]{<}IF{<}IS53{>}{240}"/NF"{>}[JM_]
2.daf[Q2_]{<}EI{>}{<}IF"-"{238}{<}VA@54{>}==0{>}{<}SV55,-{>}{
<}SV51,{>}{<}XS54,55,,55,51{>}{<}SV55,"{>}{<}XS51,55,,54,52{>
}{<}SX52,{<}IS52{>}+"{014}"{>}{<}SV55,"{014}{>}{<}XS52,55,51,
,54{>}{<}SV55,{027}X{>}{<}LBa{>}{<}IF{<}VA|51{>}>0{>}{<}SV52,
{>}{<}XS51,55,,54,52{>}{<}SX51,{<}IS52{>}{>}{<}LBb{>}[BX_]cha
 [999]{<}PV54{>}[999][999][Q2_]{<}IF@not({<}ER{>}){>}[BX_]wai
t[Q2_]{<}GLb{>}{<}EI{>}{<}GLa{>}{<}EI{>}{<}EI{>}[BF_][BF_][DF
_][TF_][TF_][DF_]{<}EI{>}[XP_][DB_]{<}SX54,0{>}{<}PRWorking..
{046}{>}{<}LBc{>}{<}IF0+{<}VA$IN{>}>0&0+{<}VA$FE{>}<1{>}{<}SX51,{
<}CP{>}{>}[CR_]{<}IF{<}CP{>}>{<}PV51{>}&{<}C
P{>}<1+{<}VA$DN{>}{>}{<}SX54,{<}PV54{>}+1{>}{<}GLc{>}{<}EI{>}
{<}EI{>}{<}SX55,{<}VA$DN{>}-{<}VA$DS{>}{>}{<}IF{<}VA|53{>}>0{
>}[JM_]2.ab/nv[Q2_]{<}EI{>}[DB_]{<}SX54,{<}IS54{>}+" chars |{032}
"+{<}IS55{>}+" bytes"{>}{<}PR@54{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE


--
Carl Distefano
cld@xxxxxxxx