能否通过PL/SQL将Oracle数据库服务器中的TXT文件传输至本地？

当然可以实现！不过得说明一下：PL/SQL是运行在Oracle服务器端的代码，没办法直接把文件“推”到你的本地机器，得借助一些中间方式或者配合客户端工具来完成。下面给你几个常用的靠谱方案：

这是比较直接的方式，适合有服务器权限的场景：

• 先在Oracle服务器上创建一个共享目录（Windows用共享文件夹、Linux用NFS共享都行），确保你的本地机器能访问这个共享。
• 在Oracle中创建对应的DIRECTORY对象，给操作的用户授权：

  -- Linux路径示例
  CREATE OR REPLACE DIRECTORY SHARED_DIR AS '/opt/oracle/shared_files';
  -- Windows路径示例
  -- CREATE OR REPLACE DIRECTORY SHARED_DIR AS 'C:\OracleShared';
  GRANT READ, WRITE ON DIRECTORY SHARED_DIR TO your_username;
  

• 用PL/SQL的UTL_FILE包读取服务器上的源TXT文件，写入到共享目录：

  DECLARE
    v_source_file UTL_FILE.FILE_TYPE;
    v_target_file UTL_FILE.FILE_TYPE;
    v_line VARCHAR2(32767);
  BEGIN
    -- 打开服务器上的源文件（ORIGINAL_DIR是源文件所在的DIRECTORY对象）
    v_source_file := UTL_FILE.FOPEN('ORIGINAL_DIR', 'source_file.txt', 'R');
    -- 打开共享目录的目标文件
    v_target_file := UTL_FILE.FOPEN('SHARED_DIR', 'local_copy.txt', 'W');
    
    -- 逐行读取并写入
    LOOP
      BEGIN
        UTL_FILE.GET_LINE(v_source_file, v_line);
        UTL_FILE.PUT_LINE(v_target_file, v_line);
      EXCEPTION
        WHEN NO_DATA_FOUND THEN EXIT; -- 读取完成退出循环
      END;
    END LOOP;
    
    -- 关闭文件
    UTL_FILE.FCLOSE(v_source_file);
    UTL_FILE.FCLOSE(v_target_file);
  END;
  /
  

• 完成后，你直接从本地访问这个共享目录，就能拿到文件了。

如果没法创建共享目录，这个方法更灵活：

• 先写PL/SQL块读取文件内容，通过DBMS_OUTPUT输出每一行：

  SET SERVEROUTPUT ON SIZE 1000000 -- 放大输出缓冲区，避免截断
  DECLARE
    v_file UTL_FILE.FILE_TYPE;
    v_line VARCHAR2(32767);
  BEGIN
    v_file := UTL_FILE.FOPEN('ORIGINAL_DIR', 'source_file.txt', 'R');
    LOOP
      BEGIN
        UTL_FILE.GET_LINE(v_file, v_line);
        DBMS_OUTPUT.PUT_LINE(v_line);
      EXCEPTION
        WHEN NO_DATA_FOUND THEN EXIT;
      END;
    END LOOP;
    UTL_FILE.FCLOSE(v_file);
  END;
  /
  

• 如果用SQL*Plus，用SPOOL命令把输出保存到本地：

  SPOOL C:\YourLocalFolder\output.txt
  -- 执行上面的PL/SQL块
  SPOOL OFF
  

• 如果用PL/SQL Developer、Navicat这类可视化工具，执行后右键结果区域，选择“导出”就能直接保存成本地TXT文件。

如果文件比较大（比如超过DBMS_OUTPUT的缓冲区限制），可以把内容读到CLOB里再导出：

CREATE OR REPLACE FUNCTION GET_FILE_CONTENT RETURN CLOB IS
  v_file UTL_FILE.FILE_TYPE;
  v_clob CLOB;
  v_line VARCHAR2(32767);
BEGIN
  -- 创建临时CLOB
  DBMS_LOB.CREATETEMPORARY(v_clob, TRUE);
  v_file := UTL_FILE.FOPEN('ORIGINAL_DIR', 'source_file.txt', 'R');
  
  LOOP
    BEGIN
      UTL_FILE.GET_LINE(v_file, v_line);
      -- 追加内容到CLOB，加上换行符
      DBMS_LOB.WRITEAPPEND(v_clob, LENGTH(v_line), v_line);
      DBMS_LOB.WRITEAPPEND(v_clob, 2, CHR(13)||CHR(10));
    EXCEPTION
      WHEN NO_DATA_FOUND THEN EXIT;
    END;
  END LOOP;
  
  UTL_FILE.FCLOSE(v_file);
  RETURN v_clob;
END;
/

执行查询获取CLOB内容，再用客户端工具导出：

SELECT GET_FILE_CONTENT() FROM DUAL;

在可视化工具里找到CLOB结果，右键选择“导出”即可保存为本地TXT。

注意事项 #

• 确保你的Oracle用户有EXECUTE权限使用UTL_FILE包，同时拥有对应DIRECTORY对象的READ权限。
• Linux服务器上要注意目录的操作系统权限，Oracle进程的用户（通常是oracle）需要能读写源文件和共享目录。
• 大文件优先用共享目录或CLOB方案，避免DBMS_OUTPUT的长度限制导致内容截断。

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