create or replace function to_dolar(str varchar2) return varchar2
is
currNumber number(2);
currStr varchar2(10);
begin
if str is not null then
for i in 1..length(str) loop
currStr:=substr(str,i,1);
begin
select to_number(currStr) into currNumber from dual;
exception
when others then
return '敢忽悠我,我就什么都不返回';
end;
end loop;
end if;
return to_char('¥'||str);
end;
select to_dolar('1ss') from dual;
create or replace function mysplit(str in varchar2,splitestr varchar2:=',')
return varchar2
is
returnstr varchar2(10);
evestr varchar2(10);
begin
returnstr:=null;
if str is not null then
for i in 1..length(str) loop
evestr:=substr(str,i,1);
returnstr:=concat(concat(returnstr,evestr),splitestr);
end loop;
return rtrim(returnstr,',');
else
return '神马都不传,返回啥呀';
end if;
end;