正则表达式-oracle提取汉字

a:

CREATE ORREPLACE
FUNCTION GET_STR_COL(STRIN
VARCHAR2)RETURN
VARCHAR2 IS
  STR_CNT NUMBER;
  STR_1  VARCHAR2(6);
  STR_ASC NUMBER;
  STR_GET VARCHAR2(4000);
BEGIN
  SELECT LENGTH(STR)INTO STR_CNT
FROM DUAL;
  WHILE STR_CNT>0LOOP
    STR_1:=SUBSTR(STR,LENGTH(STR)-STR_CNT+1,1);
    STR_CNT:=STR_CNT-1;
    STR_ASC:=ASCII(STR_1);
    IF STR_ASC>45216THEN
      STR_GET:=STR_GET||STR_1;
        END
IF;
    END
LOOP;  
    RETURN STR_GET;
END;
B:学习下变量定义的方式
CREATE ORREPLACE
FUNCTION GETCUSTTEXT(CUSTNAMEVARCHAR2)
RETURN VARCHAR2
IS
  RESULT      
VARCHAR2(100);
  TMP_CUSTNAME VARCHAR2(100);
  COUNT_STR   NUMBER;
  I           NUMBER
:= 1;
  STR_ASCII   NUMBER;
  CURRENT_CHAR VARCHAR2(10);
BEGIN
  SELECT LENGTH(CUSTNAME)INTO COUNT_STR
FROM DUAL;
  WHILE I
< COUNT_STR LOOP
    CURRENT_CHAR := SUBSTR(CUSTNAME, I,1);
    SELECT ASCII(CURRENT_CHAR)INTO STR_ASCII
FROM DUAL;
    IF STR_ASCII
> 45216 THEN
      TMP_CUSTNAME := TMP_CUSTNAME|| CURRENT_CHAR;
    END
IF;
    I := I
+ 1;
  END LOOP;
  RESULT
:= TMP_CUSTNAME;
  RETURN(RESULT);
END GETCUSTTEXT;