Re: Countchars

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "M.C."  Thu, 10 Feb 2005 20:36:53
+0100

Manuel:

> The new version works without any flaw.

You mean, it solves the problem you encountered with your -"b"
example earlier today? I'm not sure why it would -- but glad
anyway.

Here's a slight revision. Expands the final PRompt (adds a reminder
of the characters that were excluded from the count), and restores
the original display type.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5countchars*}} Count number of chars|bytes in DF block [CL
D rev. 2/11/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,{>}{<}SV54
,{>}{<}SV55,{>}{<}IF@upr({<}VA$FR{>}){240}"/NF"!"-"{238}{<}VA
@50{>}==0{>}{<}SV54, [exclusions: {>}{<}SX53,@upr({<}VA$FR{>
}){>}{<}IF{<}IS53{>}{240}"/"{>}{<}SX54,{<}IS54{>}+"/"+{<}VA@5
3/2{>}{>}{<}EI{>}{<}IF{<}VA|50{>}>0{>}{<}SX56,{<}IS50{>}{>}{<
}EI{>}[Q2_]{<}IF{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}E
I{>}{<}SX57,{<}VA$WA{>}{>}[BX_]func #{<}PV57{>}[Q2_][BX_]ne/1
00[Q2_][CP_][TF_][TF_]{<}IF{<}IS53{>}{240}"/NF"{>}[JM_]2.daf[
Q2_]{<}EI{>}{<}IF"-"{238}{<}VA@56{>}==0{>}{<}SV57,-{>}{<}SV51
,{>}{<}XS56,57,,57,51{>}{<}SV57,"{>}{<}XS51,57,,56,52{>}{<}SX
52,{<}IS52{>}+"{014}"{>}{<}SV57,"{014}{>}{<}XS52,57,51,,56{>}
{<}IF{<}VA|54{>}>15{>}{<}SX54,{<}IS54{>}+" "{>}{<}EI{>}{<}SX5
4,{<}IS54{>}+""""+{<}IS51{>}+"""{>}{<}SV57,{027}X{>}{<}LBa{>}
{<}IF{<}VA|51{>}>0{>}{<}SV52,{>}{<}XS51,57,,56,52{>}{<}SX51,{
<}IS52{>}{>}{<}LBb{>}[BX_]cha [999]{<}PV56{>}[999][999][Q2_]{
<}IF@not({<}ER{>}){>}[BX_]wait[Q2_]{<}GLb{>}
{<}EI{>}{<}GLa{>}{<}EI{>}{<}EI{>}[BF_][BF_][DF_][TF_][TF_][DF
_]{<}EI{>}{<}IF{<}va$dt{>}>0&{<}va$dt{>}<>8{>}[TG_]{<}SV55,[T
G_]{>}{<}EI{>}[DB_]{<}SX56,0{>}{<}PRWorking...{>}{<}LBc{>}{<}
IF0+{<}VA$IN{>}>0&0+{<}VA$FE{>}<1{>}{<}SX51,{<}CP{>}{>}[CR_]{
<}IF{<}CP{>}>{<}PV51{>}&{<}CP{>}<1+{<}VA$DN{>}{>}{<}SX56,{<}P
V56{>}+1{>}{<}GLc{>}{<}EI{>}{<}EI{>}{<}SX57,{<}VA$DN{>}-{<}VA
$DS{>}{>}{<}IF{<}VA|53{>}>0{>}[JM_]2.ab/nv[Q2_]{<}EI{>}[DB_]{
<}IF{<}VA|54{>}>0{>}{<}SX54,{<}IS54{>}+"]"{>}{<}EI{>}{<}SX56,
{<}IS56{>}+" chars | "+{<}IS57{>}+" bytes"+{<}IS54{>}{>}{<}PV
55{>}{<}PR@56{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx