ORACLE截取字符串


每行显示固定字符串,截取字符串
方法一:在循环里面输出
DECLARE
  l_char           VARCHAR2  ( 3000   ) :=  'ORACLEEB电子商务套件SSYSTEMghtest'  ;
  l_length         NUMBER  ;
  l_line_char      VARCHAR2  ( 1000   );  --每个字符
  l_lengthb        NUMBER   --每个字符的字节长度,汉字变成2个
  l_lengthb_total  NUMBER  :=  0   --字节长度:汉字算2个
  l_char_display   VARCHAR2  ( 1000   );  --换行显示的字符
BEGIN
  l_length :=  length  (l_char);
  dbms_output.put_line(   'l_length:'  || l_length);
   FOR  i  IN   1   .. l_length  LOOP
     SELECT   substr   (l_char, i,  1 INTO  l_line_char  FROM   dual;
     --dbms_output.put_line('l_line_char:'||l_line_char);
     IF   lengthb   (l_line_char) =  3   THEN
       --汉字
      l_lengthb :=  2  ;
     ELSE
      l_lengthb :=  1  ;
     END   IF   ;
    l_lengthb_total := l_lengthb_total + l_lengthb;
    l_char_display  := l_char_display || l_line_char;
     IF  l_lengthb_total =  12   THEN
       --l_char_display := l_char_display || CHR(10);
       --12位换行显示
      dbms_output.put_line(   'l_char_display:'  || l_char_display);
      l_lengthb_total :=  0  ;
      l_char_display  :=  NULL  ;
     END   IF   ;
   END   LOOP  ;
  dbms_output.put_line(   'l_char_display:'  || l_char_display);
END  ;

输出:
l_char_display:ORACLEEB电子
l_char_display:商务套件SSYS
l_char_display:TEMghtest

二、使用回车符
DECLARE
  l_char           VARCHAR2  ( 3000   ) :=  'ORACLEEB 电子商务套件 SSYSTEMghtest'  ;
  l_length         NUMBER  ;
  l_line_char      VARCHAR2  ( 1000   );  --每个字符
  l_lengthb        NUMBER   --每个字符的字节长度,汉字变成2个
  l_lengthb_total  NUMBER  :=  0   --字节长度:汉字算2个
  l_char_display   VARCHAR2  ( 1000   );  --换行显示的字符
BEGIN
  l_length :=  length  (l_char);
   FOR  i  IN   1   .. l_length  LOOP
     SELECT   substr   (l_char, i,  1 INTO  l_line_char  FROM   dual;
     --dbms_output.put_line('l_line_char:'||l_line_char);
     IF   lengthb   (l_line_char) =  3   THEN
       --汉字
      l_lengthb :=  2  ;
     ELSE
      l_lengthb :=  1  ;
     END   IF   ;
    l_lengthb_total := l_lengthb_total + l_lengthb;
    l_char_display  := l_char_display || l_line_char;
     IF  l_lengthb_total =  12   THEN
      l_char_display := l_char_display ||  CHR  ( 10   );
       --12位换行显示
      l_lengthb_total :=  0  ;
     END   IF   ;
   END   LOOP  ;
  dbms_output.put_line( l_char_display);
END  ;

输出:
ORACLEEB电子
商务套件SSYS
TEMghtest
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值