create or replace function fun(stra varchar2,strb varchar2,casesensitive number default 1)
return number
as
res number default 0;
v_stra varchar2(20);
v_strb varchar2(20);
begin
v_stra:=stra;
v_strb:=strb;
if casesensitive=0 then
v_stra:=lower(v_stra);
v_strb:=lower(v_strb);
end if;
for i in 1..greatest(length(v_stra),length(v_strb))
loop
if substr(v_stra,i,1)=substr(v_strb,i,1) then
res:=res+1;
end if;
end loop;
return res;
end fun;
return number
as
res number default 0;
v_stra varchar2(20);
v_strb varchar2(20);
begin
v_stra:=stra;
v_strb:=strb;
if casesensitive=0 then
v_stra:=lower(v_stra);
v_strb:=lower(v_strb);
end if;
for i in 1..greatest(length(v_stra),length(v_strb))
loop
if substr(v_stra,i,1)=substr(v_strb,i,1) then
res:=res+1;
end if;
end loop;
return res;
end fun;
赞一个。