oracle 存储过程 字符串分隔 FUNC_GETSPLITSTR
发布时间：2020-12-12 14:07:41 所属栏目：百科 来源：网络整理
导读：create or replace type ARRYTYPE1 is VARRAY(10) OF VARCHAR(100); CREATE OR REPLACE FUNCTION FUNC_GETSPLITSTR(in_str IN VARCHAR2,--需分割的字符串 in_split IN VARCHAR2 --分隔符 ) RETURN arrytype1 AS v_up int; v_count int; v_strlist arrytype1;
|
create or replace type ARRYTYPE1 is VARRAY(10) OF VARCHAR(100); CREATE OR REPLACE FUNCTION FUNC_GETSPLITSTR(in_str IN VARCHAR2,--需分割的字符串 in_split IN VARCHAR2 --分隔符 ) RETURN arrytype1 AS v_up int; v_count int; v_strlist arrytype1; v_curnode VARCHAR2(10); v_node VARCHAR2(2000); BEGIN v_up := 0; v_count := 0; v_strlist := arrytype1(); IF (in_str IS NULL) OR (LENGTH(in_str) <= 0) THEN RETURN NULL; END IF; FOR v_i IN 1 .. LENGTH(in_str) LOOP v_curnode := SUBSTRB(in_str,v_i,1); if v_curnode = in_split then v_node := SUBSTRB(in_str,v_up + 1,v_i - v_up - 1); v_up := v_i; else if v_i = LENGTH(in_str) then v_node := SUBSTRB(in_str,v_i - v_up); end if; end if; IF v_node IS NULL THEN v_node := ''; else v_strlist.EXTEND(); v_count := v_count + 1; v_strlist(v_count) := v_node; v_node := ''; END IF; END LOOP; RETURN v_strlist; END FUNC_GETSPLITSTR;（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |