如何编写带排序参数的PL/SQL函数实现字符串字符排序？

原代码存在两个核心问题：

• 未接收排序顺序参数，无法实现升/降序切换
• ORDER BY 1 的逻辑不符合需求，它实际是按聚合列的位置排序，而非字符本身的顺序

以下是满足需求的修正版本：

CREATE OR REPLACE FUNCTION order_string(
    my_string IN VARCHAR2,
    sort_order IN VARCHAR2 DEFAULT 'Asc'
) RETURN VARCHAR2 IS
    ret_string VARCHAR2(4000);
BEGIN
    -- 校验排序参数合法性，仅允许'Asc'或'Desc'（不区分大小写）
    IF UPPER(sort_order) NOT IN ('ASC', 'DESC') THEN
        RAISE_APPLICATION_ERROR(-20001, '排序参数仅支持"Asc"或"Desc"');
    END IF;

    SELECT LISTAGG(char_val, '') WITHIN GROUP (
        ORDER BY char_val CASE WHEN UPPER(sort_order) = 'DESC' THEN DESC ELSE ASC END
    ) INTO ret_string
    FROM (
        SELECT REGEXP_SUBSTR(my_string, '\w', 1, LEVEL) AS char_val
        FROM dual
        CONNECT BY REGEXP_SUBSTR(my_string, '\w', 1, LEVEL) IS NOT NULL
    );

    RETURN ret_string;
END;
/

关键修改说明 #

• 新增sort_order参数，默认值设为'Asc'，兼容不传排序参数的场景
• 增加参数合法性校验，避免非法输入导致逻辑异常
• 内层查询先将输入字符串拆分为单个字符，外层通过LISTAGG聚合时，根据sort_order动态指定排序方向
• 使用UPPER()统一参数大小写，保证输入的大小写不影响逻辑

测试示例 #

-- 升序排序测试
SELECT order_string('dgtak', 'Asc') AS result FROM dual;
-- 输出结果: adgkt

-- 降序排序测试
SELECT order_string('dgtak', 'Desc') AS result FROM dual;
-- 输出结果: tkgda

-- 使用默认升序排序
SELECT order_string('dgtak') AS result FROM dual;
-- 输出结果: adgkt

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