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
  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。

版权所有，转载请注明出处 本文出自： http://www.cnblogs.com/hoojo/archive/2011/05/03/2035427.html