存储过程对文件的操作(txt)

宋针还 — Wed, 05 Dec 2007 03:25:00 GMT

Create directory让我们可以在Oracle数据库中灵活的对文件进行读写操作，极大的提高了Oracle的易用性和可扩展性。
其语法为:
CREATE [OR REPLACE] DIRECTORY directory AS 'pathname';

本案例具体创建如下:



            create or replace directory exp_dir as '/tmp';

目录创建以后，就可以把读写权限授予特定用户，具体语法如下:
GRANT READ[,WRITE] ON DIRECTORY directory TO username;

例如:



            grant read, write on directory exp_dir to eygle;

此时用户eygle就拥有了对该目录的读写权限。

让我们看一个简单的测试:



            SQL> create or replace directory UTL_FILE_DIR as '/opt/oracle/utl_file';
            Directory created.
            SQL> declare
            2    fhandle utl_file.file_type;
            3  begin
            4    fhandle := utl_file.fopen('UTL_FILE_DIR', 'example.txt', 'w');
            5    utl_file.put_line(fhandle , 'eygle test write one');
            6    utl_file.put_line(fhandle , 'eygle test write two');
            7    utl_file.fclose(fhandle);
            8  end;
            9  /
            PL/SQL procedure successfully completed.
            SQL> !
            [oracle@jumper 9.2.0]$ more /opt/oracle/utl_file/example.txt
            eygle test write one
            eygle test write two
            [oracle@jumper 9.2.0]$

类似的我们可以通过utl_file来读取文件:



            SQL> declare
            2    fhandle   utl_file.file_type;
            3    fp_buffer varchar2(4000);
            4  begin
            5    fhandle := utl_file.fopen ('UTL_FILE_DIR','example.txt', 'R');
            6
            7    utl_file.get_line (fhandle , fp_buffer );
            8    dbms_output.put_line(fp_buffer );
            9    utl_file.get_line (fhandle , fp_buffer );
            10    dbms_output.put_line(fp_buffer );
            11    utl_file.fclose(fhandle);
            12  end;
            13  /
            eygle test write one
            eygle test write two
            PL/SQL procedure successfully completed.

可以查询dba_directories查看所有directory.



            SQL> select * from dba_directories;
            OWNER                          DIRECTORY_NAME                 DIRECTORY_PATH
            ------------------------------ ------------------------------ ------------------------------
            SYS                            UTL_FILE_DIR                   /opt/oracle/utl_file
            SYS                            BDUMP_DIR                      /opt/oracle/admin/conner/bdump
            SYS                            EXP_DIR                        /opt/oracle/utl_file

可以使用drop directory删除这些路径.



            SQL> drop directory exp_dir;
            Directory dropped
            SQL> select * from dba_directories;
            OWNER                          DIRECTORY_NAME                 DIRECTORY_PATH
            ------------------------------ ------------------------------ ------------------------------
            SYS                            UTL_FILE_DIR                   /opt/oracle/utl_file
            SYS                            BDUMP_DIR                      /opt/oracle/admin/conner/bdump

http://www.blogjava.net/cheneyfree/archive/2007/12/04/165275.html 这篇文章很不错。

转自：http://www.eygle.com/archives/2005/04/using_create_di.html

宋针还 2007-12-05 11:25 发表评论

存储过程解析XML文件

宋针还 — Wed, 05 Dec 2007 03:13:00 GMT

存储过程读取xml文件实例：

1PROCEDURE EXECUTE_DATESERV IS
2  BEGIN
3    DECLARE
4      DIR         VARCHAR2(50);
5      SERVFILE    VARCHAR2(20);
6      V_XP        XMLPARSER.PARSER;
7      V_DOC       XMLDOM.DOMDOCUMENT;
8      V_MAPPINGS  XMLDOM.DOMNODELIST;
9      V_MAPLEN    NUMBER(3);
10      V_TABLE     XMLDOM.DOMNODELIST;
11      V_TABLELEN  NUMBER(3);
12      V_FIELD     XMLDOM.DOMNODELIST;
13      V_MAPITEM   XMLDOM.DOMNODE;
14      V_TABLEITEM XMLDOM.DOMNODE;     NNM         XMLDOM.DOMNAMEDNODEMAP;
15      V_BO        VARCHAR2(20);
16      V_VALID     VARCHAR2(20);
17      V_FIELDID   VARCHAR2(20);
18      V_BOOLEAN   NUMBER(2);
19      V_TEXT      VARCHAR2(200);
20    BEGIN
21      DIR      := '/oracle/szh';
22      SERVFILE := 'dateserv.xml';
23      V_XP     := XMLPARSER.NEWPARSER;
24      XMLPARSER.SETVALIDATIONMODE(V_XP, FALSE);
25      XMLPARSER.SETBASEDIR(V_XP, DIR);
26      XMLPARSER.PARSE(V_XP, DIR || '/' || SERVFILE);
27      V_DOC := XMLPARSER.GETDOCUMENT(V_XP);
28      XMLPARSER.FREEPARSER(V_XP);
29      V_MAPPINGS := XMLDOM.GETELEMENTSBYTAGNAME(V_DOC, 'mappings');
30      V_MAPLEN   := XMLDOM.GETLENGTH(V_MAPPINGS);
31      FOR V_I IN 0 .. V_MAPLEN - 1 LOOP
32        V_MAPITEM  := XMLDOM.ITEM(V_MAPPINGS, V_I);
33        V_TABLE    := XMLDOM.GETCHILDNODES(V_MAPITEM);
34        V_TABLELEN := XMLDOM.GETLENGTH(V_TABLE);
35        FOR V_J IN 0 .. V_TABLELEN - 1 LOOP
36          V_TABLEITEM := XMLDOM.ITEM(V_TABLE, V_J);
37          IF XMLDOM.GETNODENAME(V_TABLEITEM) = 'table' THEN
38            NNM  := XMLDOM.GETATTRIBUTES(V_TABLEITEM);
39            V_BO := XMLDOM.GETNODEVALUE(XMLDOM.ITEM(NNM, 0));
40          END IF;
41          V_FIELD   := XMLDOM.GETCHILDNODES(V_TABLEITEM);
42          V_FIELDID := XMLDOM.GETNODEVALUE(XMLDOM.GETFIRSTCHILD(XMLDOM.ITEM(V_FIELD,
43                                                                            0)));
44          V_VALID   := XMLDOM.GETNODEVALUE(XMLDOM.GETFIRSTCHILD(XMLDOM.ITEM(V_FIELD,
45                                                                            1)));
46          PRO_SZH_SEQ.UPDATE_ENDDATE(V_BO,
47                                     V_FIELDID,
48                                     V_VALID,
49                                     V_BOOLEAN,
50                                     V_TEXT);
51          IF V_BOOLEAN <> 1 THEN
52            EXECUTE_INSERT_ERROR('pk_szh_date.excute_dateserv error :' ||
53                                 V_TEXT);
54          END IF;
55        END LOOP;
56      END LOOP;
57      XMLDOM.FREEDOCUMENT(V_DOC);
58    END;
59    NULL;
60  END EXECUTE_DATESERV;

过程相应的XML文件：

1xml version="1.0" encoding="ISO-8859-1"?>
2<mappings>
3    <table name="enrollcon" >
4        <field>enddatefield>
5        <valid>validvalid>
6    table>
7    <table name="precautcon" >
8        <field>enddatefield>
9        <valid>validvalid>
10    table>
11    <table name="jrbill" >
12        <field>endtimefield>
13        <valid>validflagvalid>
14    table>
15    <table name="jr97" >
16        <field>endtimefield>
17        <valid>validflagvalid>
18    table>
19    <table name="mer" >
20        <field>exitdatefield>
21        <valid>validvalid>
22    table>
23    <table name="merabate" >
24        <field>enddatefield>
25        <valid>validvalid>
26    table>
27    <table name="booking" >
28        <field>obligatedatefield>
29        <valid>validvalid>
30    table>
31mappings>

如果报错ORA-20100:Error occurred while parsing: No such file or directory，在服务器端首先把文件的读取权限授予运行存储过程的用户，如：
GRANT READ[,WRITE] ON DIRECTORY directory TO username;
实例：grant read, write on directory exp_dir to user;

。

宋针还 2007-12-05 11:13 发表评论

BlogJava-szhswl-文章分类-存储过程

存储过程对文件的操作(txt)

存储过程解析XML文件