--删除括号内的东西
function delmatch(str in varchar2,
firstmatch in varchar2,
aftermatch in varchar2) return varchar2 is
p1 integer;
p2 integer;
delstr varchar2(4000);
begin
p1 := instr(str, firstmatch);
if p1 > 0 then
p2 := instr(str, aftermatch);
if p2 > p1 then
delstr := substr(str, 1, p1 - 1) ||
substr(str, p2 + length(aftermatch));
return delmatch(delstr, firstmatch, aftermatch);
end if;
end if;
return str;
end;
如输入参数 补充耕地位置图(在1:1万分幅土地利用现状图上标注)和补充耕地竣工验收图(采用1:2000实测图).pdf,
firstmatch 为(
aftermatch 为)
返回值:补充耕地位置图和补充耕地竣工验收图.pdf