如何在PL/SQL中更新VARCHAR变量指定索引的值及Oracle SQL大小写互换时修改指定字符

一、PL/SQL中更新VARCHAR变量指定索引的字符 #

Oracle的VARCHAR/VARCHAR2属于不可变字符串，无法直接通过索引修改单个字符，必须通过字符串拼接实现：用SUBSTR()截取目标位置前后的子串，再与新字符拼接后重新赋值给变量。

语法示例：

v_str := SUBSTR(v_str, 1, i-1) || new_char || SUBSTR(v_str, i+1);

• SUBSTR(v_str, 1, i-1)：截取字符串开头到第i-1位的子串
• new_char：要替换的新字符
• SUBSTR(v_str, i+1)：截取字符串第i+1位到结尾的子串

注意：Oracle字符串索引从1开始，和部分编程语言的0起始逻辑不同。

二、实现指定索引字符的大小写互换 #

结合上述方法，可编写专门的过程处理指定位置的字符大小写互换：

完整过程代码 #

CREATE OR REPLACE PROCEDURE swap_case_at_index(
    p_input_str IN OUT VARCHAR2,
    p_index IN PLS_INTEGER
) AS
    v_target_char CHAR(1);
BEGIN
    -- 校验索引合法性
    IF p_index < 1 OR p_index > LENGTH(p_input_str) THEN
        RAISE_APPLICATION_ERROR(-20001, '索引超出字符串有效范围');
    END IF;

    -- 获取目标位置的字符
    v_target_char := SUBSTR(p_input_str, p_index, 1);

    -- 判断字符大小写并转换
    IF v_target_char BETWEEN 'A' AND 'Z' THEN
        v_target_char := LOWER(v_target_char);
    ELSIF v_target_char BETWEEN 'a' AND 'z' THEN
        v_target_char := UPPER(v_target_char);
    END IF;

    -- 更新指定位置的字符
    p_input_str := SUBSTR(p_input_str, 1, p_index-1) || v_target_char || SUBSTR(p_input_str, p_index+1);
END;
/

测试示例 #

DECLARE
    v_test_str VARCHAR2(50) := 'OracleSQLProgram';
BEGIN
    DBMS_OUTPUT.PUT_LINE('原字符串: ' || v_test_str);
    swap_case_at_index(v_test_str, 3); -- 将第3位的'a'转为'A'
    DBMS_OUTPUT.PUT_LINE('第一次更新后: ' || v_test_str);
    swap_case_at_index(v_test_str, 8); -- 将第8位的'Q'转为'q'
    DBMS_OUTPUT.PUT_LINE('第二次更新后: ' || v_test_str);
END;
/

测试输出 #

原字符串: OracleSQLProgram
第一次更新后: OrAcleSQLProgram
第二次更新后: OrAcleSqLProgram

关键注意事项 #

• 必须先校验索引合法性，避免因索引超出字符串长度导致SUBSTR函数报错
• 非字母字符（数字、符号等）不会被转换，过程中直接保留原字符
• 若需对整个字符串做大小写互换，直接使用UPPER()或LOWER()函数即可，无需逐位处理

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