Oracle將資料前綴轉換為帶有程序的clob

我有一個程序（參見下面的測驗用例），它可以將資料附加到 CLOB 中。除了在 CLOB 中附加資料之外，我還將 SYSDATE 的 VALUE 封裝在標簽中，以便我可以跟蹤資料在 CLOB 中的更新時間。

盡管在我的示例中我只顯示了 10-20 個字符的資料，但 CLOB 可能非常大，并且在許多情況下，在放入 CLOB 之前會在一個塊中串聯。

ALTER SESSION SET NLS_DATE_FORMAT = 'MMDDYYYY HH24:MI:SS';

CREATE table t(
seq_num integer  GENERATED BY DEFAULT AS IDENTITY (START WITH 1) NOT NULL,
c CLOB,
create_date DATE DEFAULT SYSDATE
);
/

insert into t (c) values (' ')
/



CREATE OR REPLACE PROCEDURE lob_append(
  p_clob IN OUT CLOB,
  p_text IN     VARCHAR2
)
AS
  l_text varchar2(32760);
  l_date_string VARCHAR2(50);
BEGIN

select '[' || TO_CHAR (SYSDATE, 'MM-DD-YYYY HH24:MI:SS') || ']'
    into l_date_string  from dual;

 
-- newline each time code is appended for clarity.
  l_text :=chr(10) || l_date_string || chr(10)
            || p_text || chr(10)
            || l_date_string||chr(10);

  dbms_lob.writeappend(p_clob, length(l_text), l_text );
END;
/


DECLARE
  l_clob CLOB := empty_clob();
lTime date;

BEGIN
lTime := sysdate;

  SELECT c INTO l_clob FROM t WHERE seq_num = 1 FOR UPDATE;

 lob_append(l_clob, rpad('Z',20,'Z'));

loop
        exit when sysdate = lTime   interval '2' second;
     end loop;

l_clob  := empty_clob();
SELECT c INTO l_clob FROM t WHERE seq_num = 1 FOR UPDATE;


lob_append(l_clob, rpad('Y',10,'Y'));


END;
/

-- Note there can be any data,
-- multiple lines, newlines, between the 
-- encapsulating tags

SELECT * from t


SEQ_NUM C   CREATE_DATE
1    
[12-01-2021 13:08:58]
ZZZZZZZZZZZZZZZZZZZZ
[12-01-2021 13:08:58]

[12-01-2021 13:09:00]
YYYYYYYYYY
[12-01-2021 13:09:00]
12012021 13:08:58

我正在做這樣的事情，但通過呼叫一個類似于上面發布的程序，但我希望新資料被加前綴而不是附加，我希望它被封裝在 SYSDATE 標簽中

UPDATE T
   SET C = RPAD('A',20,'A') || CHR(10) || C 
 WHERE SEQ_NUM = 1
/

uj5u.com熱心網友回復：

像這樣：

UPDATE T
SET   C = TO_CHAR(SYSDATE, '"["DDMMYYYY-HH24:MI:SS"]"') || CHR(10)
          || RPAD('A',20,'A') || CHR(10)
          || TO_CHAR(SYSDATE, '"["DDMMYYYY-HH24:MI:SS"]"') || CHR(10)
          || CHR(10)
          || C
WHERE SEQ_NUM = 1
/

db<>在這里擺弄

作為一個程式：

CREATE OR REPLACE PROCEDURE lob_prepend(  
  p_clob IN OUT CLOB,  
  p_text IN     VARCHAR2  
)  
AS  
  l_len     CONSTANT PLS_INTEGER := LENGTH(p_clob);  
  l_ts_len  CONSTANT PLS_INTEGER := LENGTH('[DDMMYYYY-HH:mm:SS]');  
  l_cr_len  CONSTANT PLS_INTEGER := LENGTH(CHR(10));  
  l_str_len CONSTANT PLS_INTEGER := COALESCE(LENGTH(p_text), 0);  
  l_offset  CONSTANT PLS_INTEGER := 2*l_ts_len   3*l_cr_len   l_str_len;  
BEGIN  
  -- Shuffle all the text within the clob.  
  DBMS_LOB.COPY( 
    dest_lob    => p_clob, 
    src_lob     => p_clob, 
    amount      => l_len, 
    dest_offset => l_offset   1, 
    src_offset  => 1 
  ); 
 
  -- Put the header at the beginning.  
  DBMS_LOB.WRITE(  
    p_clob,  
    l_ts_len,  
    1,  
    TO_CHAR(SYSDATE, '"["DDMMYYYY-HH24:MI:SS"]"')  
  );  
  DBMS_LOB.WRITE(  
    p_clob,  
    l_cr_len,  
    1   l_ts_len,  
    CHR(10)  
  );  
  IF p_text IS NOT NULL THEN  
    DBMS_LOB.WRITE(  
      p_clob,  
      l_str_len,  
      1   l_ts_len   l_cr_len,  
      p_text  
    );  
  END IF;  
  DBMS_LOB.WRITE(  
    p_clob,  
    l_cr_len,  
    1   l_ts_len   l_cr_len   l_str_len,  
    CHR(10)  
  );  
  DBMS_LOB.WRITE(  
    p_clob,  
    l_ts_len,  
    1   l_ts_len   2*l_cr_len   l_str_len,  
    TO_CHAR(SYSDATE, '"["DDMMYYYY-HH24:MI:SS"]"')  
  );  
  DBMS_LOB.WRITE(  
    p_clob,  
    l_cr_len,  
    1   2*l_ts_len   2*l_cr_len   l_str_len,  
    CHR(10)  
  );  
END; 
/

SQL小提琴在這里

標籤：甲骨文 存储过程 球

上一篇：如何在序列檔案夾中顯示序串列

下一篇：在具有引數的where子句中使用CASE陳述句