create or replace PRocedure PROC_test is  --Description:刪除字段中的指定字符(回車chr（13）、換行chr（10）)  --By LiChao  --Date:2016-03-01  colname varchar(20); --列名  cnt     number; --包含換行符的列的行數  v_sql   varchar(2000); --動態SQL變量begin  --讀取表中的列  for col in (select column_name                from user_tab_columns               where table_name = 'TEMP') loop    colname := col.column_name;   --替換換行符chr(10)    v_sql := 'select count(1)  from temp  where instr(' || colname ||             ',chr(10))>0 ';    EXECUTE IMMEDIATE V_SQL      into cnt;    if cnt > 0 then      v_sql := 'update temp set ' || colname || '=trim(replace(' || colname ||               ',chr(10),''''))' || 'where instr(' || colname ||               ',chr(10))>0 ';      EXECUTE IMMEDIATE V_SQL;      commit;    end if;   --替換回車符chr(13)    v_sql := 'select count(1)  from temp  where instr(' || colname ||             ',chr(13))>0 ';    EXECUTE IMMEDIATE V_SQL      into cnt;    if cnt > 0 then      v_sql := 'update temp set ' || colname || '=trim(replace(' || colname ||               ',chr(13),''''))' || 'where instr(' || colname ||               ',chr(13))>0  ';      EXECUTE IMMEDIATE V_SQL;      commit;        end if;    --替換'|' chr(124) 為'*' chr（42）    v_sql := 'select count(1)  from temp  where instr(' || colname ||             ',chr(124))>0 ';    EXECUTE IMMEDIATE V_SQL      into cnt;    if cnt > 0 then      v_sql := 'update temp set ' || colname || '=replace(' || colname ||               ',chr(124),chr(42))' || 'where instr(' || colname ||               ',chr(124))>0  ';      EXECUTE IMMEDIATE V_SQL;      commit;        end if;  end loop;end PROC_test;/