CREATE OR REPLACE PROCEDURE pro_testcom (p_string IN VARCHAR2, replace1 IN VARCHAR2, replace2 IN VARCHAR2) IS p_start NUMBER := 1;-- 從哪一個位置開始截取
p_subLength NUMBER := 1;-- 須要截取多長
p_string_length NUMBER := length(p_string);-- 獲取須要截取的字符串的長度
p_new_string VARCHAR2(2014) := '';--存儲拼接新的字符串
BEGIN
WHILE(p_start < p_string_length + 1) LOOP p_subLength := INSTR(p_string, replace1, p_start); IF p_subLength = 0 THEN p_subLength := p_string_length + 1; END IF ; IF p_new_string IS NULL THEN p_new_string := SUBSTR(p_string , p_start , p_subLength - p_start); ELSE p_new_string := p_new_string||replace2||SUBSTR(p_string , p_start , p_subLength - p_start); END IF; p_start := p_subLength + 1; END LOOP; -- 打印結果
DBMS_OUTPUT.PUT_LINE('替換以後的字符串爲:'||p_new_string); END pro_testcom;