使用PLSQL处理多行文本后，如何移除末尾多余逗号？

问题描述 #

我正在编写PLSQL块，为多行文本的每行添加双引号和逗号（搭配换行符），但运行后输出的字符串末尾存在多余的逗号。尝试使用rtrim(v_full_text_quote, ',')移除，但并未生效，求解决方法。

原PLSQL代码：

DECLARE
v_fulltext varchar2(4000):= '                                                          Total   Total   Total Unbalanced Unbalanced       Flex    Nonflex
Journal Entry Source Name    Group ID           Status    Lines Batches Headers    Batches    Headers     Errors     Errors
---------------------------- ------------------ ------- ------- ------- ------- ---------- ---------- ---------- ----------
Manual                                    90005 Error        10       1       1          3          1          0          0
---------------------------- ------------------ ------- ------- ------- ------- ---------- ---------- ---------- ----------
       *** TOTALS ***                                         1       1       1          1          1          0          0';
v_full_text_2 varchar2(4000);
v_full_text_quote varchar2(40000);
counter number := 0;
BEGIN
FOR sumaryline IN(SELECT
            regexp_substr(v_fulltext, '[^(' 
                                || CHR(13) 
                                || CHR(10) 
                                || ')]+', 1, level) sumaryline
    FROM
        dual
    CONNECT BY
        regexp_substr(v_fulltext, '[^(' 
                                || CHR(13) 
                                || CHR(10) 
                                || ')]+', 1, level) IS NOT NULL)
LOOP
counter := counter +1;
v_full_text_quote := v_full_text_quote||'"'||sumaryline.sumaryline||'",'||chr(10);
END LOOP;
 dbms_output.put_line(v_full_text_quote);
END;

尝试过的无效代码：

v_full_text_quote := rtrim(v_full_text_quote, ',');

解决方案 #

问题核心：你拼接的字符串末尾是逗号+换行符，逗号位于换行符之前，而rtrim只会移除字符串最末尾的指定字符，所以单独指定,根本碰不到它。下面是三种可行的修复方式：

方式一：调整rtrim的字符范围 #

直接把换行符也加入rtrim的移除列表，一次性处理掉末尾的逗号和换行（或先清换行再清逗号）：

-- 方式1-1：同时移除末尾的逗号、换行、回车
v_full_text_quote := rtrim(v_full_text_quote, ', '||chr(10)||chr(13));
-- 方式1-2：分步处理
v_full_text_quote := rtrim(v_full_text_quote, chr(10)||chr(13)); -- 先清末尾换行/回车
v_full_text_quote := rtrim(v_full_text_quote, ','); -- 再清逗号

方式二：循环内控制逗号添加 #

通过计数器判断当前行是否为最后一行，只在非最后一行添加逗号，从根源避免多余逗号：
修改循环内的代码：

counter := counter +1;
-- 先拼接当前行的双引号内容
v_full_text_quote := v_full_text_quote||'"'||sumaryline.sumaryline||'"';
-- 统计总行数，判断是否为最后一行
IF counter < (SELECT COUNT(*) FROM dual CONNECT BY regexp_substr(v_fulltext, '[^('||CHR(13)||CHR(10)||')]+',1,level) IS NOT NULL) THEN
    v_full_text_quote := v_full_text_quote||','||chr(10); -- 非最后一行加逗号+换行
ELSE
    v_full_text_quote := v_full_text_quote||chr(10); -- 最后一行只加换行（按需取舍）
END IF;

方式三：正则表达式替换 #

用regexp_replace匹配末尾的逗号及后续空白字符（包括换行），直接替换为空：

v_full_text_quote := regexp_replace(v_full_text_quote, ',\s*$', '');

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