-- 插入字符串 
create or replace procedure insert_pro(
str in varchar2, --str为原字符串
strindex in number, -- strindex 为插入的开始位置，会插入他的后边
insert_str in varchar2, -- insert_str 为插入的内容
re_str out varchar2 -- re_str 为插入的结果
)
as
begin
  re_str := substr(str,1,strindex) || insert_str || substr(str,strindex+1);
end;

-- 插入字符串
create or replace procedure insert_pro2(
str in varchar2, --str为原字符串
strindex in varchar2, -- strindex 为插入到一个字符串之后的内容
insert_str in varchar2, -- insert_str 为插入的内容
re_str out varchar2 -- re_str 为插入的结果
)
as
v_i number;
begin
v_i := instr(str,strindex) + length(strindex) - 1;
insert_pro(str,v_i,insert_str,re_str);
end;