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;/
转载于:https://blog.51cto.com/12879490/1921860
本文介绍了一个用于清理数据库表中特定列的特殊字符(如回车、换行和竖线)的PL/SQL过程。该过程通过动态SQL更新表中的每一列,确保数据的一致性和准确性。

1554

被折叠的 条评论
为什么被折叠?



