'Black' text count

Any simple way to count 'just' the visible text characters?

I have already done some stuff to count different styles and things, but I need this option as well. It should count only the visible characters and not any tabs, spaces, LF, CR, etc.

This possible?

Ok, I'm doing

len := GetTextLen;
  CPPosition := 0;
  while len>0 do begin
    if (CPAttr^.width=0) then INC(vblck);
    if not CPMoveNext then break;
    dec(len);
  end;

But vblck always returns 0, but it should give me the count of non-visible characters, right? If I change it to >0 (to count visible characters?), it counts everything, including the spaces and returns and such.

sorry, 'black text' is some industry buzz word

What is need is to count only visible characters. I also do not want to count, spaces, tabs, or carriage returns, or any other character that is 'technically' visible, but does not result in putting actual ink on the page.

for example: a b c
this should be 3 characters, but I'll get 5 because of the spaces between.

ok thanks

looks like (CPChar^ > #32) will do what I need.