oracle去除特殊符号函数

create or replace function FUNC_STRING_CLEAN(data IN VARCHAR2) return varchar2
 IS
  data1   VARCHAR2 (2000);
begin
  data1:=data;
    if instr(data1,chr(39))>0 then 
       data1 :=  replace(data1,chr(39),'');
    end if; 
    if instr(data1,'"')>0 then 
     data1 :=  replace(data1,'"','');
    end if;
    if instr(data1,'`')>0 then 
     data1 :=  replace(data1,'`','');
    end if; 
    if instr(data1,'!')>0 then 
     data1 :=  replace(data1,'!','');
    end if;  
    if instr(data1,'(')>0 then 
     data1 :=  replace(data1,'(','');
    end if; 
     if instr(data1,')')>0 then 
     data1 :=  replace(data1,')','');
    end if; 
     if instr(data1,'*')>0 then 
     data1 :=  replace(data1,'*','');
    end if;
     if instr(data1,'^')>0 then 
     data1 :=  replace(data1,'^','');
    end if;   
      if instr(data1,'~')>0 then 
     data1 :=  replace(data1,'~','');
    end if;   
     if instr(data1,'……')>0 then 
     data1 :=  replace(data1,'……','');
    end if;   
     if instr(data1,'%')>0 then 
     data1 :=  replace(data1,'%','');
    end if; 
     if instr(data1,'——')>0 then 
     data1 :=  replace(data1,'——','');
    end if;  
     if instr(data1,'-')>0 then 
     data1 :=  replace(data1,'-','');
    end if;  
     if instr(data1,'+')>0 then 
     data1 :=  replace(data1,'+','');
    end if;   
     if instr(data1,'=')>0 then 
     data1 :=  replace(data1,'=','');
    end if;   
    if instr(data1,'[')>0 then 
     data1 :=  replace(data1,'[','');
    end if;    
     if instr(data1,'{')>0 then 
     data1 :=  replace(data1,'{','');
    end if;   
     if instr(data1,']')>0 then 
     data1 :=  replace(data1,']','');
    end if;   
    if instr(data1,'}')>0 then 
     data1 :=  replace(data1,'}','');
    end if;  
    if instr(data1,'|')>0 then 
     data1 :=  replace(data1,'|','');
    end if; 
     if instr(data1,'/')>0 then 
     data1 :=  replace(data1,'/','');
    end if; 
     if instr(data1,';')>0 then 
     data1 :=  replace(data1,';','');
    end if; 
     if instr(data1,'：')>0 then 
     data1 :=  replace(data1,'：','');
    end if; 
     if instr(data1,'”')>0 then 
     data1 :=  replace(data1,'”','');
    end if; 
     if instr(data1,'“')>0 then 
     data1 :=  replace(data1,'“','');
    end if; 
     if instr(data1,'"')>0 then 
     data1 :=  replace(data1,'"','');
    end if; 
     if instr(data1,'；')>0 then 
     data1 :=  replace(data1,'；','');
    end if; 
     if instr(data1,'，')>0 then 
     data1 :=  replace(data1,'，','');
    end if; 
     if instr(data1,',')>0 then 
     data1 :=  replace(data1,',','');
    end if; 
     if instr(data1,'<')>0 then 
     data1 :=  replace(data1,'<','');
    end if; 
     if instr(data1,'《')>0 then 
     data1 :=  replace(data1,'《','');
    end if; 
     if instr(data1,'>')>0 then 
     data1 :=  replace(data1,'>','');
    end if; 
     if instr(data1,'》')>0 then 
     data1 :=  replace(data1,'》','');
    end if; 
     if instr(data1,'。')>0 then 
     data1 :=  replace(data1,'。','');
    end if; 
     if instr(data1,'.')>0 then 
     data1 :=  replace(data1,'.','');
    end if; 
     if instr(data1,'?')>0 then 
     data1 :=  replace(data1,'?','');
    end if; 
     if instr(data1,'、')>0 then 
     data1 :=  replace(data1,'、','');
    end if; 
     if instr(data1,'@')>0 then 
     data1 :=  replace(data1,'@','');
    end if; 
     if instr(data1,'#')>0 then 
     data1 :=  replace(data1,'#','');
    end if; 
     if instr(data1,'￥')>0 then 
     data1 :=  replace(data1,'￥','');
    end if; 
     if instr(data1,'$')>0 then 
     data1 :=  replace(data1,'$','');
    end if; 
     if instr(data1,'！')>0 then 
     data1 :=  replace(data1,'！','');
    end if; 
     if instr(data1,'*')>0 then 
     data1 :=  replace(data1,'*','');
    end if;  
       if instr(data1,' ')>0 then 
     data1 :=  replace(data1,' ','');
    end if;  
          if instr(data1,'&')>0 then 
     data1 :=  replace(data1,'&','');
    end if;  
    return data1;
end FUNC_STRING_CLEAN;