Oracle 自定义函数
oracle自定义函数 (2012-12-25 15:36:01）
oracle自定义函数 (整理的几个可能平时会用到)
注：有些函数功能很简单，就是转换成Oracle的过程里面。。。
CREATE OR REPLACE Package PKG_COMMON IS
FUNCTION F_Str_Split (in_text IN VARCHAR2, in_delimiter IN VARCHAR2) RETURN TYPE_STR;
FUNCTION F_Str_Have_Chinese(in_text IN VARCHAR2) RETURN number;
FUNCTION F_Str_Have_Numeric(in_text IN VARCHAR2) RETURN number;
FUNCTION F_Str_Have_English(in_text IN VARCHAR2) RETURN number;
FUNCTION F_Str_Is_Numeric(in_text IN VARCHAR2) RETURN number;
FUNCTION F_Str_Is_Date(in_text IN VARCHAR2) RETURN number;
FUNCTION F_Str_Is_Phone(in_text IN VARCHAR2) RETURN number;
FUNCTION F_Str_Is_Mail(in_text IN VARCHAR2) RETURN number;
FUNCTION F_Str_Get_NongLi(i_SolarDay DATE) RETURN VARCHAR2;
FUNCTION F_Str_Get_SubstrCount(in_text IN VARCHAR2,in_substr IN VARCHAR2) RETURN NUMBER;
FUNCTION F_Str_Get_SubstrValue(in_text IN VARCHAR2,in_separator IN VARCHAR2,in_times1 IN NUMBER,in_times2 IN NUMBER) RETURN VARCHAR2;
FUNCTION F_Str_Get_GUID RETURN VARCHAR2;
FUNCTION F_Str_Get_Prime(in_num IN NUMBER) RETURN TYPE_INT;
FUNCTION F_Str_Order (in_text IN VARCHAR2,in_delimiter IN VARCHAR2,in_order IN VARCHAR2) RETURN VARCHAR2;
End PKG_COMMON;
/
CREATE OR REPLACE Package body PKG_COMMON IS
FUNCTION F_Str_Split (in_text IN VARCHAR2, in_delimiter IN VARCHAR2) RETURN TYPE_STR
IS
j INT := 0;
i INT := 1;
len INT := 0;
len1 INT := 0;
str VARCHAR2 (30000);
str_split TYPE_STR := TYPE_STR ();
BEGIN
len := LENGTH (in_text);
len1 := LENGTH (in_delimiter);
WHILE j < len
LOOP
j := INSTR (in_text, in_delimiter, i);
IF j = 0
THEN
j := len;
str := SUBSTR (in_text, i);
str_split.EXTEND;
str_split (str_split.COUNT) := str;
IF i >= len
THEN
EXIT;
END IF;
ELSE
str := SUBSTR (in_text, i, j - i);
i := j + len1;
str_split.EXTEND;
str_split (str_split.COUNT) := str;
END IF;
END LOOP;
RETURN str_split;
END F_Str_Split;
FUNCTION F_Str_Have_Chinese(in_text IN VARCHAR2) RETURN number
IS
BEGIN
IF LENGTH(in_text)=LENGTHB(in_text) THEN
RETURN 1;
ELSE
RETURN 0;
END IF;
END F_Str_Have_Chinese;
FUNCTION F_Str_Have_Numeric(in_text IN VARCHAR2) RETURN number
IS
l_num number;
BEGIN
SELECT REGEXP_INSTR (in_text,’[0-9]+’) INTO l_num FROM DUAL;
IF l_num=0 THEN
RETURN 1;
ELSE
RETURN 0;
END IF;
END F_Str_Have_Numeric;
FUNCTION F_Str_Have_English(in_text IN VARCHAR2) RETURN number
IS
l_num number;
BEGIN
SELECT REGEXP_INSTR (lower(in_text),’[a-z]+’) INTO l_num FROM DUAL;
IF l_num=0 THEN
RETURN 1;
ELSE
RETURN 0;
END IF;
END F_Str_Have_English;
FUNCTION F_Str_Is_Numeric(in_text IN VARCHAR2) RETURN number
IS
l_str varchar2(10);
BEGIN
BEGIN
SELECT * INTO l_str FROM dual where regexp_like(in_text, ‘^[0123456789]+$’);
RETURN 0;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN 1;
END;
END F_Str_Is_Numeric;
FUNCTION F_Str_Is_Date(in_text IN VARCHAR2) RETURN number
IS
val DATE;
BEGIN
val := TO_DATE(NVL(in_text, ‘a’), ‘yyyy-mm-dd hh24:mi:ss’);
RETURN 0;
EXCEPTION
WHEN OTHERS THEN
RETURN 1;
END F_Str_Is_Date;
FUNCTION F_Str_Is_Phone(in_text IN VARCHAR2) RETURN number
IS
l_begin varchar2(1);
l_str varchar2(2);
l_length number;
l_number number;
BEGIN
l_number:=F_Str_Is_Numeric(in_text);
l_begin:=substr(in_text,1,1);
l_length:=length(in_text);
IF l_number =0 THEN
IF l_begin =1 THEN --1开头的数字可能是手机号码
IF LENGTH(in_text)=11 THEN --长度为11位,继续判断
BEGIN
SELECT * INTO l_str FROM dual where REGEXP_LIKE(in_text,'^(134|135|136|137|138|139|147|150|151|152|157|158|159|182|187|188)') ;
RETURN 4;
EXCEPTION
WHEN NO_DATA_FOUND THEN
BEGIN
SELECT * INTO l_str FROM dual where REGEXP_LIKE(in_text,'^(130|131|132|155|156|185|186)') ;
RETURN 5;
EXCEPTION
WHEN NO_DATA_FOUND THEN
BEGIN
SELECT * INTO l_str FROM dual where REGEXP_LIKE(in_text,'^(133|180|189)') ;
RETURN 6;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN 2;
END;
END;
END;
ELSE --长度没有11位,非法手机号码
RETURN 2;
END IF;
ELSIF l_begin<>1 AND (l_length=7 OR l_length=8 OR l_length=11 OR l_length=12) THEN--可能是固定电话
RETURN 7;
ELSE
RETURN 3;
END IF;
ELSE --含有非数字
RETURN 1;
END IF;
END F_Str_Is_Phone;
FUNCTION F_Str_Is_Mail(in_text IN VARCHAR2) RETURN number
IS
l_str varchar2(10);
BEGIN
BEGIN
SELECT * INTO l_str FROM dual where REGEXP_LIKE(in_text,’^\w+((-\w+)|(.\w+))\@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+).[A-Za-z0-9]+$’);
RETURN 0;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN 1;
END;
EXCEPTION
WHEN OTHERS THEN
RETURN 1;
END F_Str_Is_Mail;
FUNCTION F_Str_Get_NongLi(i_SolarDay DATE) RETURN VARCHAR2
AS
v_OffSet INT;
v_Lunar INT; – 农历年是否含闰月,几月是闰月,闰月天数,其它月天数
v_YearDays INT; – 农历年所含天数
v_MonthDays INT; – 农历月所含天数
v_LeapMonthDays INT; – 农历闰月所含天数
v_LeapMonth INT; – 农历年闰哪个月 1-12 , 没闰传回 0
v_LeapFlag INT; – 某农历月是否为闰月 1:是 0:不是
v_MonthNo INT; – 某农历月所对应的2进制数 如农历3月: 001000000000
i INT;
j INT;
k INT;
v_Year INT; – i_SolarDay 对应的农历年
v_Month INT; – i_SolarDay 对应的农历月
v_Day INT; – i_SolarDay 对应的农历日
v_temp VARCHAR2(25);
o_OutputDate VARCHAR2(25); – 返回值 格式：农历 *年 (闰)月 *日
e_ErrMsg VARCHAR2(200);
e_ErrDate EXCEPTION;
BEGIN
--输入参数判断
IF i_SolarDay=TO_DATE('2050-01-23','YYYY-MM-DD') THEN
RAISE e_ErrDate;
END IF ;
-- i_SolarDay 到 1900-01-30(即农历1900-01-01的前一天) 的天数
v_OffSet := TRUNC(i_SolarDay, 'DD') - TO_DATE('1900-01-30', 'YYYY-MM-DD');
-- 确定农历年开始
i := 1900;
WHILE i < 2050 AND v_OffSet > 0 LOOP
v_YearDays := 348; -- 29*12 以每年12个农历月,每个农历月含29个农历日为基数
v_LeapMonthDays := 0;
-- 取出农历年是否含闰月,几月是闰月,闰月天数,其它月天数
-- 如农历2001年: 0x0d954(16进制) -> 55636(10进制) -> 0 110110010101 0100(2进制)
-- 1,2,4,5,8,10,12月大, 3,6,7,9,11月小, 4月为闰月，闰月小
SELECT Data10 INTO v_Lunar FROM T_BASE_SolarData WHERE YearId = i;
-- 传回农历年的总天数
j := 32768;
-- 依次判断v_Lunar年个月是否为大月，是则加一天
WHILE j > 8 LOOP -- 闰月另行判断 8 -> 0 000000000000 1000
IF BITAND(v_Lunar, j) + 0 > 0 then
v_YearDays := v_YearDays + 1;
END IF;
j := j/2; -- 判断下一个月是否为大
END LOOP;
-- 传回农历年闰哪个月 1-12 , 没闰传回 0 15 -> 1 0000
v_LeapMonth := BITAND(v_Lunar, 15) + 0;
-- 传回农历年闰月的天数 ,加在年的总天数上
IF v_LeapMonth > 0 THEN
-- 判断闰月大小 65536 -> 1 000000000000 0000
IF BITAND(v_Lunar, 65536)+0 > 0 THEN
v_LeapMonthDays := 30;
ELSE
v_LeapMonthDays := 29;
END IF;
v_YearDays := v_YearDays + v_LeapMonthDays;
END IF;
v_OffSet := v_OffSet - v_YearDays;
i := i + 1;
END LOOP;
IF v_OffSet <= 0 THEN
-- i_SolarDay 在所属农历年(即i年)中的第 v_OffSet 天
v_OffSet := v_OffSet + v_YearDays;
i := i - 1;
END IF;
-- 确定农历年结束
v_Year := i;
-- 确定农历月开始
i := 1;
SELECT Data10 INTO v_Lunar FROM T_BASE_SolarData WHERE YearId = v_Year;
-- 判断那个月是润月
-- 如农历2001年 (55636,15 -> 0 1101100101010100, 1111 -> 4) 即润4月,且闰月小
v_LeapMonth := BITAND(v_Lunar, 15) + 0;
v_LeapFlag := 0;
WHILE i < 13 AND v_OffSet > 0 LOOP
-- 判断是否为闰月
v_MonthDays := 0;
IF (v_LeapMonth > 0 AND i = (v_LeapMonth + 1) AND v_LeapFlag = 0) THEN
-- 是闰月
i := i - 1;
k := i; -- 保存是闰月的时i的值
v_LeapFlag := 1;
-- 传回农历年闰月的天数
IF BITAND(v_Lunar, 65536)+0 > 0 THEN
v_MonthDays := 30;
ELSE
v_MonthDays := 29;
END IF;
ELSE
-- 不是闰月
j := 1;
v_MonthNo := 65536;
-- 计算 i 月对应的2进制数 如农历3月: 001000000000
WHILE j<= i LOOP
v_MonthNo := v_MonthNo/2;
j := j + 1;
END LOOP;
-- 计算农历 v_Year 年 i 月的天数
IF BITAND(v_Lunar, v_MonthNo)+0 > 0 THEN
v_MonthDays := 30;
ELSE
v_MonthDays := 29;
END IF;
END IF;
-- 解除闰月
IF v_LeapFlag = 1 AND i = v_LeapMonth +1 THEN
v_LeapFlag := 0;
END IF;
v_OffSet := v_OffSet - v_MonthDays;
i := i + 1;
END LOOP;
IF v_OffSet <= 0 THEN
-- i_SolarDay 在所属农历月(即i月)中的第 v_OffSet 天
v_OffSet := v_OffSet + v_MonthDays;
i := i - 1;
END IF;
-- 确定农历月结束
v_Month := i;
-- 确定农历日结束
v_Day := v_OffSet;
-- 格式化返回值
o_OutputDate := TO_CHAR(v_Year)||'年';
IF k = i THEN
o_OutputDate := o_OutputDate || LPAD(TO_CHAR(v_Month), 2, '0');
ELSE
o_OutputDate := o_OutputDate || LPAD(TO_CHAR(v_Month), 2, '0');
END IF;
o_OutputDate := o_OutputDate||'月' || LPAD(TO_CHAR(v_Day), 2, '0');
RETURN o_OutputDate;
EXCEPTION
WHEN e_Errdate THEN
RETURN '日期错误! 有效范围(阳历): 1900/01/31 - 2050/01/22';
WHEN OTHERS THEN
e_ErrMsg :=SUBSTR(SQLERRM,1,200);
RETURN e_ErrMsg;
END;
FUNCTION F_Str_Get_SubstrCount(in_text IN VARCHAR2,in_substr IN VARCHAR2) RETURN NUMBER
IS
l_count number :=0;
BEGIN
SELECT LENGTH(REGEXP_REPLACE(REPLACE(in_text, in_substr, ‘@’), ‘[^@]+’, ”)) COUNT INTO l_count FROM DUAL;
IF l_count IS NULL THEN
RETURN 0;
ELSE
RETURN l_count;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN 0;
END F_Str_Get_SubstrCount;
FUNCTION F_Str_Get_SubstrValue(in_text IN VARCHAR2,in_separator IN VARCHAR2,in_times1 IN NUMBER,in_times2 IN NUMBER) RETURN VARCHAR2
IS
l_total number;
l_begin number;
l_end number;
BEGIN
l_total:=F_Str_Get_SubstrCount(in_text,in_separator);
IF in_times1<=0 THEN
l_begin:=0;
ELSE
SELECT INSTR(in_text,in_separator,1,in_times1)+1 INTO l_begin FROM DUAL;
END IF;
IF in_times2>l_total THEN
l_end:=LENGTH(in_text);
ELSE
SELECT INSTR(in_text,in_separator,1,in_times2) INTO l_end FROM DUAL;
END IF;
RETURN SUBSTR(in_text,l_begin,(l_end-l_begin));
END F_Str_Get_SubstrValue;
FUNCTION F_Str_Get_GUID RETURN VARCHAR2
IS
l_guid varchar2(40);
BEGIN
select sys_guid() into l_guid from dual;
return l_guid;
END F_Str_Get_GUID;
FUNCTION F_Str_Get_Prime(in_num IN NUMBER) RETURN TYPE_INT
IS
my_arr_prime TYPE_INT:=TYPE_INT();
n_cur_mult number(10):=1;
n_prime_1 number(10):=1;
n_prime_2 number(10):=2;
n_max number(10):= floor((in_num+1)/6);
n_arr_ind number(10):=1;
b_prime number(1):=0;
n_arr_max number(10):=2;
begin
my_arr_prime.EXTEND;
my_arr_prime(1):=2;
my_arr_prime.EXTEND;
my_arr_prime(2):=3;
for i in 1..n_max loop
n_prime_1 := i*6-1;
n_prime_2 := i*6+1;
n_cur_mult := ceil(sqrt(n_prime_2));
for j in 1..2 loop
if j =2 then
n_prime_1:= n_prime_2;
end if;
if n_prime_1 > in_num then
exit;
end if;
n_arr_ind:=1;
b_prime :=0;
while n_arr_ind <= n_arr_max and my_arr_prime(n_arr_ind)<= n_cur_mult loop
if mod(n_prime_1, my_arr_prime(n_arr_ind)) =0 then
b_prime :=1;
exit;
end if;
n_arr_ind := n_arr_ind+1;
end loop;
if b_prime = 0 then
n_arr_max := n_arr_max+1;
my_arr_prime.EXTEND;
my_arr_prime(n_arr_max) := n_prime_1;
end if;
end loop;
end loop;
RETURN my_arr_prime;
END F_Str_Get_Prime;
FUNCTION F_Str_Order (in_text IN VARCHAR2,in_delimiter IN VARCHAR2,in_order IN VARCHAR2) RETURN VARCHAR2
IS
l_result varchar2(4000);
BEGIN
IF in_order='0' THEN
SELECT WMSYS.WM_CONCAT(id) INTO l_result
FROM
(
SELECT substr(a, (instr(a, in_delimiter, 1,LEVEL) + 1), (instr(a, in_delimiter, 1,LEVEL+1) - (instr(a, in_delimiter, 1,LEVEL) + 1)) ) id
FROM
(
SELECT in_delimiter||in_text||in_delimiter AS a FROM DUAL
) CONNECT BY LEVEL <= (length(a) - nvl(length(REPLACE(a, in_delimiter, '')), 0) -1)
ORDER BY to_number(ID) ASC
);
ELSE
SELECT WMSYS.WM_CONCAT(id) INTO l_result
FROM
(
SELECT substr(a, (instr(a, in_delimiter, 1,LEVEL) + 1), (instr(a, in_delimiter, 1,LEVEL+1) - (instr(a, in_delimiter, 1,LEVEL) + 1)) ) id
FROM
(
SELECT in_delimiter||in_text||in_delimiter AS a FROM DUAL
) CONNECT BY LEVEL <= (length(a) - nvl(length(REPLACE(a, in_delimiter, '')), 0) -1)
ORDER BY to_number(ID) DESC
);
END IF;
RETURN l_result;
END F_Str_Order;
End PKG_COMMON;
/