| Date: | Thu, 11 Sep 1997 10:30:26 EDT |
|---|
| Reply-To: | "Mr. Juggie Mistry CUUKMAIL MS - 22702/27411"
<juggie_mistry@UK.CU.COM> |
|---|
| Sender: | "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU> |
|---|
| From: | "Mr. Juggie Mistry CUUKMAIL MS - 22702/27411"
<juggie_mistry@UK.CU.COM> |
|---|
| Subject: | REF: RE: FUNCTION TO COUNT WORDS.... |
|---|
| Content-Type: | text/plain; charset=US-ASCII |
|---|
/*====================================================================
! !
! Name : M_WC.SAS !
! Type : Base SAS Macro !
! Date : 29th April 1997 !
! !
! Purpose : Counts number of words in a string !
! !
! Author : Jugdish Mistry-Professional Solution Providers Ltd.!
! Version : 1.0 !
! !
! Run mode : Interactive !
! Passed in : None !
! Passed out : None !
! !
! Maintanance History !
! !
! When Who What !
! !
====================================================================*/
%macro wc(string);
%let word=%scan(&string,1);
%let wc=0;
%do %while(%quote(&word) ne %quote());
%let wc=%eval(&wc+1);
%let word=%scan(&string,&wc);
%end;
&wc;
%mend;
/* e.g.
data _null_;
x = %wc(once upon a time);
put x=;
run;
*/
Hope this helps
Juggie.
Juggie Mistry
SAS consultant I12
| 
