Oracle存储过程实现文件的读取

假如文件内容包含三个字段，字段以竖线作为分隔符

• 使用正则表达式

CREATE OR REPLACE PROCEDURE read_file_regex AS  
  v_file  UTL_FILE.file_type;  
  v_data  VARCHAR2(4000);  
  v_field1 VARCHAR(100);  
  v_field2 VARCHAR(100);  
  v_field3 VARCHAR(100);  
BEGIN  
  -- 打开文件  
  v_file := UTL_FILE.fopen('DIRECTORY_NAME', 'example.txt', 'R'); -- 替换DIRECTORY_NAME为你的目录名  
  
  LOOP  
    -- 读取文件内容  
    UTL_FILE.get_line(v_file, v_data);  
    -- 使用正则表达式分割字段  
    BEGIN  
      v_field1 := REGEXP_SUBSTR(v_data, '([^|]+)', 1, 1, NULL, 1);  
      v_field2 := REGEXP_SUBSTR(v_data, '([^|]+)', 1, 1, NULL, 2);  
      v_field3 := REGEXP_SUBSTR(v_data, '([^|]+)', 1, 1, NULL, 3);  
      -- 输出字段内容  
      DBMS_OUTPUT.PUT_LINE('Field1: ' || v_field1);  
      DBMS_OUTPUT.PUT_LINE('Field2: ' || v_field2);  
      DBMS_OUTPUT.PUT_LINE('Field3: ' || v_field3);  
    EXCEPTION  
      WHEN OTHERS THEN  
        DBMS_OUTPUT.PUT_LINE('Error parsing line: ' || v_data);  
        EXIT; -- 退出循环，处理错误  
    END;  
  END LOOP;  
  
  -- 关闭文件  
  UTL_FILE.fclose(v_file);  
EXCEPTION  
  WHEN OTHERS THEN  
    IF UTL_FILE.is_open(v_file) THEN  
      UTL_FILE.fclose(v_file);  
    END IF;  
    RAISE;  
END read_file_regex;  
/

请注意，你需要将DIRECTORY_NAME替换为实际的目录名，并确保在执行存储过程之前具有适当的权限来读取文件。此存储过程将打开指定目录中的文件，逐行读取内容，并使用正则表达式函数REGEXP_SUBSTR来分割字段。分割后的字段将输出到控制台。如果遇到任何错误，将输出错误信息并退出循环。最后，关闭文件句柄。

• 不使用正则表达式

CREATE OR REPLACE PROCEDURE read_file_no_regex AS  
  v_file  UTL_FILE.file_type;  
  v_data  VARCHAR2(4000);  
  v_field1 VARCHAR(100);  
  v_field2 VARCHAR(100);  
  v_field3 VARCHAR(100);  
BEGIN  
  -- 打开文件  
  v_file := UTL_FILE.fopen('DIRECTORY_NAME', 'example.txt', 'R'); -- 替换DIRECTORY_NAME为你的目录名  
  
  LOOP  
    -- 读取文件内容  
    UTL_FILE.get_line(v_file, v_data);  
    -- 分割字段，不使用正则表达式  
    BEGIN  
      v_field1 := SUBSTR(v_data, 1, INSTR(v_data, '|') - 1);  
      v_field2 := SUBSTR(v_data, INSTR(v_data, '|') + 1, INSTR(v_data, '|', INSTR(v_data, '|') + 1) - INSTR(v_data, '|') - 1);  
      v_field3 := SUBSTR(v_data, INSTR(v_data, '|', INSTR(v_data, '|', INSTR(v_data, '|') + 1) + 1));  
      -- 输出字段内容  
      DBMS_OUTPUT.PUT_LINE('Field1: ' || v_field1);  
      DBMS_OUTPUT.PUT_LINE('Field2: ' || v_field2);  
      DBMS_OUTPUT.PUT_LINE('Field3: ' || v_field3);  
    EXCEPTION  
      WHEN OTHERS THEN  
        DBMS_OUTPUT.PUT_LINE('Error parsing line: ' || v_data);  
        EXIT; -- 退出循环，处理错误  
    END;  
  END LOOP;  
  
  -- 关闭文件  
  UTL_FILE.fclose(v_file);  
EXCEPTION  
  WHEN OTHERS THEN  
    IF UTL_FILE.is_open(v_file) THEN  
      UTL_FILE.fclose(v_file);  
    END IF;  
    RAISE;  
END read_file_no_regex;  
/

这个示例存储过程使用了字符串函数SUBSTR和INSTR来分割字段。首先，它使用INSTR函数找到竖线分隔符的位置，然后使用SUBSTR函数根据这些位置提取出每个字段的值。同样，你需要将DIRECTORY_NAME替换为实际的目录名，并确保在执行存储过程之前具有适当的权限来读取文件。