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