oracle中怎样分割字符串

Posted 2023-04-23

list字符串为1,2,3 这种类型怎样将list字符串分割，并添加到数据库中存储过程怎样写create or replace procedure prc_edit_rights
(id number, list varchar2)——————————

分割字符串用substr函数即可。

如：字符串为abc123，现在要截取成abc和123。

select substr(\'abc123\',1,3),substr(\'abc123\',4,3) from dual;

函数说明：

substr(\'abc123\',1,3)

其中abc123是要被截取的字符串，1，代表从第一位开始截取，3代表要截取的长度。

参考技术A 通过：SUBSTR（字符串，开始位置，长度）方法来分割字符串。
如：select SUBSTR(‘abcdefg’,4，2) from dual;结果就是“de”。 参考技术B （1）定义split_type类型：
CREATE OR REPLACE TYPE split_type IS TABLE OF VARCHAR2 (4000) /

（2）定义split函数：
CREATE OR REPLACE FUNCTION split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2) RETURN split_type IS j INT := 0; i INT := 1; len INT := 0; len1 INT := 0; str VARCHAR2 (4000); my_split split_type := split_type (); BEGIN len := LENGTH (p_str); len1 := LENGTH (p_delimiter); WHILE j < len LOOP j := INSTR (p_str, p_delimiter, i); IF j = 0 THEN j := len; str := SUBSTR (p_str, i); my_split.EXTEND; my_split (my_split.COUNT) := str; IF i >= len THEN EXIT; END IF; ELSE str := SUBSTR (p_str, i, j - i); i := j + len1; my_split.EXTEND; my_split (my_split.COUNT) := str; END IF; END LOOP; RETURN my_split; END split; /

（3）存储过程中，使用类似 For T In ( select a,b,c,d from table (split('1,2,3,4',',')) ) Loop --注意下面的inserti语句，varchar类型的值需要补充引号上去
Execute Immediate ' insert into tableName set fieldName = '||T.a ;
Execute Immediate 'commit';
End Loop; 的查询语句，把分开的结果拼成sql语句并写入到表中。

oracle | 字符串分割函数

/**
 * 字符串分割函数.
 * @param P_STR 待分割的字符串
 * @param 分隔符
 * @return 自定义table类型TY_STR_SPLIT.
 * 使用方法 select column_value from table(fn_split(‘1,2‘,‘,‘))
 * @Author: xDer
 */
CREATE OR REPLACE FUNCTION FN_SPLIT(P_STR       IN VARCHAR2,
                                    P_DELIMITER IN VARCHAR2)
  RETURN TY_STR_SPLIT IS
  J         INT := 0;
  I         INT := 1;
  LEN       INT := 0;
  LEN1      INT := 0;
  STR       VARCHAR2(4000);
  STR_SPLIT TY_STR_SPLIT := TY_STR_SPLIT();
BEGIN
  LEN  := LENGTH(P_STR);
  LEN1 := LENGTH(P_DELIMITER);

  WHILE J < LEN LOOP
    J := INSTR(P_STR, P_DELIMITER, I);

    IF J = 0 THEN
      J   := LEN;
      STR := SUBSTR(P_STR, I);
      STR_SPLIT.EXTEND;
      STR_SPLIT(STR_SPLIT.COUNT) := STR;

      IF I >= LEN THEN
        EXIT;
      END IF;
    ELSE
      STR := SUBSTR(P_STR, I, J - I);
      I   := J + LEN1;
      STR_SPLIT.EXTEND;
      STR_SPLIT(STR_SPLIT.COUNT) := STR;
    END IF;
  END LOOP;

  RETURN STR_SPLIT;
END FN_SPLIT;

　　

/** * 字符串分割函数. * @param P_STR 待分割的字符串 * @param 分隔符 * @return 自定义table类型TY_STR_SPLIT. * 使用方法 select column_value from table(fn_split(‘1,2‘,‘,‘)) * @Author: xDer */CREATE OR REPLACE FUNCTION FN_SPLIT(P_STR       IN VARCHAR2,                                    P_DELIMITER IN VARCHAR2)  RETURN TY_STR_SPLIT IS  J         INT := 0;  I         INT := 1;  LEN       INT := 0;  LEN1      INT := 0;  STR       VARCHAR2(4000);  STR_SPLIT TY_STR_SPLIT := TY_STR_SPLIT();BEGIN  LEN  := LENGTH(P_STR);  LEN1 := LENGTH(P_DELIMITER);
  WHILE J < LEN LOOP    J := INSTR(P_STR, P_DELIMITER, I);
    IF J = 0 THEN      J   := LEN;      STR := SUBSTR(P_STR, I);      STR_SPLIT.EXTEND;      STR_SPLIT(STR_SPLIT.COUNT) := STR;
      IF I >= LEN THEN        EXIT;      END IF;    ELSE      STR := SUBSTR(P_STR, I, J - I);      I   := J + LEN1;      STR_SPLIT.EXTEND;      STR_SPLIT(STR_SPLIT.COUNT) := STR;    END IF;  END LOOP;
  RETURN STR_SPLIT;END FN_SPLIT;