CREATE OR REPLACE PROCEDURE GET_SPLIT (
V_STRING1 IN VARCHAR2, --输入的字符串
V_START IN NUMBER, --开始截取的位置
V_LENGTH IN NUMBER, --截取的字符个数
V_SPLIT IN VARCHAR2 --分隔符号
)
AS
V_STRING2 VARCHAR2(50); --保留截取后的 字符串
BEGIN
FOR I IN V_START..LENGTH(V_STRING1) LOOP --从字符串的第一个位置 到 字符串的最后一个位置
V_STRING2:=SUBSTR(V_STRING1,I,V_LENGTH); -- 遍历字符串
IF INSTR(V_STRING2, V_SPLIT) =0 AND LENGTH(V_STRING2) > 2 THEN --如果字符串中 '.' 的位置是 空即 没有 . 字符 ;字符串 CHAR2的长度> 2
DBMS_OUTPUT.PUT_LINE(V_STRING2); --输出CHAR2
END IF;
END LOOP;
END GET_SPLIT;