如何将冒号分隔的变量值加载到dbms_sql.varchar2_table中？

以下是几种可行的实现方式，根据你的Oracle版本和需求选择：

方法1：正则表达式+批量收集（推荐，代码简洁） #

利用Oracle的正则表达式函数结合bulk collect，直接将拆分后的结果存入dbms_sql.varchar2_table：

Declare
    l_addr_list     varchar2(1024);
    l_addresses     dbms_sql.varchar2_table;
Begin
    l_addr_list := '12:14:16:25:52';
    
    -- 拆分冒号分隔字符串并批量收集到数组
    select regexp_substr(l_addr_list, '[^:]+', 1, level)
    bulk collect into l_addresses
    from dual
    connect by regexp_substr(l_addr_list, '[^:]+', 1, level) is not null;

    For i IN l_addresses.FIRST .. l_addresses.LAST
    loop
        dbms_output.put_line('The current value is ' || l_addresses(i) );
    end loop;
End;
/

原理：通过connect by生成对应数量的行，每次用regexp_substr提取第level个分隔后的子串，直到提取结果为空时停止，最后通过bulk collect一次性将所有结果存入数组。

方法2：手动循环拆分（兼容低版本，可控性强） #

如果需要更精细的拆分逻辑，或者Oracle版本不支持正则表达式，可以用instr和substr手动循环处理：

Declare
    l_addr_list     varchar2(1024);
    l_addresses     dbms_sql.varchar2_table;
    l_start_pos     pls_integer := 1;
    l_delimiter_pos pls_integer;
Begin
    l_addr_list := '12:14:16:25:52';
    
    -- 循环拆分字符串
    loop
        l_delimiter_pos := instr(l_addr_list, ':', l_start_pos);
        if l_delimiter_pos = 0 then
            -- 处理最后一段无冒号的内容
            l_addresses.extend;
            l_addresses(l_addresses.last) := substr(l_addr_list, l_start_pos);
            exit;
        else
            -- 截取当前冒号前的内容
            l_addresses.extend;
            l_addresses(l_addresses.last) := substr(l_addr_list, l_start_pos, l_delimiter_pos - l_start_pos);
            l_start_pos := l_delimiter_pos + 1;
        end if;
    end loop;

    For i IN l_addresses.FIRST .. l_addresses.LAST
    loop
        dbms_output.put_line('The current value is ' || l_addresses(i) );
    end loop;
End;
/

原理：通过instr定位冒号的位置，substr截取对应区间的子串，每次调用extend扩展数组容量并添加元素，直到找不到下一个冒号时处理剩余内容并退出循环。

方法3：APEX_STRING.SPLIT（环境支持APEX时使用） #

如果你的数据库环境安装了Oracle APEX，可以用apex_string.split快速拆分，该函数直接返回字符串数组，可直接赋值给dbms_sql.varchar2_table：

Declare
    l_addr_list     varchar2(1024);
    l_addresses     dbms_sql.varchar2_table;
Begin
    l_addr_list := '12:14:16:25:52';
    
    -- 直接拆分字符串到数组
    l_addresses := apex_string.split(l_addr_list, ':');

    For i IN l_addresses.FIRST .. l_addresses.LAST
    loop
        dbms_output.put_line('The current value is ' || l_addresses(i) );
    end loop;
End;
/

内容的提问来源于stack exchange，提问作者user3138025