求一个function ，以CE/CO 为外循环，以0-9，A-Z 产生流水号，新手，求解

[Hedyling]

在Oracle写一个Function 供前台作调用
1.用0-9，A-Z ，其中I,O,X 不能使用才产生流水号 ，如001，002...00A,00B...ZZZ
2.第一次产生流水码是前面加CE ，如：CE001...CEZZZ,当后三位流水码产生到ZZZ时，换用CO ，如：CO001...COZZZ,然后前两位再使用CE ，依次循环

本人新学oracle ，求解～～，谢谢各位高手帮忙～～

[Hedyling]

怎么没人呢？

[陈字文]

引用 1 楼 Hedyling 的回复:

怎么没人呢？

序列的产生应基于一个sequence，这样产生的序列不会出现重复.... 简单写了一个如下:

--创建一个SEQUENCE,获取序列,在此基础上进行加工
create sequence SEQ_TEXT
minvalue 0
maxvalue 10000000
start with 0
increment by 1
cache 20
order;

CREATE OR REPLACE FUNCTION getSequence
RETURN VARCHAR2
AS
    N_SHANG NUMBER(10);
    N_YUSHU NUMBER(10);
    HEXRES   VARCHAR2(10);
    V_FLAG VARCHAR2(4);
BEGIN
    --使用序列获取序列值
    N_SHANG :=SEQ_TEXT.NEXTVAL;
        --获取生成序列的前缀,奇数次循环为CE,偶数次循环为CO
        SELECT DECODE(MOD(TRUNC(N_SHANG/(35*POWER(36,0)+35*POWER(36,1) + 35*POWER(36,2)+1)),2),1,'CO','CE')
             INTO V_FLAG 
            FROM DUAL;
        --对ZZZ取模,方便转换
        N_SHANG := N_SHANG MOD (35*POWER(36,0)+35*POWER(36,1) + 35*POWER(36,2)+1);
        --特殊情况返回000
        IF N_SHANG = 0 THEN
           HEXRES := '000';
        END IF;
        --对36进制处理
        WHILE N_SHANG>0  LOOP
            N_YUSHU:=N_SHANG MOD 36;
            SELECT CONCAT(CASE WHEN N_YUSHU >9 THEN CHR(N_YUSHU+55) ELSE TO_CHAR(N_YUSHU) END,HEXRES)
            INTO HEXRES
            FROM DUAL;
            N_SHANG := TRUNC(N_SHANG/36);
        END LOOP;
        --返回结果
    RETURN CONCAT(V_FLAG,LPAD(HEXRES,3,0));
END;

前台调用方式: 13:23:46 ChenZw> select getSequence() as seq from dual; SEQ ------------------------------------------------------------- CE9XI

[Hedyling]

我现在是用10进制转成33进制来写的，代码如下，但是我现在怎么将33进制的转成10进制的，比如0J6 转成10进制就是600 ～～ Create or Replace Function F_33(i_num in int) Return varchar2 AS v_num int; v_str varchar2(10):=''; type Table_type is Table Of char Index By Binary_Integer; t_s Table_type; begin for i in 0..9 loop t_s(i):=to_char(i); end loop; for i in 10..17 loop t_s(i):=chr(i+55); end loop; for i in 18..22 loop t_s(i):=chr(i+56); end loop; for i in 23..30 loop t_s(i):=chr(i+57); end loop; for i in 31..32 loop t_s(i):=chr(i+58); end loop; v_num:=i_num; while v_num>32 loop v_str:=t_s(mod(v_num,33))||v_str; v_num:=trunc(v_num/33); end loop; return (substr('00'||t_s(v_num)||v_str,-3)); end f_33;

[xinpingf]

create or replace function F(i_dec int) return varchar2 is charbase varchar2(100) := '0123456789ABCDEFGHJKLMNPQRSTUVWYZ'; jz int := 33; v_ret varchar2(10); v_prefix varchar2(2); v1 varchar2(1); v2 varchar2(1); v3 varchar2(1); begin select decode(mod(floor(i_dec / jz / jz / jz), 2), 0, 'CE', 1, 'CO') into v_prefix from dual; v1 := Substr(charbase, mod(floor(i_dec / jz / jz), jz) + 1, 1); v2 := Substr(charbase, mod(floor(i_dec / jz), jz) + 1, 1); v3 := Substr(charbase, mod(i_dec, jz) + 1, 1); v_ret := v_prefix || v1 || v2 || v3; return v_ret; end;

[陈字文]

引用 9 楼 Hedyling 的回复:

引用 8 楼 ziwen00 的回复:A是10... 所以J是19 ABCDEFJHIJ 0123456789 按正常来说，J是19，但是是所以是33进制，因为我有几个字母是未用的，比如：I，O，X 而您的程式验证下来这餐个字母是在其中的呢

CREATE OR REPLACE FUNCTION TRANSSCALETOINT(PRM_SCALE NUMBER,  V_VALUE VARCHAR2)
RETURN NUMBER
AS
   CONSSTR CONSTANT  VARCHAR2(40) :='0123456789ABCDEFGHJKLMNPQRSTUVWYZ';
   N_NUM NUMBER(20);
BEGIN
    N_NUM :=0;
    FOR I IN (SELECT CASE
                                   WHEN REGEXP_LIKE(SUBSTR(V_VALUE, LEVEL, 1), '[[:digit:]]') THEN
                                    TO_NUMBER(SUBSTR(V_VALUE, LEVEL, 1))
                                   ELSE
                                     INSTR(CONSSTR,SUBSTR(V_VALUE, LEVEL, 1))-1
                               END AS NUM,
                               LENGTH(V_VALUE) - LEVEL AS POW
                          FROM DUAL
                        CONNECT BY LEVEL <= LENGTH(V_VALUE))
                      LOOP
         N_NUM:=N_NUM + I.NUM*POWER(PRM_SCALE,I.POW);
    END LOOP;
    RETURN N_NUM;
END;

SELECT TRANSSCALETOINT(33,'0J6') FROM DUAL;

TRANSSCALETOINT(33,'0J6')
600

[Hedyling]

那假如我要将这33进制的转成10进制的话，那算法又是怎么用呢？

[陈字文]

CREATE OR REPLACE FUNCTION TRANSSCALETOINT(PRM_SCALE NUMBER,  --进制
                                                                                                      V_VALUE VARCHAR2) --传入值
RETURN NUMBER
AS
   N_NUM NUMBER(20);
BEGIN
    N_NUM :=0;
    FOR I IN (SELECT CASE
                                   WHEN REGEXP_LIKE(SUBSTR(V_VALUE, LEVEL, 1), '[[:digit:]]') THEN
                                   --挑出是0-9数字的
                                    TO_NUMBER(SUBSTR(V_VALUE, LEVEL, 1)) 
                                   ELSE
                                   --转换A-Z，没有对取值范围做校验！
                                    ASCII(UPPER(SUBSTR(V_VALUE, LEVEL, 1))) - 55 
                               END AS NUM,
                               --所在位
                               LENGTH(V_VALUE) - LEVEL AS POW 
                          FROM DUAL
                        CONNECT BY LEVEL <= LENGTH(V_VALUE))
                      LOOP
                      --乘以权重
         N_NUM:=N_NUM + I.NUM*POWER(PRM_SCALE,I.POW); 
    END LOOP;
    RETURN N_NUM;
END;

[陈字文]

0J6 SELECT 0*33*33 + 19*33 +6 FROM DUAL; 633

[陈字文]

A是10... 所以J是19 ABCDEFJHIJ 0123456789

[Hedyling]

引用 8 楼 ziwen00 的回复:

A是10... 所以J是19 ABCDEFJHIJ 0123456789

按正常来说，J是19，但是是所以是33进制，因为我有几个字母是未用的，比如：I，O，X 而您的程式验证下来这餐个字母是在其中的呢