<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
;