使用PL/SQL可以读写文件,我们可以将查询的数据以一定格式写入文件中,当我们注意分割字段的方式,就可以将它转换成我们需要的格式!
首先我了解到将字段存入txt文件中,如果使用制表符分隔字段,将文件名后缀改为xls,我们就可以以Excel打开这个文本文件,并且是按照表格形式展现的;同样道理,如果我们使用逗号进行分隔,然后将后缀改为cvs,也会以Excel的CVS格式打开这个文件!
下面写一个例子:
1 首先写一个用于写文件的公共方法
CREATE OR REPLACE PROCEDURE PROC_FILE_WRITE(
i_title VARCHAR2,
i_fileMsg VARCHAR2,
i_fileType VARCHAR2
) IS
v_file UTL_FILE.FILE_TYPE; --写入文件
PATH VARCHAR2(1024);
v_fileName VARCHAR2(2048);
BEGIN
PATH:='TEST';
v_fileName:=i_title||'.'||i_fileType;
IF UTL_FILE.IS_OPEN(v_file) THEN
UTL_FILE.FCLOSE(v_file);
END IF;
v_file := UTL_FILE.FOPEN(PATH, v_fileName, 'w');
UTL_FILE.PUT_LINE(v_file, i_fileMsg);
UTL_FILE.FCLOSE(v_file);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLERRM);
IF UTL_FILE.IS_OPEN(v_file) THEN
UTL_FILE.FCLOSE(v_file);
END IF;
END PROC_FILE_WRITE;
/
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
2 创建文件生成路径
CREATE OR REPLACE DIRECTORY TEST AS 'C:TEST'
3 创建一个表并添加数据
CREATE TABLE TEST_FILE_T(
ID NUMBER NOT NULL,
NAME VARCHAR(32),
AGE NUMBER,
SEX VARCHAR(2)
);
--数据自行填写
4 写文件
CREATE OR REPLACE PROCEDURE PROC_OUT_FILE
AS
v_fileMsg VARCHAR2(30000);
CURSOR get_file_cur IS
SELECT id, name,age,sex
FROM test_file_t;
get_file_rec get_file_cur%ROWTYPE;
vs_time VARCHAR2(16);
BEGIN
v_fileMsg := v_fileMsg || 'ID'|| chr(44) ||'NAME'||chr(44) ||'AGE'||chr(44) ||'SEX';
OPEN get_file_cur;
SELECT TO_CHAR(sysdate, 'yyyymmddhhmiss') INTO vs_time FROM DUAL;
LOOP
FETCH get_file_cur
INTO get_file_rec;
EXIT WHEN get_file_cur%NOTFOUND;
--转换成cvs,需要用逗号(chr(44))分隔字段,转换成xls,需要用制表符(chr(9))分隔字段,换行(chr(10))
IF get_file_cur%ROWCOUNT=1 THEN
v_fileMsg := v_fileMsg || 'ID'|| chr(44) ||'NAME'||chr(44) ||'AGE'||chr(44) ||'SEX';
END IF;
v_fileMsg := v_fileMsg || chr(10)||to_char( get_file_rec.id) || chr(44) ||
get_file_rec.name||chr(44) ||to_char(get_file_rec.age)||chr(44) ||get_file_rec.sex;
PROC_FILE_WRITE('file'||vs_time,v_fileMsg,'csv');
END LOOP;
CLOSE get_file_cur;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
/
![](http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif)
按照上面所述,就可以将数据转换成想要的格式,需要注意的是:
1 上面只有xls和cvs的,如果有其他格式的规则,也可以转换;
2 需要对特殊字符进行转换,如分隔cvs的逗号,需要过滤查询结果里的逗号;
3 当我以ID起头拼的串,会报一个小问题,有兴趣的可以试一下,无意中发现的,有明白的朋友请指点一二,谢谢!