ORACLE 中写入txt文本与从Txt文件中读入数据 修改表结构

--创建一个表
DROP TABLE TEST CASCADE CONSTRAINTS ;

CREATE TABLE TEST(A VARCHAR(30),B VARCHAR(30));

--查看具体的权限

SELECT DISTINCT PRIVILEGE FROM DBA_SYS_PRIVS WHERE PRIVILEGE LIKE '%DIRECTORY%';

--用SYS用户授权给SCOTT

GRANT CREATE ANY DIRECTORY TO SCOTT ;

--授权后创建目录

CREATE OR REPLACE DIRECTORY FILENAME AS 'D:\临时';

--查询所建的表

SELECT * FROM TEST ;

--写TXT文件

DECLARE FILEHANDLE UTL_FILE.FILE_TYPE;--句柄

BEGIN

--FILENAME 必须大写，不然会提示目录路径无效

FILEHANDLE := UTL_FILE.FOPEN('FILENAME','UTIL_FILE.TXT','W');

UTL_FILE.PUT_LINE(FILEHANDLE,'HELLO ORACLE!');

UTL_FILE.PUT_LINE(FILEHANDLE,'你好，胖子!');

UTL_FILE.FCLOSE(FILEHANDLE);--关闭句柄

END;

--从TXT文件中读取内容插入到表TEST中

/*SET SERVEROUTPUT ON*/

DECLARE

  FILEHANDLE UTL_FILE.FILE_TYPE;

  FILEBUFFER VARCHAR(200);

   BEGIN

     FILEHANDLE := UTL_FILE.FOPEN('FILENAME','UTIL_FILE.TXT','R');

    LOOP

      BEGIN

           UTL_FILE.GET_LINE(FILEHANDLE,FILEBUFFER);

           INSERT INTO TEST(A) VALUES(FILEBUFFER);

           EXCEPTION 

             WHEN NO_DATA_FOUND THEN 

             EXIT ; 

       END;

      END LOOP;

    UTL_FILE.FCLOSE(FILEHANDLE);

COMMIT;

END;

--再次查询表

SELECT * FROM TEST ;

/*

-- 修改表结构

ALTER TABLE STU ADD (NAME2 VARCHAR2(10));   增加新字段

UPDATE STU SET NAME2=SUBSTR(TRIM(NAME),1,10);  赋值给新字段

ALTER TABLE STU DROP(NAME);                           删除原字段

ALTER TABLE STU RENAME COLUMN NAME2 TO NAME; 将新字段改名

ALTER TABLE  表名   MODIFY 字段名   VARCHAR2(长度);*/

分享： http://space.itpub.net/519536/viewspace-691051