CREATE OR REPLACE PROCEDURE FileExec(
-- Executes the SQL statements in the file identified by
-- p_Directory and p_FileName. Each statement should not contain
-- the trailing semicolon (unless it is a PL/SQL block) and should
-- be separated by p_SeparationChar.
p_Directory IN VARCHAR2,
p_FileName IN VARCHAR2,
p_SeparationChar IN CHAR) AS v_FileLocator BFILE;
v_CLOBLocator CLOB;
v_SQLCursor INTEGER;
v_StartPoint INTEGER := 1;
v_EndPoint INTEGER;
v_SQLStatement VARCHAR2(32000);
v_StatementLength INTEGER;
v_RC INTEGER;
BEGIN
-- Initialize the character locator for writing. Note that we have
-- to select a CLOB from a table FOR UPDATE. This locks the row,
-- and is a requirement for LOADFROMFILE.
SELECT clob_col
INTO v_CLOBLocator
FROM lobdemo
WHERE key = -1
FOR UPDATE; -- Initialize the BFILE locator for reading.
v_FileLocator := BFILENAME(p_Directory, p_FileName);
DBMS_LOB.FILEOPEN(v_FileLocator, DBMS_LOB.FILE_READONLY); -- Set up the cursor.
v_SQLCursor := DBMS_SQL.OPEN_CURSOR; -- Load the entire file into the character LOB.
-- This is necessary so that we have the data in
-- character rather than RAW variables.
DBMS_LOB.LOADFROMFILE(v_CLOBLocator, v_FileLocator,
DBMS_LOB.GETLENGTH(v_FileLocator)); -- Loop over the LOB, searching for each occurrence of
-- the separation character.
LOOP
v_EndPoint := DBMS_LOB.INSTR(v_CLOBLocator, p_SeparationChar,
v_StartPoint, 1);
EXIT WHEN v_EndPoint = 0; -- Extract the contents between the starting and ending points.
-- This is the SQL statement to be executed.
v_StatementLength := v_EndPoint - v_StartPoint;
v_SQLStatement := DBMS_LOB.SUBSTR(v_CLOBLocator,
v_StatementLength, v_StartPoint); -- Echo the statement to the screen, and then execute it
-- using DBMS_SQL.
DBMS_OUTPUT.PUT_LINE(v_SQLStatement);
DBMS_SQL.PARSE(v_SQLCursor, v_SQLStatement, DBMS_SQL.V7);
v_RC := DBMS_SQL.EXECUTE(v_SQLCursor); -- Increment the statement pointer for the next statement.
v_StartPoint := v_EndPoint + 1;
END LOOP; -- Clean up.
DBMS_LOB.FILECLOSE(v_FileLocator);
DBMS_SQL.CLOSE_CURSOR(v_SQLCursor);
EXCEPTION
WHEN OTHERS THEN
-- Close the cursor and file, and reraise.
DBMS_LOB.FILECLOSE(v_FileLocator);
DBMS_SQL.CLOSE_CURSOR(v_SQLCursor);
RAISE;
END FileExec;
/
1.开头select语句中的WHERE key = -1有什么作用?
2.DBMS_SQL这个类型有什么用,在循环里包括分隔符,光标,取出一段显示出来...这些我都不懂什么意思。DBMS_LOB.LOADFROMFILE(v_CLOBLocator, v_FileLocator, DBMS_LOB.GETLENGTH(v_FileLocator));不是已经把数据写到clob里去了吗,后面那些操作有什么用啊?
3.我想从每个文件的第二行开始,把文件剩下的所有字符都读到clob里,当然要剔除每行的回车符。这样的话是在循环里每次读一行,还是先全部读进来在把所有的回车符清理掉呢?