oracle正则截取字符串的函数

现在有这么一个需求， 数据库中的一个手输的‘籍贯’字段，要按一定的规范截取显示在报表上，比如，如果‘籍贯’的内容是：‘山东省潍坊市昌乐县’， 那么报表里要显示为：‘山东昌乐’， 如果‘籍贯’是山东省潍坊市寒亭区 那么就要出来 山东潍坊，简化的基本需求就是这样，取省一级和县一级，如果县一级是个区，那就取到市一级，

没有县一级的话，是数据不规范，但是先将就着取省一级和市一级。

要实现这个目的，第一是要从数据库里把相应的字段取出来， 第二是要写一个oracle截取字符串的函数处理下‘籍贯’字段。

第一步比较简单，就略过，只看我们的截取函数。

create or replace function f_addr(address in varchar2) return varchar2 as 
new_addr varchar2(100); 
tempstr1 gscodeitems.name%type; 
tempstr2 varchar2(100); 
tempstr3 varchar2(100); 
tempstr4 varchar2(100); 
tempn0 number; 
tempn1 number; 
tempn2 number; 
tempn3 number; 
tempnn number; 
cursor minzustrs is 
select name from gscodeitems where gscodeitems.codesetnm = '411CBC8F-35D8-4634-944B-0C1065782F48’; 
begin 
/*单字县*/ 
if REGEXP_COUNT(address, '^([^省区族]+)(省|(.族)?自治区|市)((.+市|.+地区|.+州)?([^族县])(县))$') > 0 
then new_addr := REGEXP_REPLACE(address, '^([^省区族]+)(省|(.族)?自治区|市)((.+市|.+地区|.+州)?([^族县])(县))$', '\1\6县'); 
/*新疆维吾尔*/ 
elsif REGEXP_COUNT(address, '^新疆') > 0 
then new_addr := REGEXP_REPLACE(address, '^(新疆)(维吾尔自治区)((.+市|.+地区|.+州)?([^族]+)(县|市|.族自治县)|((.+)市)?([^族]+)(区|旗))$', '\1\5\8’);
 /*特殊处理双民族两个字的民族在前, 策略是把两个字的民族干掉，就恢复成正常模式*/ 
elsif regexp_count(address, '([^族]+)族', 4) >= 2    
then tempstr1 := regexp_substr(address, '([^族]{2})族', 3); 
for minzustr in minzustrs loop     
if tempstr1 = minzustr.name then     
tempnn := 1; exit;     
else tempnn := 0;     
end if; end loop;     
if tempnn = 1 then     
tempn0 := length(tempstr1);     
tempn1 := regexp_instr(address,tempstr1);     
tempn2 := tempn1 - 1;     
tempn3 := tempn1 + tempn0;     
tempstr2 := substr(address,0,tempn2);     
tempstr3 := substr(address, tempn3);     
tempstr4 := concat(tempstr2,tempstr3);     
new_addr := REGEXP_REPLACE(tempstr4,     '^([^省区族]+)(省|(.族)?自治区|市)((.+市|.+地区|.+州)?([^族]+)(县|市|.族自治县)|((.+)市)?([^族]+)(区|旗))$',  
   '\1\6\9');     
else     
tempstr1 := regexp_substr(address, '([^族])族', 3);       
tempn0 := length(tempstr1);     
tempn1 := regexp_instr(address,tempstr1);     
tempn2 := tempn1 - 1;     
tempn3 := tempn1 + tempn0;     
tempstr2 := substr(address,0,tempn2);     
tempstr3 := substr(address, tempn3);     
tempstr4 := concat(tempstr2,tempstr3);     
new_addr := REGEXP_REPLACE(tempstr4,     '^([^省区族]+)(省|(.族)?自治区|市)((.+市|.+地区|.+州)?([^族]+)(县|市|.族自治县)|((.+)市)?([^族]+)(区|旗))$',     '\1\6\9');         
end if; /*特殊处理单民族 两个字的民族，先干掉广西和宁夏，再取族前两个字判断是否合法，如果合法，就干掉一个字，然后走正常流程*/ 
elsif regexp_count(address, '([^族]+)族', 4) = 1 then 
tempstr1 := regexp_substr(address, '([^族]{2})族', 3); 
 for minzustr in minzustrs loop     
if tempstr1 = minzustr.name then     
tempnn := 1; exit;     
else tempnn := 0;     
end if; 
end loop;     
if tempnn = 1 then     
tempn0 := length(tempstr1);     
tempn1 := regexp_instr(address,tempstr1);     
tempn2 := tempn1 - 1;     
tempn3 := tempn1 + tempn0 - 2;     
tempstr2 := substr(address,0,tempn2);     
tempstr3 := substr(address, tempn3);     
tempstr4 := concat(tempstr2,tempstr3);     
new_addr := REGEXP_REPLACE(tempstr4,     '^([^省区族]+)(省|(.族)?自治区|市)((.+市|.+地区|.+州)?([^族]+)(县|市|.族自治县)|((.+)市)?([^族]+)(区|旗))$', 
    '\1\6\9');     
else       
new_addr := REGEXP_REPLACE(address,     '^([^省区族]+)(省|(.族)?自治区|市)((.+市|.+地区|.+州)?([^族]+)(县|市|.族自治县)|((.+)市)?([^族]+)(区|旗))$',
     '\1\6\9');     
end if; 
else 
new_addr := REGEXP_REPLACE(address, '^([^省区族]+)(省|(.族)?自治区|市)((.+市|.+地区|.+州)?([^族]+)(县|市|.族自治县)|((.+)市)?([^族]+)(区|旗))$',
 '\1\6\9'); 
end if; 
return new_addr; 
end f_addr;

这个函数里，比较关键的，其实是一个正则表达式，函数主体用了几个if else 处理几种特殊情况，没有覆盖全部的情况，只是覆盖了几种，这个可以稍后讨论，直接看最后一个else， 这里的这个正则就是用到的最基本的正则了：

new_addr := REGEXP_REPLACE(address, '^([^省区族]+)(省|(.族)?自治区|市)((.+市|.+地区|.+州)?([^族]+)(县|市|.族自治县)|((.+)市)?([^族]+)(区|旗))$',
'\1\6\9');
这个内置函数，查下oracle的API即可，看到含义也跟猜到个差不多， 是一个返回一个新字符串来替代原字符串的功能，此处简单说下，第一个参数address，是源字符串，
第二个就是我们的正则pattern, 第三个是返回的字符串， 第三个参数‘\1\6\9’，如果熟悉正则的同学，可能会觉得似曾相识，这是取子表达式用的，从左到右，左括号的排序，
就是我们子表达式的排序，取第一第六第九个子表达式，直观的拿出来，就是取 ([^省区族]+)和([^族]+)和(.+)，你找对了么。

分析下这里的这个正则，其实很简单，整体用两个括号分为两部分：头和尾。
第一个：^([^省区族]+)(省|(.族)?自治区|市)，
第二个：((.+市|.+地区|.+州)?([^族]+)(县|市|.族自治县)|((.+)市)?([^族]+)(区|旗))$
简单的说，
第一个是匹配省、自治区和直辖市的
第二个是匹配市县两级和市区两级的，
\1自然是取省的名称，比如：山东省潍坊市昌乐县，\1就会取到：山东，
\6是取县一级的名称的，比如：山东省潍坊市昌乐县，\6就会取到：昌乐，
\9是取省市区这种行政级别的市一级的名称，比如：山东省潍坊市寒亭区，\9就会取到潍坊
当表达式匹配到\6的时候，\9的返回值会是空字符串，匹配到\9的时候，\6也会返回空字符串，所以这一个表达式，妥妥的满足我们的需求，
其他的情况，在这里先不表，就是特殊处理了下民族自治县，自治州，新疆啊等。

欢迎同学们有疑问的共同探讨。