目录搜索
文字
分享

【加入收藏】 【访客留言】 【聊天室】 【技术站点导航】 【技术论坛(BBS)】
位置:首页→Developer/2000→FORM技巧→

阿木伯 著
在Developer/2000中如何读写文本型操作系统文件?

  • 软件环境:
      1、服务器端:Windows NT4.0+ORACLE 8.0.4,ORACLE安装路径为:C:\ORANT
      2、客户端:Windows 98、Developer/2000客户端安装(版本2.1)
  • 实现方法:

      1

      2

      3

      4

      5

      6

      7

      8

      9

      10

      11

      12

      13

      14

      15

      16

      17

      18

      19

      20

      21

      22

      23

      24

      25

      26

      27

      28

      29

      30

      31

      32

      33

      34

      35

      36

      37

      38

      39

      40

      41

      42

      43

      44

      45

      46

      47

      48

      49

      50

      51

      52

      53

      54

      55

      56

      57

      58

      59

      60

      61

      62

      63

      64

          <b>PL/SQL 3.3</b>以上的版本中,UTL_FILE包允许用户通过PL/SQL读写操作系统文件。如下:

          declare

              file_handle utl_file.file_type;

          begin

              file_handle:=utl_file.fopen('C:\','TEST.TXT','A');  --TEST.TXT是文件名

              utl_file.put_line(file_handle,'写入的信息');

              utl_file.fclose(file_handle);

          END;

       

          <b>Developer/2000</b>中,可以用Text_IO读写操作系统文件。如下:

       

          DECALRE

              in_file     Text_IO.File_Type;

              out_file    Text_IO.File_Type;

          BEGIN

              in_file:=Text_IO.Fopen('文件名', 'R');

              Text_IO.Get_Line(in_file,linebuf);

              Text_IO.Fclose(in_file);

       

              out_file:=Text_IO.Fopen('文件名', 'W');

              Text_IO.Put_Line(out_file,'写入信息');

              Text_IO.Fclose(out_file);

          END;

       

      --常用TEXT_IO

      Declare

        out_file  text_io.file_type;      --定义

      Begin

        out_file:=text_io.fopen('prn','w');   --打开文件prn

        text_io.new_line(out_file,' ');   --新建一行

        text_io.put_line(out_file,' ')    --写入一行

        text_io.fclose(out_file);     --关闭文件

      End;

       

      ---文本输入输出

         TEXT_IO

         TEXT_IO.PACKAGE

         TEXT_IO.FCLOSE

         TEXT_IO.FILE_TYPE

         TEXT_IO.FOPEN

         TEXT_IO.IS_OPEN

         TEXT_IO.GET_LINE

         TEXT_IO.NEW_LINE

         TEXT_IO.PUT

         TEXT_IO.PUTF

         TEXT_IO.PUT_LINE

       

      ----------------------------

       

      Declare

           Out_file     Text_io.file_type;

           L            Varchar2(100);

           L1           Varchar2(100);

           L2           Varchar2(100);

      Begin

          Out_file :=text_io.fopen('c:\ll\login.txt','r');

          If text_io.is_open(Out_file) then

          text_io.get_line(Out_file,L);

          text_io.get_line(Out_file,L1);

          text_io.get_line(Out_file,L2);

          Else

              Null;

          End if;

      End;

    【最后更新: