oracle 文件操作封装

1. create or replace package YLFileop_pack is
3.   -- Author  : YANLEI
4.   -- Created : 2008-12-24 16:08:02
5.   -- Purpose : 文件操作包
6.   YL_DIR CONSTANT varchar2(32) := 'YL_DIR'; --财务表收费FormID
7.   --从后面查找
8.   function lastindex(str in varchar2, findstr in varchar2) return integer;
9.   --获得一个文件的路径
10.   function getpath(filename in varchar2) return varchar2;
11.   --获得一个文件的文件
12.   function getfilename(filename in varchar2) return varchar2;
13.   procedure writefile(filename in varchar2, str in long);
14.   function readfile return varchar2;
16. end YLFileop_pack;
17. /
18. create or replace package body YLFileop_pack is
19.   isto_file utl_file.file_type; --如上
20.   procedure setoraclepath(path in varchar2) is
21.     sqlstr varchar2(1024);
22.   begin
23.     sqlstr := 'create or replace directory ' || YL_DIR || ' as ''' || path || '''';
24.     execute immediate sqlstr;
25.   end;
26.   --oracle字符串从后面查找 by yanleigis Email:landgis@126.com
27.   function lastindex(str in varchar2, findstr in varchar2) return integer is
28.     i     integer;
29.     num   integer;
30.     subln integer;
31.   begin
32.     num   := length(str);
33.     subln := length(findstr);
34.     if subln > num then
35.       return - 1;
36.     end if;
37.     i := num - subln + 1;
38.     while i > 0 loop
39.       if substr(str, i, subln) = findstr then
40.         return i;
41.       end if;
42.       i := I - 1;
43.     end loop;
44.     return - 1;
45.   end;
46.   --获得一个文件的路径
47.   function getpath(filename in varchar2) return varchar2 is
48.     idx integer;
49.   begin
50.     idx := lastindex(filename, '/');
51.     if (idx > 0) then
52.       return substr(filename, 1, idx);
53.     end if;
54.     return '';
55.   end;
56.   --获得一个文件的文件
57.   function getfilename(filename in varchar2) return varchar2 is
58.     idx integer;
59.   begin
60.     idx := lastindex(filename, '/');
61.     if (idx > 0) then
62.       return substr(filename, idx + 1);
63.     end if;
64.     return '';
65.   end;
66.   function openfile(filename in varchar2, state in varchar2) return integer is
67.     path varchar2(1024);
68.   begin
69.     path := getpath(filename);
70.     setoraclepath(path);
71.     isto_file := utl_file.fopen(YL_DIR, getfilename(filename), state);
72.     return 1;
73.   exception
74.     when others then
75.       dbms_output.put_line(sqlcode || ':' || sqlerrm);
76.       return 0;
77.   end;
78.   function openfileread(filename in varchar2) return integer is
79.   
80.   begin
81.     return openfile(filename, 'R');
82.   end;
84.   function openfilewrite(filename in varchar2) return integer is
85.   begin
86.     return openfile(filename, 'W');
87.   end;
88.   procedure writeline(str in varchar2) is
89.   begin
90.     utl_file.put_line(isto_file, str); --写入字符串
91.   end;
92.   procedure writelinelong(str in long) is
93.   begin
94.     utl_file.put_line(isto_file, str); --写入字符串
95.   end;
96.   procedure closefile is
97.     sqlstr varchar2(1024);
98.   begin
99.     --utl_file.fflush(isto_file); --刷缓冲
100.     utl_file.fclose(isto_file); --关闭文件指针  
101.     sqlstr := 'drop directory ' || YL_DIR;
102.     execute immediate sqlstr;
103.   
104.   end;
106.   procedure writefile(filename in varchar2, str in long) is
107.   begin
108.     if openfilewrite(filename) > 0 then
109.       writelinelong(str);
110.     
111.       closefile();
112.     
113.     end if;
114.   end;
115.   function readline return varchar2 is
116.     --读取一行放到  fp_buffer 变量里面
117.     fp_buffer varchar2(20000); --
118.     str       varchar2(4000);
119.   begin
120.     loop
121.       begin
122.         utl_file.get_line(isto_file, str); --读取一行放到  fp_buffer 变量里面
123.         fp_buffer := fp_buffer || str;
124.         fp_buffer := fp_buffer || chr(13); --chr(10)
125.       
126.       exception
127.         when no_data_found then
128.           exit;
129.       end;
130.     end loop;
131.   
132.     return fp_buffer;
133.   end;
134.   function readfile return varchar2 is
135.     str varchar2(20000);
136.   begin
137.     if openfileread('c:/yl.w') > 0 then
138.       str := readline;
139.       closefile();
140.       return str;
141.     
142.     end if;
143.     return '读文件失败';
144.   end;
146. end YLFileop_pack;
147. /