首页 > 代码库 > ORACLE截取字符串

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

ORACLE截取字符串