plsql 类似Java中的split方法 字符串分割

--包头

CREATE OR REPLACE PACKAGE asset_formation_api IS

-- Author  : DIQYE
-- Created : 2012/11/8 10:40:38
-- Purpose : dd

TYPE check_bill_id_table IS TABLE OF VARCHAR2(30)
INDEX BY BINARY_INTEGER;

constant_name CONSTANT VARCHAR2(10) := 'ddddd';
-- 分割符
split_code CONSTANT CHAR := ',';
--已建卡
created_card CONSTANT NUMBER(1) := 0;
--未建卡
not_create_card CONSTANT NUMBER(1) := 1;
--分割字符串 以逗号分割
FUNCTION str_split(str IN VARCHAR2) RETURN check_bill_id_table;

--验证这些这些验收单的系统验收单是否已经建卡
--已建卡 check_result = 0
--未建卡 check_result = 1
PROCEDURE check_parent(str IN VARCHAR2, check_result OUT NUMBER);

END asset_formation_api;

create or replace package body asset_formation_api is

current_p INTEGER; --当前字符串的位置
last_p INTEGER := 1; -- 上次逗号出现的位置
str_num INTEGER :=1; --截取字符串的数量  没截取一次加一
FUNCTION nextStr(str IN VARCHAR2) RETURN VARCHAR2;
PROCEDURE init IS
BEGIN
current_p := 1;
last_p := 1;
str_num := 1;
END;
-- Public function and procedure declarations
--分割字符串 以逗号分割
FUNCTION str_split(str IN VARCHAR2) RETURN  check_bill_id_table
IS
i INTEGER := 1; --集合下标
reslt asset_formation_api.check_bill_id_table; --返回结果
param VARCHAR2(2000);
s VARCHAR2(100); --分割之后的 单个的字符串
BEGIN
init;
param := TRIM(str)||',';

LOOP
s := nextStr(param);
EXIT WHEN s IS NULL;
reslt(i) := s;
i := i+1;
END LOOP;
RETURN reslt;
END;

--验证这些这些验收单的系统验收单是否已经建卡
--已建卡 check_result = 0
--未建卡 check_result = 1
PROCEDURE check_parent(str IN VARCHAR2, check_result OUT NUMBER)
IS

BEGIN
NULL;
END;

FUNCTION nextStr(str IN VARCHAR2) RETURN VARCHAR2
IS
reslt VARCHAR2(100);
sp_p INTEGER; --逗号在str中出现的第last_p个位置
BEGIN
sp_p := instr(str, split_code,1,str_num);
IF sp_p = 0 THEN
reslt := NULL;
ELSIF str_num = 1 THEN
reslt := substr(str, last_p,sp_p-last_p);
ELSE
reslt := substr(str, last_p+1,sp_p-last_p-1);
END IF;
last_p := sp_p;
str_num := str_num + 1;
RETURN reslt;
END;
end asset_formation_api;