1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| DECLARE
v_clob CLOB;
i NUMBER;
len NUMBER;
BEGIN
DBMS_LOB.createtemporary(v_clob, TRUE);
DBMS_LOB.append(v_clob, DBMS_RANDOM.STRING('u', 2000));
len := DBMS_LOB.getlength(v_clob);
FOR i IN 1..5
LOOP
DBMS_OUTPUT.PUT_LINE(DBMS_LOB.SUBSTR(v_clob, 400, (i-1) * 400+1));
END LOOP;
DBMS_OUTPUT.PUT_LINE('Premier A trouvé en :'|| DBMS_LOB.INSTR(v_clob, 'A'));
WHILE DBMS_LOB.INSTR(v_clob, 'A') > 0
LOOP
i := DBMS_LOB.INSTR(v_clob, 'A');
v_clob := DBMS_LOB.SUBSTR(v_clob, i-1, 1) ||'-'|| DBMS_LOB.SUBSTR(v_clob, len, i+1);
END LOOP;
FOR i IN 1..5
LOOP
DBMS_OUTPUT.PUT_LINE(DBMS_LOB.SUBSTR(v_clob, 400, (i-1) * 400+1));
END LOOP;
END; |
Partager