分隔字符串

注:此SQL原作者 袁老大

CREATE OR REPLACE PACKAGE split_pck IS

type char_table is table of varchar2(4000);

function split_string(pi_str in varchar2, pi_separator in varchar2) return char_table;

procedure test_split_string(pi_string in varchar, pi_separator in varchar2);

end split_pck;


CREATE OR REPLACE PACKAGE BODY split_pck IS

function split_string(pi_str in varchar2, pi_separator in varchar2) return char_table is
v_char_table char_table;
v_temp varchar2(4000);
v_element varchar2(4000);
begin
v_char_table := char_table(); --数组初始化(必须)--
v_temp := pi_str;
while instr(v_temp, pi_separator) > 0
loop
v_element := substr(v_temp,1,instr(v_temp, pi_separator)-1);
v_temp := substr(v_temp, instr(v_temp,pi_separator)+ length(pi_separator) , length(v_temp));
v_char_table.extend;
v_char_table(v_char_table.count) := v_element;

end loop;
--以下两句是为了把最后一个分隔符身后的内容装进数组--
v_char_table.extend;--给数组动态分配空间--
v_char_table(v_char_table.count) := v_temp; --(v_char_table.count)数组的下标--
return v_char_table;
end split_string;

procedure test_split_string(pi_string in varchar, pi_separator in varchar2) is
v_char_table char_table;
begin
v_char_table := split_string(pi_string, pi_separator);
for i in 1 .. v_char_table.count
loop
dbms_output.put_line(v_char_table(i));
end loop;
end test_split_string;

end split_pck;


补充:
创建类型的SQL
create or replace type char_table is table of varchar2(4000);
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值