Re: counting the words in a TeX document

[Hans Hagen <pragma@wxs.nl>]

Mojca Miklavec wrote:
> On 8/7/06, Hans Hagen wrote:
>   
>> Mojca Miklavec wrote:
>>     
>>>> ftp://tug.ctan.org/pub/tex-archive/macros/plain/contrib/misc/xii.tex
>>>>
>>>>
>>>>         
>> yeah, a famous tex master piece!
>>     
>>>> But of course, you will not write anything like this in an abstract
>>>> :-)
>>>>
>>>>         
>> hm, let me provide a word counter for that one before you get the idea to ask for it -)
>>     
>
> Whom did you have in mind? I would never have thought about asking
> such a question. ;)
>
>   
>> \starttext
>>
>> \setbox0\vbox\bgroup  % \tracingall -)
>> \forgetall \nohyphens \hsize1mm
>> \let\bye\egroup \bgroup
>> \let~\catcode~`76~`A13~`F1~`j00~`P2jdefA71F~`7113jdefPALLF
>> PA''FwPA;;FPAZZFLaLPA//71F71iPAHHFLPAzzFenPASSFthP;A$$FevP
>> A@@FfPARR717273F737271P;ADDFRgniPAWW71FPATTFvePA**FstRsamP
>> AGGFRruoPAqq71.72.F717271PAYY7172F727171PA??Fi*LmPA&&71jfi
>> Fjfi71PAVVFjbigskipRPWGAUU71727374 75,76Fjpar71727375Djifx
>> :76jelse&U76jfiPLAKK7172F71l7271PAXX71FVLnOSeL71SLRyadR@oL
>> RrhC?yLRurtKFeLPFovPgaTLtReRomL;PABB71 72,73:Fjif.73.jelse
>> B73:jfiXF71PU71 72,73:PWs;AMM71F71diPAJJFRdriPAQQFRsreLPAI
>> I71Fo71dPA!!FRgiePBt'el@ lTLqdrYmu.Q.,Ke;vz vzLqpip.Q.,tz;
>> ;Lql.IrsZ.eap,qn.i. i.eLlMaesLdRcna,;!;h htLqm.MRasZ.ilk,%
>> s$;z zLqs'.ansZ.Ymi,/sx ;LYegseZRyal,@i;@ TLRlogdLrDsW,@;G
>> LcYlaDLbJsW,SWXJW ree @rzchLhzsW,;WERcesInW qt.'oL.Rtrul;e
>> doTsW,Wk;Rri@stW aHAHHFndZPpqar.tridgeLinZpe.LtYer.W,:jbye
>> \egroup
>>
>> \newcounter\NOfLines
>> \beginshapebox \unvcopy0 \endshapebox
>> \reshapebox{\doglobal\increment\NOfLines}
>>
>> \getnoflines{\ht0}
>>
>> lines: \the\noflines
>> words: \NOfLines\par
>>
>> % \unvbox0
>>
>> \stoptext
>>     
>
> (I'll spare you the fun with sections for some other time,) but since
> you reminded me that I might have some questions left, here you have
> another one: how do I replace hyphens, en-dashes and em-dashes with
> "spaces/line breaks"?
> 	 \catcode`~=13\let~=\space
> does what I want, but none of the following works:
> 	 \def\-{\space}
> 	 \def-{\space}
> 	 \let\-=\space
>   
\catcode`-=\active \def-{ }

Hans 

-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------