5            *****   使用函数  日期的一种表达  TRAILING NULLCOLS的使用
   LOAD DATA
   INFILE *
   INTO TABLE DEPT
   REPLACE
   FIELDS TERMINATED BY '''',''''
   TRAILING NULLCOLS   //  其实下面的ENTIRE_LINE在BEGINDATA后面的数据中是没有直接对应
//  的列的值的 如果第一行改为 10,Sales,Virginia,1/5/2000,, 就不用TRAILING NULLCOLS了
   (DEPTNO,
    DNAME        "upper(:dname)",    // 使用函数
    LOC          "upper(:loc)",
    LAST_UPDATED date ''''dd/mm/yyyy'''',  // 日期的一种表达方式 还有''''dd-mon-yyyy'''' 等
    ENTIRE_LINE  ":deptno||:dname||:loc||:last_updated"
   )
   BEGINDATA
   10,Sales,Virginia,1/5/2000
   20,Accounting,Virginia,21/6/1999
   30,Consulting,Virginia,5/1/2000
   40,Finance,Virginia,15/3/2001

6            *****   使用自定义的函数         // 解决的时间问题
                     使用函数这仅适合于常规导入，并不适合 direct导入方式 9i可能可以
    create or replace
    function my_to_date( p_string in varchar2 ) return date
    as
    type fmtArray is table of varchar2(25);

    l_fmts  fmtArray := fmtArray( ''''dd-mon-yyyy'''', ''''dd-month-yyyy'''',
                                  ''''dd/mm/yyyy'''',
                                  ''''dd/mm/yyyy hh24:mi:ss'''' );
    l_return date;
    begin
    for i in 1 .. l_fmts.count
    loop
        begin
            l_return := to_date( p_string, l_fmts(i) );
        exception   
            when others then null;
        end;
        EXIT when l_return is not null;
    end loop;

    if ( l_return is null )
    then
        l_return :=
           new_time( to_date(''''01011970'''',''''ddmmyyyy'''') + 1/24/60/60 * 
                     p_string, ''''GMT'''', ''''EST'''' );
    end if;

    return l_return;
    end;
    /
   
    LOAD DATA
    INFILE *
    INTO TABLE DEPT
    REPLACE
    FIELDS TERMINATED BY '''',''''
    TRAILING NULLCOLS
    (DEPTNO,
     DNAME        "upper(:dname)",
     LOC          "upper(:loc)",
     LAST_UPDATED "my_to_date( :last_updated )"     // 使用自定义的函数
    )
    BEGINDATA
    10,Sales,Virginia,01-april-2001
    20,Accounting,Virginia,13/04/2001
    30,Consulting,Virginia,14/04/2001 12:02:02
    40,Finance,Virginia,987268297
    50,Finance,Virginia,02-apr-2001
    60,Finance,Virginia,Not a date

7            *****   合并多行记录为一行记录
   LOAD DATA
   INFILE *
   concatenate 3   // 通过关键字concatenate 把几行的记录看成一行记录
   INTO TABLE DEPT
   replace
   FIELDS TERMINATED BY '''',''''
   (DEPTNO,
    DNAME        "upper(:dname)",  
    LOC          "upper(:loc)",
    LAST_UPDATED date ''''dd/mm/yyyy''''
   )
   BEGINDATA
   10,Sales,      // 其实这3行看成一行  10,Sales,Virginia,1/5/2000
   Virginia,
   1/5/2000
// 这列子用 continueif list="," 也可以
                       告诉sqlldr在每行的末尾找逗号 找到逗号就把下一行附加到上一行
        
   LOAD DATA
   INFILE *
   continueif this(1:1) = ''''-''''  // 找每行的开始是否有连接字符 -  有就把下一行连接为一行
// 如   -10,Sales,Virginia,
//      1/5/2000             就是一行    10,Sales,Virginia,1/5/2000
// 其中1:1 表示从第一行开始 并在第一行结束    还有continueif next 但continueif list最理想
   INTO TABLE DEPT
   replace
   FIELDS TERMINATED BY '''',''''
   (DEPTNO,
    DNAME        "upper(:dname)",  
    LOC          "upper(:loc)",
    LAST_UPDATED date ''''dd/mm/yyyy''''
   )
   BEGINDATA                        // 但是好象不能象右面的那样使用
   -10,Sales,Virginia,                        -10,Sales,Virginia,
   1/5/2000                                   1/5/2000
   -40,                                       40,Finance,Virginia,13/04/2001
   Finance,Virginia,13/04/2001
  
   ================================ 用别的语言帮助解决的方法
      txt文件中的每2行作为一个记录插入到数据库中的一条记录,文件是定长的
                 1  2  3  4  5
                 6  7
                 插入数据记录是
                 1 2 3 4 5 6 7
                 -------------
                可以把换行符作为一个分隔符来处理

                -------------
                1、到www.activeperl.com去下载一个activeperl5.6 MSI
                2、安装 PERL

                3、你的文本文件示例：test.old
                1 2 3 4 5
                6 7
                a b c d e
                f g

                4、我的PERL程序：test.pl
                $mycount=2;
                open(FILE_OLD","TEST.OLD");
                open(FILE_NEW",">TEST.NEW");
                while(<FILE_OLD>)
  

上一页  [1] [2] [3] [4] [5]  下一页