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;