Reading Csv Files with Text_io in Oracle D2k Forms

时间：2016-12-25 21:06:26 阅读：192 评论：0 收藏：0 [点我收藏+]

标签：port height target var https blank vertica src lock

Below is the example to read and import comma delimited csv file in oracle forms with D2k_Delimited_String package. This package is available in D2kdlstr.pll library.

To download D2kdlstr.Pll Click Here

Create the following procedure in program unit of Oracle forms.

Procedure Import_csv_file (I_FILENAME IN VARCHAR2) Is
   -- Text File Type
   Infile        Text_Io.File_Type;
   Linebuf       Varchar2 (4000);
   V_Getstring   Varchar2 (100);

   -- Field Values Array
   Type Fieldvalue Is Table Of Varchar2(100)
      Index By Binary_Integer;

   Fv            Fieldvalue;
   Rec_Count Number := 0;
Begin
   Infile := Text_Io.Fopen (I_FILENAME, ‘R‘);
   -- Read File

   Loop
           ---
           Rec_Count := Rec_Count + 1;
      Text_Io.Get_Line (Infile, Linebuf);
      Linebuf := Linebuf || ‘,‘;
         -- read from 1 to number of occurrences of comma or any other delimiter
         -- below giving example for 3 occurrences
         For I In 1 .. 3
         Loop
            Fv (I) := D2k_Delimited_String.Getstring (Linebuf, I, False, ‘,‘);
         End Loop;

         Begin
               ---
            Insert Into yourtable (col1, col2, col3)
                                    Values ( Fv(1), Fv(2), Fv(3));

         Exception
            When Others
            Then
               Message (Sqlerrm);
         End;
   End Loop;

   Text_Io.Fclose (Infile);
Exception
   When No_Data_Found Then

   -- End Of The Text File Reached.... Then Save...
       commit_form;
-- Message(Sqlerrm);
      Text_Io.Fclose (Infile);
      Message (‘Import Completed.‘);
   When Others Then
      Text_Io.Fclose (Infile);
      message(sqlerrm);
End;

See also:

http://www.foxinfotech.in/2014/02/writing-text-file-from-tabular-block-oracle-forms.html

Reading CSV Files in Oracle Forms

Reviewed by Marian Burn on

Feb 25

Rating:
5

Reading Csv Files with Text_io in Oracle D2k Forms

标签：port height target var https blank vertica src lock

原文地址：http://www.cnblogs.com/quanweiru/p/6220342.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行