最近要写一个存储过程。实现如下功能
一、短信平台上下行设置
判断8-9位是不是GM,13-14是不是PH,如果是,再判断18-22位是否是SMSUW,如果是的,判断后面是否有5个数字,如果是的,5个数字之和是否等于35。如果不是,下行10个wonderful world之一(不屏蔽的),否则,下发20个wonderful world之一(需要屏蔽)。
我这里首先是实现判断输入的字符串中有没有5个数字。数字之和是不是等于35.
其代码具体实现如下
CREATE OR REPLACE PROCEDURE P_SUB_STR(I_STR IN VARCHAR2,
O_STR OUT VARCHAR2) IS
--I_STR 输入字符串,O_STR 校验返回结果
V_SUM NUMBER; --存在数字时,数字的总和
V_COUNT NUMBER; --存在多少个数字,
V_DIG NUMBER; --0.。9数字
BEGIN
V_DIG := 0;
V_SUM := 0;
V_COUNT := 0;
O_STR := '不存在正确的数据组合';
IF I_STR IS NOT NULL THEN
LOOP
EXIT WHEN V_DIG > 9;
IF INSTR(I_STR, TO_CHAR(V_DIG)) != 0 THEN
V_SUM := V_SUM + substr(I_STR,INSTR(I_STR, TO_CHAR(V_DIG)),1);
V_COUNT := V_COUNT + 1;
END IF;
V_DIG := V_DIG +1;
END LOOP;
IF V_COUNT = 5 AND V_SUM = 35 THEN
O_STR := '存在正确的数据组合';
ELSE
O_STR := '不存在正确的数据组合';
END IF;
END IF;
EXCEPTION
WHEN OTHERS THEN
O_STR := '不存在正确的数据组合';
END P_SUB_STR;
然后再存储过程调用存储过程
具体代码如下
CREATE OR REPLACE PROCEDURE TEST(MSG IN VARCHAR2,SENDMSG OUT VARCHAR2) AS
-- VARCHAR2(4000);
RMSGBYJESSICA VARCHAR2(300) := 'Hi,I am Jessica';
RMSG44MMODEUNIFUNACTIVE VARCHAR2(300) := 'I am not happy';
RMSGERROR VARCHAR2(300) := 'Error';
SMSG VARCHAR2(4000);
STATUS VARCHAR2(200);
BEGIN
IF (MSG IS NULL) OR (TRIM(MSG) = '') THEN
RETURN;
ELSE
SMSG := MSG;
IF (SUBSTR(TRIM(SMSG), 16, 5) = 'smsuw') THEN
P_SUB_STR(SUBSTR(TRIM(SMSG), 19, 15), STATUS); --调用存储过程
IF (STATUS = 'success') THEN
--SENDMSG := RMSGBYJESSICA;
select wcontent into SENDMSG from (select wcontent from zf_xp_mt_wow w where w.wtype=1 order by dbms_random.value) where rownum=1; --输出的语句为查询 zf_xp_mt_wow 表中类型为1的随机的wcontent 内容。
ELSE
--SENDMSG := RMSG44MMODEUNIFUNACTIVE;
select wcontent into SENDMSG from (select wcontent from zf_xp_mt_wow w where w.wtype=2 order by dbms_random.value) where rownum=1;
END IF;
ELSE
SENDMSG := RMSGERROR;
END IF;
END IF;
END TEST;
commit;
drop procedure test;