REM lobprint.sql
REM Version 1.0, last updated 8/8/97
REM This procedure demonstrates the DBMS_LOB.READ procedure, as described in
REM Chapter 21 of _Oracle8 PL/SQL Programming_ by Scott Urman.CREATE OR REPLACE PROCEDURE LOBPrint(p_CLOB IN CLOB) AS
v_Buffer VARCHAR2(80);
v_Offset INTEGER := 1;
v_Amount INTEGER := 80;
BEGIN
LOOP
-- Read and output the next 80 characters.
DBMS_LOB.READ(p_CLOB, v_Amount, v_Offset, v_Buffer);
DBMS_OUTPUT.PUT_LINE(v_Buffer); v_Offset := v_Offset + v_Amount;
END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
-- End of loop, just return.
NULL;
END LOBPrint;
/
REM Version 1.0, last updated 8/8/97
REM This procedure demonstrates the DBMS_LOB.READ procedure, as described in
REM Chapter 21 of _Oracle8 PL/SQL Programming_ by Scott Urman.CREATE OR REPLACE PROCEDURE LOBPrint(p_CLOB IN CLOB) AS
v_Buffer VARCHAR2(80);
v_Offset INTEGER := 1;
v_Amount INTEGER := 80;
BEGIN
LOOP
-- Read and output the next 80 characters.
DBMS_LOB.READ(p_CLOB, v_Amount, v_Offset, v_Buffer);
DBMS_OUTPUT.PUT_LINE(v_Buffer); v_Offset := v_Offset + v_Amount;
END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
-- End of loop, just return.
NULL;
END LOBPrint;
/
解决方案 »
- 求一个语句,查询oracle中所用用户表的名字和该表中的记录总数
- 请问怎么才能给Oracle 11g设置正确的ORACLE_SID环境变量呢?
- ERwin 7.0 和 Oracle 10G 怎么关联创建数据库?
- 又是数据文件的问题
- 请大家解释一下这个奇怪现象:使用触发器进行三个库中某个表的数据同步,不知为何有时会失效,有点难度的问题喔
- 删除数据库用户求助!
- 如何在window 2000下用oracle9i手工创建数据库(不用助手)
- oracle中有像server一样的@@rowcount记录所选的记录数呢?rownum好像不行呀
- 高分请教,如何测试触发器是否正确!(急急急。。。。。。)
- 客户端提交上来几千个字符串进行查询,怎么处理好一点?
- 中秋到了,送大家几个月饼,祝你们节日快乐!!!
- oracle9i...编程连接数据库是提示:ORA-12154: TNS: 无法处理服务名 ?
fil BFILE;
pos INTEGER;
amt BINARY_INTEGER;
buf RAW(40);
BEGIN
SELECT f_lob INTO fil FROM lob_table WHERE key_value = 21;
dbms_lob.open(fil, dbms_lob.lob_readonly);
amt := 40; pos := 1 + dbms_lob.getlength(fil); buf := '';
dbms_lob.read(fil, amt, pos, buf);
dbms_output.put_line('Read F1 past EOF: '||
utl_raw.cast_to_varchar2(buf));
dbms_lob.close(fil);
exception
WHEN no_data_found
THEN
BEGIN
dbms_output.put_line('End of File reached. Closing file');
dbms_lob.fileclose(fil);
-- or dbms_lob.filecloseall if appropriate
END;
END;
/