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;
