如何用PL/SQL生成ANSI编码的文本文件？

我太懂这个坑了——UTF-8文件导入Excel时韩文字符乱码，本质是Excel对无BOM的UTF-8识别不友好，而本地ANSI编码（韩语系统对应CP949/KS_C_5601-1987）能被Excel直接正确解析。

你的问题出在UTL_FILE.FOPEN的调用上：默认情况下，UTL_FILE会用数据库的字符集（一般是AL32UTF8）写入文件。要生成ANSI编码的文件，得调用带字符集参数的重载版本，明确指定目标编码。

修改后的完整代码 #

DECLARE
    CURSOR SQL_CUR IS SELECT DATA_S VAR_DATA FROM A_TABLE ;
    V_FILE VARCHAR2(100) := PARAM_A_NUM || '_' || PARAM_C_NUM || '.TXT';
    V_OUTPUT UTL_FILE.FILE_TYPE;
    V_RESULT VARCHAR2(32767);
BEGIN
    -- 核心修改：指定韩语ANSI编码，同时设置最大行宽避免长文本截断
    V_OUTPUT := UTL_FILE.FOPEN('DIRECTORY', V_FILE, 'w', 32767, 'KS_C_5601-1987');
    
    FOR V_CUR IN SQL_CUR LOOP
        V_RESULT := V_CUR.VAR_DATA;
        UTL_FILE.PUT_LINE(V_OUTPUT, V_RESULT);
    END LOOP;
    
    UTL_FILE.FCLOSE(V_OUTPUT);
EXCEPTION
    WHEN UTL_FILE.INVALID_PATH THEN DBMS_OUTPUT.PUT_LINE('INVALID PATH');
    WHEN UTL_FILE.INVALID_MODE THEN DBMS_OUTPUT.PUT_LINE('INVALID MODE');
    WHEN UTL_FILE.INVALID_OPERATION THEN DBMS_OUTPUT.PUT_LINE('INVALID OPERATION');
    WHEN UTL_FILE.INVALID_CHARSET THEN DBMS_OUTPUT.PUT_LINE('指定的字符集无效，请检查数据库是否支持');
    WHEN OTHERS THEN 
        DBMS_OUTPUT.PUT_LINE('错误详情：' || SQLERRM);
        -- 确保异常时文件被关闭
        IF UTL_FILE.IS_OPEN(V_OUTPUT) THEN
            UTL_FILE.FCLOSE(V_OUTPUT);
        END IF;
END;
/

关键细节说明 #

1. 字符集参数：KS_C_5601-1987是韩语系统的ANSI标准编码，也可以用别名EUC-KR，两者功能完全一致。
2. 最大行宽设置：第四个参数32767是UTL_FILE允许的最大行宽，避免长文本被自动截断（默认值1024很容易触发截断问题）。
3. 字符集兼容性验证：先确认你的Oracle数据库支持该字符集，执行以下SQL检查：

   SELECT VALUE FROM V$NLS_VALID_VALUES WHERE VALUE IN ('KS_C_5601-1987', 'EUC-KR');
   

   如果能返回结果，说明数据库支持该编码。

额外注意事项 #

如果你的数据库字符集不是AL32UTF8，要确保DATA_S列的内容能完整转换为KS_C_5601-1987编码——要是存在无法转换的特殊字符，UTL_FILE会抛出INVALID_CHARACTER异常，这时候需要提前过滤或处理这些字符。

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