SQL Script for read information from a csv file in FTP Server

Posted zhchoutai

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了SQL Script for read information from a csv file in FTP Server相关的知识,希望对你有一定的参考价值。

DECLARE
  w_file_path   VARCHAR2(4000) := ‘XXIF_INPUT‘; --all_directories.directory_name
  w_file_name   VARCHAR2(4000) := ‘lcytest001.csv‘; --The file name
  w_file_exists BOOLEAN;
  w_file_length NUMBER(10) DEFAULT 0;
  w_file_type   utl_file.file_type;
  w_line        VARCHAR2(4000) DEFAULT NULL;
  w_rec_count   NUMBER := 1;
  w_block_size  BINARY_INTEGER;
  --
  TYPE tbl_varchar2 IS TABLE OF VARCHAR2(4000) INDEX BY BINARY_INTEGER;
  rec_record tbl_varchar2;
BEGIN
  --
  fnd_global.apps_initialize(user_id      => 1110,
                             resp_id      => 50683,
                             resp_appl_id => 222);
  --
  utl_file.fgetattr(w_file_path,
                    w_file_name,
                    w_file_exists,
                    w_file_length,
                    w_block_size);
  IF NOT w_file_exists THEN
    dbms_output.put_line(‘The File is not exist!‘);
  END IF;
  --
  IF w_file_length = 0 THEN
    dbms_output.put_line(‘The File is empty!‘);
  END IF;
  --
  w_file_type := utl_file.fopen(location     => w_file_path,
                                filename     => w_file_name,
                                open_mode    => ‘r‘,
                                max_linesize => 32767);
  LOOP
    utl_file.get_line(w_file_type, w_line, 32767);
    dbms_output.put_line(‘Information is :‘ || w_line);
    rec_record(w_rec_count) := w_line;
    w_rec_count := w_rec_count + 1;
  END LOOP;
EXCEPTION
  WHEN no_data_found THEN
    utl_file.fclose(w_file_type);
END;


以上是关于SQL Script for read information from a csv file in FTP Server的主要内容,如果未能解决你的问题,请参考以下文章

for...infor...of和forEach

for...infor...offorEach()有什么区别

JavaScript中forfor...infor...offorEach的区别和用法

比较forfor..infor...offorEach

for infor和EnumerateObjectsUsingBlock遍历的区别

JavaScript中三种for循环语句的使用总结(forfor...infor...of)