Oracle 循环通过 CLOB 获取字符串

Oracle loop through CLOB to get string

我想将 CLOB 中的所有数据转换为字符串。 DBMC_LOB.SUBSTR 提供了一次获取 4000 个字符的方法。我来自 MS SQL 背景,不知道 Oracle 查询。谁能帮我语法。

我想做一个函数,做类似的事情

// Get the length of CLOB
// totalIterationsRequired = length/4000;
// LOOP around the CLOB and fetch 4000 char at once 
For i in 1..totalIterationsRequired
LOOP
// Insert the substring into a varchar2
//  DBMC_LOB.SUBSTR(xml_value,4000*i,(4000*(i-1)+1)
END LOOP
// The function will return the varchar2
create table save_table(rec varchar2(4000));

create or replace PROCEDURE save_clob (p_clob IN CLOB)
AS
    l_length             INTEGER;
    l_start              INTEGER := 1;
    l_recsize   CONSTANT INTEGER := 4000;
BEGIN
    l_length   := DBMS_LOB.getlength (p_clob);

    WHILE l_start <= l_length
    LOOP
        INSERT INTO save_table (rec)
             VALUES (DBMS_LOB.SUBSTR (p_clob, l_recsize, l_start));

        l_start   := l_start + l_recsize;
    END LOOP;
END save_clob;

下面是函数定义

create or replace function getclobastable (id IN VARCHAR2) 
  return clob_table
is
    l_length             INTEGER;
    l_start              INTEGER := 1;
    l_recsize   CONSTANT INTEGER := 4000;
    i_clob                 CLOB;
    n BINARY_INTEGER := 0;
    save_table clob_table := clob_table();
BEGIN

    save_table := clob_table();
    -- Get the CLOB data into i_clob
    l_length := DBMS_LOB.getlength (i_clob);

    WHILE l_start <= l_length
    LOOP
        n := n + 1;

        save_table.EXTEND();
        save_table(n) := DBMS_LOB.SUBSTR (i_clob, l_recsize, l_start);

        l_start   := l_start + l_recsize;
    END LOOP;
    RETURN save_table;
END;