--===========================================================================
-- Copywright 2002, joel crainshaw & chet west
--===========================================================================
-- DESCRIPTION
--	super simple function to count number of words in a string
--===========================================================================
-- MODIFICATION HISTORY
-- Person      Date       Comments
-- ---------   ---------- -------------------------------------------
-- joel        03/18/2002 Initial Creation
--===========================================================================

CREATE OR REPLACE FUNCTION count_words (
   p_data   VARCHAR2
)
   RETURN VARCHAR2 IS
   v_data    VARCHAR2 (2000) := single_space (p_data);
   v_count   NUMBER          := 0;
--
BEGIN
   FOR i IN 1 .. LENGTH (v_data) LOOP
      IF substr (v_data, i, 1) = ' ' THEN
         v_count := v_count + 1;
      END IF;
   END LOOP;

   RETURN v_count;
END count_words;
/