oracle 获取汉字首字母函数
WHEN CHAR2 >= '啪' AND CHAR2 < '期' THEN 'P'
WHEN CHAR2 >= '期' AND CHAR2 < '然' THEN 'Q'
WHEN CHAR2 >= '然' AND CHAR2 < '撒' THEN 'R'
WHEN CHAR2 >= '撒' AND CHAR2 < '塌' THEN 'S'
WHEN CHAR2 >= '塌' AND CHAR2 < '挖' THEN 'T'
WHEN CHAR2 >= '挖' AND CHAR2 < '稀' THEN 'W'
WHEN CHAR2 >= '稀' AND CHAR2 < '压' THEN 'X'
WHEN CHAR2 >= '压' AND CHAR2 < '匝' THEN 'Y'
WHEN CHAR2 >= '匝' AND CHAR2 <='鼱' THEN 'Z'
END)
INTO CHAR1
FROM DUAL;
ELSE
CHAR1 := 'ER';
END IF;
CSOUND := CSOUND || CHAR1;
END LOOP;
RETURN CSOUND;
END;
适合AMERICAN_http://www.wendangwang.com7ASCII
createorreplacefunctionPY (P1VARCHAR2,P2INTdefault0) returnVARCHAR2as CHAR1VARCHAR2(2);
CHAR2VARCHAR2(2);
LENINTEGER;
N1INTEGER;
N2INTEGER;
CSOUNDVARCHAR2(32767);
BEGIN
IFP2 = 1THEN
LEN :=1;
ELSE
LEN :=LENGTH(P1)/2;
ENDIF;
FORIIN1..LENLOOP