清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>
/* Formatted on 2015/7/15 14:56:34 (QP5 v5.163.1008.3004) */
CREATE OR REPLACE FUNCTION get_reverse_value (id IN NUMBER)
RETURN VARCHAR2
IS
ls_id VARCHAR2 (10);
ls_last_item VARCHAR2 (10);
ls_curr_item VARCHAR2 (10);
ls_zero VARCHAR2 (10);
li_len INTEGER;
lb_stop BOOLEAN;
BEGIN
ls_id := TO_CHAR (id);
li_len := LENGTH (ls_id);
ls_last_item := '';
ls_zero := '';
lb_stop := FALSE;
WHILE li_len > 0
LOOP
ls_curr_item := SUBSTR (ls_id, li_len, 1);
IF ls_curr_item = '0' AND lb_stop = FALSE
THEN
ls_zero := ls_zero || ls_curr_item;
ELSE
lb_stop := TRUE;
ls_last_item := ls_last_item || ls_curr_item;
END IF;
ls_id := SUBSTR (ls_id, 1, li_len - 1);
li_len := LENGTH (ls_id);
END LOOP;
RETURN (ls_last_item || ls_zero);
END get_reverse_value;
/*
此程序如下:例如 123
循环1: ls_curr_item=3, ls_last_item= '||3=3, ls_id=12, li_en=2
循环2:ls_curr_item=2, ls_last_item=3||2=32, ls_id=1, li_en=1
循环3:ls_curr_item=1, ls_last_item=32||1=321, ls_id='', li_en=0
此时 li_en=0 跳出循环,返回 ls_last_item=321
例如100
循环1: ls_curr_item=0, ls_zero= ''||0=0, ls_id=20, li_en=2
循环2:ls_curr_item=0, ls_zero=0||0=00, ls_id=1, li_en=1
循环3:ls_curr_item=1, ls_last_item=''||1=1, ls_id='', li_en=0
此时 li_en=0 跳出循环,返回 ls_last_item=1,ls_zero=00,ls_last_item || ls_zero=100
*/
//运行结果为
SQL> select * from rebuild_test_cf where name < 20;
ID NAME
---------- ----------
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 10
11 11
ID NAME
---------- ----------
21 12
31 13
41 14
51 15
61 16
71 17
81 18
91 19