منقول ...function لحساب عدد مرات وجود حرف معين في نص

[هانى سند]

السلام عليكم و رحمة الله و بركاته

إخواني الكلام


مرة أخري ميعادنا هذه المرة مع function اخري
و هي هذه المرة تقوم بعد مرات وجود حرف معين في نص

أشكر العضو moody_4u مرة اخري لمجهوده

اليكم نص الfunction

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

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

  RETURN v_count;
END;
/

,

و موجودة ايضا بالمرفقات
مع تمنياتي بالتوفيق

count_char.txt

[wlahmad]

يمن الله كتابك ويسر حسابك وبلغك مرادك