欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

请问一个oracle的自定义函数如何写。

更新时间: 2014-01-05 02:14:29 责任编辑: Author_N1

 

请教一个oracle的自定义函数怎么写。。。
表test中,有一个大字段data1,里面的数据是这个样子:
01,02,03,04     而01到04又是另外一个字段的代码值,通过select查询,把这些代码值翻译过来,这个函数怎么写呢?以前没有写过这样的,又不知道语法,求指教。。。
 
--参考方法--
SQL> select * from a2;

ID
------------------------------
01,02,03,04

SQL> select * from a3;

COL1       COL2
---------- ----------
03         cc
04         cc
01         aa
02         bb

SQL> select tid, col1, col2
  2    from a3,
  3   (select distinct regexp_substr(id, '[^,]+', 1, level) tid from a2
  4  connect by level <= length(id) - length(replace(id, ',', '')) + 1)
  5   where tid = col1;

TID        COL1       COL2
---------- ---------- ----------
03         03         cc
04         04         cc
01         01         aa
02         02         bb

--参考方法--

CREATE OR REPLACE FUNCTION split(p_str       IN VARCHAR2,
                                           p_delimiter IN VARCHAR2)
  RETURN tbl_split IS
  j         INT := 0;
  i         INT := 1;
  len       INT := 0;
  len1      INT := 0;
  str       VARCHAR2(4000);
  str_split tbl_split := tbl_split();
BEGIN
  IF p_delimiter is not null THEN
    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;
  ELSE
    len := LENGTH(p_str);
    j   := 1;
    WHILE (p_str is not null and j <= len ) LOOP
      str := substrb(p_str, j, 1);
      str_split.EXTEND;
      str_split(str_split.COUNT) := str;
      j := j + 1;
      /*
      IF j >= len THEN
        EXIT;
      END IF;
      */
    END LOOP;
  END IF;
  RETURN str_split;
END split;
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:14:29
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/7397/
本文WWW.DOC100.NET DOC100.NET版权所有。