oracle 查詢XML操做、操做系統文件

--1.隨機數

select dbms_random.value from dual;

select mod(dbms_random.random, 10) from dual;

--0-9隨機數

select abs(mod(dbms_random.random, 10)) from dual;

--40-49隨機數

select 40 + abs(mod(dbms_random.random, 10)) from dual;

--2.Xml

declare

       words clob;

       xmlStr varchar2(32767);

       line varchar2(2000);

       line_no number := 1;

begin

     words := dbms_xmlquery.getXML('select * from scott.emp');

     xmlStr := dbms_lob.substr(words, 32767);

     loop

         exit when (xmlStr is null);

         line := substr(xmlStr, 1, instr(xmlStr, chr(10)) - 1);

         dbms_output.put_line(line_no || ':' || line);

         xmlStr := substr(xmlStr, instr(xmlStr, chr(10)) + 1);

         line_no := line_no + 1;

     end loop;

end;

--3.文件

--定義文件夾 命名必須大寫

create directory MY_DIR as 'D:\TEMP';

--讀文件

declare

       inputfile UTL_FILE.file_type; --文件對象

       input varchar2(2000);

begin

     --指定文件

     --3個參數依次爲:文件夾 文件 打開方式[r(讀) w(寫) a(追加)]

     inputfile := UTL_FILE.fopen('MY_DIR', 'demo.txt', 'r');

     loop

         UTL_FILE.get_line(inputfile, input);

         dbms_output.put_line(input);

     end loop;

     --關閉文件

     UTL_FILE.fclose(inputfile);

     exception

       when no_data_found then dbms_output.put_line('文件末尾!');

end;

--寫文件

declare

       inputfile UTL_FILE.file_type; --文件對象

       input varchar2(2000) := 'Hello World!';

begin

     --指定文件

     --3個參數依次爲:文件夾 文件 打開方式[r(讀) w(寫) a(追加)]

     inputfile := UTL_FILE.fopen('MY_DIR', 'mydemo.txt', 'a');

     --寫入數據

     UTL_FILE.put_line(inputfile, input);

     --關閉文件

     UTL_FILE.fclose(inputfile);

     exception

       when no_data_found then dbms_output.put_line('文件末尾!');

end;

做者：hoojo
出處：http://www.cnblogs.com/hoojo/archive/2011/05/03/2035427.html
blog：http://blog.csdn.net/IBM_hoojo
本文版權歸做者和博客園共有，歡迎轉載，但未經做者贊成必須保留此段聲明，且在文章頁面明顯位置給出原文鏈接，不然保留追究法律責任的權利。