فانكشن لحساب تكرار حروف أو رموز معينه داخل نص معين

هذه الفانكشن يمكن أن تحسن تكرار حرف أو رمز أو مجموعه من الحروف داخل نص معين. فمثلا يمكن لها أن تعد تكرار رمز ال ( @ ) داخل الإيميل أو ( com. ) أو المسافات أو إسم معين .....وهكذا

والجيد في هذه الفانكشن أنها تحسب تكرار حرفا معينا أو مجموعه من الحروف على غرار بعض الطرق التي لا تستطيع حساب تكرار أكثر من حرف. لذلك يمكن إستخدامها على نطاق واسع
وهي تأخد إتنين باراميتر الأول هو للنص المراد البحث فيه والثاني هو النص المراد حساب عدد تكراره في نص الباراميتر الأول
والكود كالتالي:

create or replace
function count_string(main_string varchar2,clause_string varchar2)
return number
is
total_number number;
begin
if main_string is null
then
raise_application_error(-20010,'من فضلك أدخل قيمة النص المراد البحث فيه ');
elsif length(clause_string)>length(main_string)
then
raise_application_error(-20011,' لا يمكن أن يكون النص المراد إيجاد تكراره أكبر من النص الأساسي');
else
select (length(main_string)-length(replace(main_string,clause_string)))/length(clause_string)
into total_number from dual;
return total_number;
end if;
end;

وهذا مثال للتوضيح:

declare
total number;
begin
select count_string('&the_email','@') into total
from dual;
if total <>1 
then
dbms_output.put_line('This email is wrong');
else
dbms_output.put_line('This email is right');
end if;
end;

دعواتكم