oracle 62进制序列号

来源：互联网发布：python 输出编辑：程序博客网时间：2024/06/07 02:05

create or replace function GetSerial62(v_lpad number default 0)return varchar2ISv_tmp number(38,0);v_str char(62);v_result varchar2(128);BEGINv_str := '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';v_tmp := SEQ_Serial_62.nextval;v_result := '';if v_lpad > 128 then   return v_result;end if;while v_tmp <> 0  loop    v_result := v_result||substr(v_str,mod(v_tmp,62)+1,1);    v_tmp := trunc(v_tmp / 62);end loop;select reverse(v_result) into v_result from dual;if v_lpad > length(v_result) then     v_result := lpad(v_result,v_lpad,'0');end if;--DBMS_OUTPUT.PUT_LINE('====['||v_result||']==');return v_result;end GetSerial62;

create or replace function GetSerial62(v_serial number,v_lpad number default 0)return varchar2ISv_tmp number(38,0);v_number_tmp number(10);v_char_tmp char(1);v_result varchar2(128);BEGINv_tmp := v_serial;v_result := '';if v_lpad > 128 then   return v_result;end if;while v_tmp <> 0  loop    v_number_tmp := mod(v_tmp,62);        select decode(v_number_tmp,0 ,'0',1 ,'1',2 ,'2',3 ,'3',4 ,'4',5 ,'5',                                      6 ,'6',7 ,'7',8 ,'8',9 ,'9',10,'a',11,'b',                                      12,'c',13,'d',14,'e',15,'f',16,'g',17,'h',                                      18,'i',19,'j',20,'k',21,'l',22,'m',23,'n',                                      24,'o',25,'p',26,'q',27,'r',28,'s',29,'t',                                      30,'u',31,'v',32,'w',33,'x',34,'y',35,'z',                                      36,'A',37,'B',38,'C',39,'D',40,'E',41,'F',                                      42,'G',43,'H',44,'I',45,'J',46,'K',47,'L',                                      48,'M',49,'N',50,'O',51,'P',52,'Q',53,'R',                                      54,'S',55,'T',56,'U',57,'V',58,'W',59,'X',                                      60,'Y',61,'Z','')  into v_char_tmp from dual;        v_result := v_result||v_char_tmp;    v_tmp := trunc(v_tmp / 62);end loop;select reverse(v_result) into v_result from dual;if v_lpad > length(v_result) then      v_result := lpad(v_result,v_lpad,'0');end if;--DBMS_OUTPUT.PUT_LINE('====['||v_result||']==');return v_result;end GetSerial62;

0 0