Oracle 存储过程，如何改进下面这个存储过程，Oracle是否有split函数

Question

本帖最后由 default7 于 2014-09-16 15:38:21 编辑

Answer 1

参考这个用法，正则表达式拆分字符串
select REGEXP_SUBSTR(str, '[^,]+', 1, LEVEL) STR
  from (select '1,2,3,4,5,6,7' str from dual)
CONNECT BY LEVEL <= REGEXP_COUNT(str, ',') + 1;
--REGEXP_COUNT 函数11g之后可用，之前版本这样写
select REGEXP_SUBSTR(str, '[^,]+', 1, LEVEL) STR
  from (select '1,2,3,4,5,6,7' str from dual)
CONNECT BY LEVEL <= length(str)-length(replace(str, ',','')) + 1;执行结果如下
STR
1
2
3
4
5
6
7

Answer 2

非常感谢，原来如此。
在Oracle里是如何拼接 SQL然后执行的啊 …… 

Answer 3

BEGIN
   IF NVL (vUserId, 0) = 0 OR NVL (vMessageId, 0) = 0 THEN
      oResInt := 0;
      oResStr := '传入参数不正确！';
   ELSE
      SELECT COUNT (1)
        INTO i
        FROM tb_message
       WHERE id = vMessageId;
      IF i = 0 THEN
         oResInt := 0;
         oResStr := '记录不存在';
      ELSE
        INSERT INTO tb_message_readlog (id,messageid,userid,readtime)
        SELECT id,messageid,userid,readtime
        FROM(select fn_gen_getid ('tb_readlog') ID,
                     REGEXP_SUBSTR(vMessageId, '[^,]+', 1, LEVEL) MessageId ,
                      vUserId USERID,
                      SYSDATE READTIME
                from dual
                CONNECT BY LEVEL <= length(vMessageId)-length(replace(vMessageId, ',','')) + 1) A
        WHERE EXISTS (SELECT 1
                FROM tb_message_readlog
                 WHERE messageid = A.MessageId AND userid = A.UserId);
         COMMIT;
         oResInt := 1;
         oResStr := '创建成功';
      END IF;
   END IF;
EXCEPTION
   WHEN OTHERS THEN
      -- Consider logging the error and then re-raise
 
      oResInt := 0;
      oResStr := '系统异常，请重试！';
      RAISE;
END PR_READLOG_ADD;

Answer 4

oracle没有自带split的。
自定义split，可以使用管道函数实现。你百度下就知道了。

Answer 5

自定义split函数；CREATE OR REPLACE TYPE split_type IS TABLE OF VARCHAR2 (100);
CREATE OR REPLACE FUNCTION split (
    p_str       IN VARCHAR2,
    p_delimiter IN VARCHAR2 default(',') --分隔符，默认逗号
)
    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;