字符串拆分

因某个需求,写了一个字符串拆分,可适配多种分隔符

用法如下:

select * from table(GET_MED_OVAL_FILE_INFO('123----1----a1####345----11----a2',null,null));
select * from table(GET_MED_OVAL_FILE_INFO('123-1-a1#345-11-a2','#','-'));

代码内容如下:

FUNCTION GET_MED_OVAL_FILE_INFO
  /*******************************************************************************
     Object Name : get_med_oval_file_info
     Writer      : wangzhengshun
     Write Date  : 2018/11/2
     Usage       : 解析附件信息
    *******************************************************************************/
  (IN_FILE_INFO       IN VARCHAR2,
   IN_REGXP_SPLIT_ROW IN VARCHAR2,
   IN_REGXP_SPLIT_COL IN VARCHAR2) RETURN TYT_MED_OVAL_FILE_INFO
    PIPELINED IS
    LV_FILE_ID   VARCHAR2(40);
    LV_CMS_ID    VARCHAR2(40);
    LV_FILE_SEQ  VARCHAR2(10);
    LV_FILE_DESC VARCHAR2(200);
    LV_FILE_INFO VARCHAR2(4000);
    T_FILE_INFO  VARCHAR2(4000);

    CNT    NUMBER;
    T_CNT  NUMBER;
    LV_CNT NUMBER;

    REGXP_SPLIT_COL VARCHAR2(10);
    REGXP_SPLIT_ROW VARCHAR2(10);

  BEGIN

    --行分隔符
    IF IN_REGXP_SPLIT_ROW IS NULL THEN
      REGXP_SPLIT_ROW := '####';
    ELSE
      REGXP_SPLIT_ROW := IN_REGXP_SPLIT_ROW;
    END IF;
    --列分隔符
    IF IN_REGXP_SPLIT_COL IS NULL THEN
      REGXP_SPLIT_COL := '----';
    ELSE
      REGXP_SPLIT_COL := IN_REGXP_SPLIT_COL;
    END IF;

    T_FILE_INFO := IN_FILE_INFO || REGXP_SPLIT_ROW;
    CNT         := REGEXP_COUNT(T_FILE_INFO, REGXP_SPLIT_ROW);

    T_CNT := 0;

    FOR X IN 1 .. CNT LOOP

      LV_CNT := REGEXP_INSTR(T_FILE_INFO, REGXP_SPLIT_ROW, 1, X) +
                LENGTH(REGXP_SPLIT_ROW) - 1;

      LV_FILE_INFO := SUBSTR(T_FILE_INFO,
                             T_CNT + 1,
                             LV_CNT - T_CNT - LENGTH(REGXP_SPLIT_ROW));

      LV_FILE_ID  := SUBSTR(LV_FILE_INFO,
                            1,
                            REGEXP_INSTR(LV_FILE_INFO, REGXP_SPLIT_COL, 1, 1) - 1);
      LV_FILE_SEQ := SUBSTR(LV_FILE_INFO,
                            REGEXP_INSTR(LV_FILE_INFO, REGXP_SPLIT_COL, 1, 1) +
                            LENGTH(REGXP_SPLIT_ROW),
                            REGEXP_INSTR(LV_FILE_INFO, REGXP_SPLIT_COL, 1, 2) -
                            REGEXP_INSTR(LV_FILE_INFO, REGXP_SPLIT_COL, 1, 1) -
                            LENGTH(REGXP_SPLIT_ROW));

      LV_FILE_DESC := SUBSTR(LV_FILE_INFO,
                             REGEXP_INSTR(LV_FILE_INFO,
                                          REGXP_SPLIT_COL,
                                          1,
                                          2) + LENGTH(REGXP_SPLIT_ROW));

      LV_CMS_ID := LV_FILE_ID;

      PIPE ROW(TYR_MED_OVAL_FILE_INFO(LV_FILE_ID,
                                      LV_FILE_SEQ,
                                      LV_FILE_DESC));

      T_CNT := REGEXP_INSTR(IN_FILE_INFO, REGXP_SPLIT_ROW, 1, X) +
               LENGTH(REGXP_SPLIT_ROW) - 1;

    END LOOP;

  END GET_MED_OVAL_FILE_INFO;
继续阅读
shunzi
  • 本文由 发表于 2018-12-1312:00:43
  • 除非特殊声明,本站文章均为原创,转载请务必保留本文链接
Oracle中文转换成拼音首字母 BLOG

Oracle中文转换成拼音首字母

姓名转换成拼音首字母 今天使用帆软BI系统同步用户,遇到一个巨麻烦的问题,前期系统方法权限,用同步用户的方式,不能编辑用户信息,手动添加用户吧,又会把同步功能去掉了,这俩只能二选一! 最后没事想从数据...
Oracle Spool数据 BLOG

Oracle Spool数据

昨天有个需求,让我导出数据到txt文本,数据有150w 数据库是oracle,试了下spool方式导出非常快: Oracle Spool常用设置 命令 描述 set arraysize 1000; 此...
Oracle正则表达式 BLOG

Oracle正则表达式

正则表达式简介 正则表达式,又称规则表达式。(英语:Regular Expression,在代码中常简写为regex、regexp或RE),计算机科学的一个概念。正则表通常被用来检索、替换那些符合某个...
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: