Oracle笔记 十四、查询XML操作、操作系统文件

[code]--1.随机数

selectdbms_random.valuefromdual;

selectmod(dbms_random.random,10)fromdual;

--0-9随机数

selectabs(mod(dbms_random.random,10))fromdual;

--40-49随机数

select40+abs(mod(dbms_random.random,10))fromdual;

--2.Xml

declare

wordsclob;

xmlStrvarchar2(32767);

linevarchar2(2000);

line_nonumber:=1;

begin

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

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

loop

exitwhen(xmlStrisnull);

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;

endloop;

end;

--3.文件

--定义文件夹命名必须大写

createdirectoryMY_DIRas'D:\TEMP';

--读文件

declare

inputfileUTL_FILE.file_type;--文件对象

inputvarchar2(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);

endloop;

--关闭文件

UTL_FILE.fclose(inputfile);

exception

whenno_data_foundthendbms_output.put_line('文件末尾!');

end;

--写文件

declare

inputfileUTL_FILE.file_type;--文件对象

inputvarchar2(2000):='HelloWorld!';

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

whenno_data_foundthendbms_output.put_line('文件末尾!');

end;