谁能给我解释一下这个小程序是什么意思？
CREATE OR REPLACE PROCEDURE RIVUS.UTL_FILE_DIR_WRITE_SAMPLE
AS
vHandleUTL_FILE.FILE_TYPE;
vDirnameVARCHAR2(250);
vFilenameVARCHAR2(250);
vOutputVARCHAR2(32767);
BEGIN
vDirname := '/u05/file_storage/send_dir'; -- 1vFilename := 'test.txt';
vHandle := UTL_FILE.FOPEN(vDirname ,vFilename,'w', 32767); -- 1
vOutput := '初期化パラメータ UTL_FILE_DIR 経由でのファイル出力です'; -- 1
UTL_FILE.PUT_LINE(vHandle, vOutput); -- 1
UTL_FILE.FCLOSE(vHandle);
EXCEPTION WHEN OTHERS THEN
UTL_FILE.FCLOSE_ALL;
RAISE;
END;
/
四个-- 1的地方，都是什么意思呢？？ 谢谢了！！
[解决办法]
第一个是定义打开文件的目录位置
第二个是打开指定的目录下的文件，把句柄赋给变量。
第三个是给一个变量赋字符串值
第四个是把字符串中的值写到文件中。
CREATE OR REPLACE PROCEDURE RIVUS.UTL_FILE_DIR_WRITE_SAMPLE
AS
vHandle UTL_FILE.FILE_TYPE;
vDirname VARCHAR2(250);
vFilename VARCHAR2(250);
vOutput VARCHAR2(32767);
BEGIN
vDirname := '/u05/file_storage/send_dir'; -- 1 vFilename := 'test.txt';
vHandle := UTL_FILE.FOPEN(vDirname ,vFilename,'w', 32767); -- 1
vOutput := '初期化パラメータ UTL_FILE_DIR 経由でのファイル出力です'; -- 1
UTL_FILE.PUT_LINE(vHandle, vOutput); -- 1
UTL_FILE.FCLOSE(vHandle);
EXCEPTION WHEN OTHERS THEN
UTL_FILE.FCLOSE_ALL;
RAISE;
END;
/
