Developer/2000中，可以用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;

     FORM中如何存取图象？如何把图象从一个表中导到另一个表中？
    1、SQL*Plus中
SQL> create table t_photo1(photo1 long raw);
SQL> create table t_photo2(photo2 long raw);
    2、硬盘上c:\下有一个图象文件tmp.bmp
    3、打开FORM. 新建两个块：t_photo1、t_photo2
t_photo1块是数据库块，连接的表是数据库中的一个表t_photo1
t_photo2块也是数据库块，连接的表是数据库中的另一个表t_photo2（备份表）
t_photo1块上新建一个图象项，名为photo1，对应的是即表t_photo1中的photo1列
t_photo2块上也新建一个图象项，名为photo2，对应的是即表t_photo2中的photo2列
     新建一按钮1，输入以下程序，这个按钮实现读入图象到表里，即录入图象到表里
BEGIN
GO_BLOCK('t_photo1');--到块1
READ_IMAGE_FILE('c:\tmp.bmp','bmp','t_photo1.photo1');
--读入外部图象文件tmp.bmp（图象类型为BMP）到t_photo1块的photo1项，也就是到了t_photo1表里
COMMIT;--存盘
END;
新建一按钮2，输入以下程序，这个按钮实现图象的倒表（t_photo1到t_photo2）
BEGIN
GO_BLOCK('t_photo1');--到块1
execute_query;
--查询出表中的图象，这时，表中的图象到了FORM中的图象项上
WRITE_IMAGE_FILE('c:\tmp.bmp','bmp','t_photo1.photo1');
--把图象项中图象写入外部图象文件tmp.bmp
GO_BLOCK('t_photo2');--到块2
READ_IMAGE_FILE('c:\tmp.bmp','bmp','t_photo2.photo2');
--把外部图象文件tmp.bmp读入到t_photo2块的photo2项，也就是到了t_photo2表里
COMMIT;--存盘
END;

运行此程序，点击此按钮观察效果。

注释：t_photo1.photo1是正式图片表中的图象项（数据库项）（t_photo1块photo项1）
t_photo2.photo2是备份图片表中的图象项（数据库项）（t_photo2块photo项2

ITPub博客

Text_IO 使用方法

最新文章