类似于split的作用将字符串, 分隔开成字符数组

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

罗技键盘对码软件蓝牙热敏打印机app 32位软件能装在64位系统上吗坐标系转换公式手机ip攻击软件安卓版攻击ip软件 word自定义快速访问工具栏 word工具栏加载自定义工具 word保存成图片格式 word文档怎么保存成图片格式如何把word文档导入iphone5s word页码改一个数字 excel复制后格式变了要求:请将我的文档中的3个word文 indesign

专题更多>>

最新文章更多>>

为什么忘不了那个她

类似于split的作用将字符串, 分隔开成字符数组

 procedure comma_to_arr(list   in varchar2,
                         arr    out col_head_arr,
                         lenarr out integer) is
    type col_head_arr is table of varchar2(50) index by binary_integer;
    l_arr       col_head_arr;--字符数组
    i           integer;--
    str_start   integer;
    arr_counter integer;
  begin
    -- first check if it is null
    --如果为空 就直接返回空的数组 ，标记长度为0
    if length(list) = 0 then
      arr    := l_arr;
      lenarr := 0;
      return;
    end if;
  
    i           := 1;
    str_start   := 1;
    arr_counter := 0;
    --循环条件 字符扫描位置小于字符长度+1
    while i <= length(list) + 1 loop
      --如果字符长度大于 字符长度 或者是 字符串的第i位是i
      if i > length(list) or substr(list, i, 1) = ',' then
        --要数组长度递增
        arr_counter := arr_counter + 1;
        --将 浮标位置开始 以及到 ,之间的 字符保存
        l_arr(arr_counter) := substr(list, str_start, i - str_start);
        --将浮标 设定为,后的下一个字符 
        str_start := i + 1;
      end if;
      --移动 字符扫描位置
      i := i + 1;
    end loop;
    arr    := l_arr;
    lenarr := arr_counter;
  end;