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