mysqlest发布函数STR_ADD_INT

zhgc

1. DELIMITER $
   
2. 
   
3. DROP FUNCTION IF EXISTS `syant`.`STR_ADD_INT`$
   
4. 
   
5. CREATE DEFINER=`root`@`%` FUNCTION `STR_ADD_INT`(
   
6. P_start VARCHAR(50),
   
7. P_add  int,
   
8. p_format VARCHAR(50)
   
9. ) RETURNS varchar(25) CHARSET utf8
   
10.     DETERMINISTIC
    
11. BEGIN
    
12.    /*
    
13.     该函数用于字符串加十进制数字，返回字符串
    
14.    */
    
15.         DECLARE l_div INT;  -- 被除数
    
16.         DECLARE L_FORMAT VARCHAR(50);
    
17.         DECLARE L_FORMAT_LEN INT;
    
18.         DECLARE l_mod VARCHAR(1); -- 模值-字符
    
19.         DECLARE l_imod int;        -- 模值-数字
    
20.         DECLARE l_idata int;
    
21.         DECLARE l_istep int;  
    
22.         DECLARE l_ij  int; -- 进位
    
23.         DECLARE l_str VARCHAR(25);
    
24.         DECLARE l_char varchar(1);
    
25.    
    
26.    
    
27.         SET L_FORMAT=P_FORMAT;
    
28.         SET L_FORMAT_LEN=LENGTH(L_FORMAT);
    
29.         IF(P_add<0 OR L_FORMAT_LEN<8 OR L_FORMAT IS NULL )THEN
    
30.                 RETURN "";
    
31.         END IF;
    
32.         IF(P_add=0)THEN
    
33.                 RETURN P_start;
    
34.         END IF;
    
35.         IF(P_add>10000000)THEN  -- 防呆
    
36.                 RETURN P_start;
    
37.         END IF;
    
38.       
    
39.         SET l_istep=length(p_start);
    
40.         SET l_str='';
    
41.         SET l_div=P_add;
    
42.         WHILE l_div > 0 DO
    
43.                 -- 获得被加数
    
44.                 if(l_istep>0)then
    
45.                         set l_char:=SUBSTR(p_start,l_istep,1);
    
46.                         SET l_idata:=INSTR(L_FORMAT,l_char)-1;
    
47.                         if(l_idata<0)then
    
48.                                 set l_idata=0;
    
49.                         end if;
    
50.                 else
    
51.                         set l_idata=0;
    
52.                 end if;
    
53.                 -- 获得加数
    
54.                 SET l_imod:=MOD(l_div, L_FORMAT_LEN) ;
    
55.                 -- 获得进位
    
56.                 set l_ij:=0;
    
57.                 set l_imod:=l_imod+l_idata;
    
58.                 if(l_imod>=l_format_len)then       
    
59.                         set  l_ij:=1;
    
60.                         set l_imod:=MOD(l_imod, L_FORMAT_LEN);
    
61.                 end if;
    
62.           
    
63.                 -- 获得数字对应的字母
    
64.                 SET l_mod:=SUBSTR(L_FORMAT, l_imod + 1, 1);
    
65.                 SET l_str:=CONCAT(l_mod,l_str);
    
66.                 SET l_div=TRUNCATE(l_div/L_FORMAT_LEN,0) + l_ij;
    
67.                 SET l_istep:=l_istep-1;
    
68.         END WHILE;
    
69.         -- 继续，可能有前辍
    
70.         if(l_istep>0)then
    
71.           SET l_str:=CONCAT(substr(p_start,1,l_istep),l_str);
    
72.         end if;
    
73.     RETURN l_str;
    
74. 
    
75. END$
    
76. 
    
77. DELIMITER ;

复制代码