在线编程在线课堂在线测评Anycodes在线编程

编程论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

How to use bs4??
本帖最后由 carry0987 于
Double Queue 问题描述 : The new founded Balkan Investment Group Bank (
John 问题描述 : Little John is playing very funny game
linux-command Linux命令大全搜索工具,内容包含Linux命令
Coati 是一款跨平台的代码查看工具,适用于 C/C++ 和 Java。商业软件。特性:1. 索引
系统可承载海量并发,消息收发确认机制 保障消息必达 系统采用动态智
全平台视频监控,支持安卓苹果以及pcweb,支持海康大华等主流dvr,全部源码以及文档 单聊、群聊、商
如何访问类的私有属性? 下面以 TPathData 为例,
问题:从 XE4 以来,Firemonkey 曲线绘图在移动平台不平滑的问题一直令人诟病,提交到官方的 QC 也是族繁不及备载,官方似乎有意的
操作数据库(RODBC)   odbcConnect(dsn, uid="", p
数据模式:mode函数显示任何对象的模式。常见的单个的
系统可承载海量并发,消息收发确认机制 保障消息必达 系统采用动态智
RabbitMQ与PHP(一) 项
Iease团队扩编预备中,盼望能有Ruby或者java工程师加盟。全职兼职都可以。有爱好的伴侣请与我接洽。 邮件:i
ruby 怎么设置装备摆设GTK2,求教指导下!
#include #include #include #include using namespace std; int main() {
标题如图所示: 有n盏灯,编号1~n。一开端灯都是关着的
成熟的消息收发确认机制,支持万人大群 支持开发自定义的消息sdk接口,扩展性超强 支持单/
成熟的消息收发确认机制,支持万人大群 支持开发自定义的消息sdk接口,扩展性超强 支持单/
1. 注意列表和集合的区别 set 列表表现形式: list_1
Ajax   Ajax即“Asynchronous Javascript And
大师好,我比来在做布谷鸟优
分辨提取A和B图像Harris角点,接下来须要对

[精彩分享] Oracle存储过程例子:运用了正则表达式、数组等

[复制链接]
发表于 2016-12-17 11:01:59 | 显示全部楼层 |阅读模式
代码CREATE OR REPLACE PROCEDURE "SP_GET_ARTICLE_DATA"
(article_detail_id_$
number,
Record_Md5_ID_$
varchar2,
content_text_$ clob,
ReturnValue out
number
)
is
begin
   
declare
   
--自定义数组
    TYPE StringArray IS table OF VARCHAR2(1000);
   
    Offset_URL
number;
    Offset_Email
number;
    Offset_Phone
number;
    Offset_Account
number;
   
   
--数据下标
    URL_V_Num number:=1;
    Email_V_Num
number:=1;
    Phone_V_Num
number:=1;
    Account_V_Num
number:=1;
   
   
--数据元素存在标志
    Is_Exsit_Flag number;
   
    URL
varchar2(3000);
    Email
varchar2(200);
    Phone
varchar2(100);
    Bank_Account
varchar2(100);
   
    URL_Array StringArray:
=StringArray();
    Email_Array StringArray:
=StringArray();
    Phone_Array StringArray:
=StringArray();
    Account_Array StringArray:
=StringArray();

   
--常量
    URL_RegExp constant varchar2(300):='(((file|gopher|news|nntp|telnet|http|ftp|https|ftps|sftp)://)|(www\.))+(([a-zA-Z0-9\._-]+\.[a-zA-Z]{2,6})|([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}))(/[a-zA-Z0-9\&'||'%_\./-~-]*)?';
    Email_RegExp constant
varchar2(200):='[A-Za-z0-9_]+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*';
    Phone_RegExp constant
varchar2(300):='[+[:digit:]]{1,2}[-\.,[:blank:]]*\d{3}[-\.,[:blank:]]*\d{3}[-\.,[:blank:]]*\d{4}|[+[:digit:]]?[-\.,[:blank:]]*\d{1,2}[-\.,[:blank:]]*\d{3}[-\.,[:blank:]]+\d{4}|\d{3}[-\.,[:blank:]]+\d{4}';
    Bank_Account_RegExp constant
varchar2(200):='(SA)?[[:digit:]]{22}|(SA)?[[:blank:]]*([[:digit:]]{4}|\d{2})[-\.,[:blank:]]*[[:digit:]]{4}[-\.,[:blank:]]*[[:digit:]]{4}[-\.,[:blank:]]*[[:digit:]]{4}[-\.,[:blank:]]*[[:digit:]]{4}[-\.,[:blank:]]*(\d{4}|\d{2})';
    URL_Escape constant
varchar2(100):='\.jpg|\.rar|\.zip|\.png|\.gif|\.pdf|\.doc|\.excel|\.swf|\.mpg|\.\.|\.rmvb';
   
    DUP_VAL_INDEX exception;
    pragma exception_init(DUP_VAL_INDEX,
-0001);
   
  
begin
   
if article_detail_id_$ is not null and article_detail_id_$<>0 then
    Offset_URL:
=1;
    Offset_Email:
=1;
    Offset_Phone:
=1;
    Offset_Account:
=1;

   
while Offset_URL<>0 or Offset_Email<>0 or Offset_Phone<>0 or Offset_Account<>0
    loop
      
--获取URL
       if Offset_URL<>0 then
         
select trim(to_char(REGEXP_SUBSTR(content_text_$,URL_RegExp, Offset_URL, 1,'i')))
         
into URL from dual;
         
--获取从offset位置开始的第一个符合URL表达式的字符串位置,并赋给offset
          select REGEXP_INSTR(content_text_$, URL_RegExp, Offset_URL, 1, 1,'i')
         
into Offset_URL from dual;
      
end if;
      
--获取Email
       if Offset_Email<>0 then
         
select trim(to_char(REGEXP_SUBSTR(content_text_$,Email_RegExp, Offset_Email, 1,'i')))
         
into Email from dual;
         
--获取从offset位置开始的第一个符合Email表达式的字符串位置,并赋给offset
          select REGEXP_INSTR(content_text_$, Email_RegExp, Offset_Email, 1, 1,'i')
         
into Offset_Email from dual;
      
end if;
      
--获取Phone
       if Offset_Phone<>0 then
         
select trim(to_char(REGEXP_SUBSTR(content_text_$,Phone_RegExp, Offset_Phone, 1,'i')))
         
into Phone from dual;
         
--获取从offset位置开始的第一个符合Phone表达式的字符串位置,并赋给offset
          select REGEXP_INSTR(content_text_$, Phone_RegExp, Offset_Phone, 1, 1,'i')
         
into Offset_Phone from dual;
      
end if;
      
--获取Bank_Account
       if Offset_Account<>0 then
         
select trim(to_char(REGEXP_SUBSTR(content_text_$,Bank_Account_RegExp, Offset_Account, 1,'i')))
         
into Bank_Account from dual;
         
--获取从offset位置开始的第一个符合Phone表达式的字符串位置,并赋给offset
          select REGEXP_INSTR(content_text_$, Bank_Account_RegExp, Offset_Account, 1, 1,'i')
         
into Offset_Account from dual;
      
end if;
      
      
--URL插入到数组中
       if (length(URL)>0 and length(URL)<800) and REGEXP_INSTR(URL, URL_Escape, 1, 1, 0, 'i')=0 then
         Is_Exsit_Flag :
=0;         
         
FOR I IN 1..URL_Array.COUNT LOOP      
           
if URL=URL_Array(I) then
            Is_Exsit_Flag:
=1;
           
end if;
         
END LOOP;
         
--如果数组中不存在当前值,则插入到数组
         if Is_Exsit_Flag=0 then            
            URL_Array.EXTEND(
1);
            URL_Array(URL_V_Num):
=URL;
            URL_V_Num:
=URL_V_Num+1;
         
end if;
      
end if;
      
--Email插入到数组中
       if (length(Email)>0 and length(Email)<100) then
         Is_Exsit_Flag :
=0;         
         
FOR I IN 1..Email_Array.COUNT LOOP      
           
if Email=Email_Array(I) then
            Is_Exsit_Flag:
=1;
           
end if;
         
END LOOP;
         
--如果数组中不存在当前值,则插入到数组
         if Is_Exsit_Flag=0 then            
            Email_Array.EXTEND(
1);
            Email_Array(Email_V_Num):
=Email;
            Email_V_Num:
=Email_V_Num+1;
         
end if;
      
end if;
      
--Phone插入到数组中
       if (length(Phone)>6 and length(Phone)<100) then
         Is_Exsit_Flag :
=0;         
         
FOR I IN 1..Phone_Array.COUNT LOOP      
           
if Phone=Phone_Array(I) then
            Is_Exsit_Flag:
=1;
           
end if;
         
END LOOP;
         
--如果数组中不存在当前值,则插入到数组
         if Is_Exsit_Flag=0 then            
            Phone_Array.EXTEND(
1);
            Phone_Array(Phone_V_Num):
=Phone;
            Phone_V_Num:
=Phone_V_Num+1;
         
end if;
      
end if;
      
--Bank_Account插入到数组中
       if (length(Bank_Account)>0 and length(Bank_Account)<100) then
         Is_Exsit_Flag :
=0;         
         
FOR I IN 1..Account_Array.COUNT LOOP      
           
if Bank_Account=Account_Array(I) then
            Is_Exsit_Flag:
=1;
           
end if;
         
END LOOP;
         
--如果数组中不存在当前值,则插入到数组
         if Is_Exsit_Flag=0 then            
            Account_Array.EXTEND(
1);
            Account_Array(Account_V_Num):
=Bank_Account;
            Account_V_Num:
=Account_V_Num+1;
         
end if;
      
end if;      
   
end loop;
   
   
-- Dbms_Output.put_line('Array is:'||URL_Array(1));
   
   
--插入获取到的URL
       FOR I IN 1..URL_Array.COUNT LOOP      
         
insert into article_data(article_detail_id,article_record_md5_id,data_type,data_is_url,data_value)
         
values(article_detail_id_$,Record_Md5_ID_$,'URL','1',URL_Array(I));
      
END LOOP;
      
--插入获取到的Email
       FOR I IN 1..Email_Array.COUNT LOOP
         
insert into article_data(article_detail_id,article_record_md5_id,data_type,data_is_url,data_value)
         
values(article_detail_id_$,Record_Md5_ID_$,'Email','0',Email_Array(I));
      
END LOOP;
      
--插入获取到的Phone
       FOR I IN 1..Phone_Array.COUNT LOOP
         
insert into article_data(article_detail_id,article_record_md5_id,data_type,data_is_url,data_value)
         
values(article_detail_id_$,Record_Md5_ID_$,'Phone','0',Phone_Array(I));
      
END LOOP;
      
--插入获取到的Bank_Account
       FOR I IN 1..Account_Array.COUNT LOOP
         
insert into article_data(article_detail_id,article_record_md5_id,data_type,data_is_url,data_value)
         
values(article_detail_id_$,Record_Md5_ID_$,'Bank Account','0',Account_Array(I));
      
END LOOP;
      
   
end if;
  Exception
   
when NO_DATA_FOUND then
      ReturnValue:
=-1000;
   
when DUP_VAL_INDEX then
      ReturnValue:
=-1001;
   
when VALUE_ERROR then
      ReturnValue:
=-1002;
   
when TOO_MANY_ROWS then
      ReturnValue:
=-1003;
   
when OTHERS then
      ReturnValue:
=-1004;
      
--Dbms_Output.put_line('The SQLCode is: '||SQLCODE);
      --Dbms_Output.put_line('The SQLERRM is: '||SQLERRM);
  end;
end SP_GET_ARTICLE_DATA;
在线编程(http://www.anycodes.cn)&编程论坛(http://www.52exe.cn)感谢您的支持!
回复

使用道具 举报

发布主题 上个主题 下个主题 快速回复 返回列表 官方QQ群
在线客服
客 服 中 心
群 机 器 人
网站二维码
收 起 客 服

QQ|Archiver|手机版|小黑屋|Anycodes ( ICP14002806Anycodes在线编程

GMT+8, 2018-11-22 01:07 , Processed in 2.528337 second(s), 67 queries .

Powered by Anycodes

© 2001-2013 吉林市群龙科技有限公司 Inc.

快速回复 返回顶部 返回列表