Oracle高级应用之去重聚合函数

开篇一笑：高中的时候，自行车被偷，早上顺路搭同学的自行车。我坐在后座看到前面一大妈跑步，很猥琐的对同学说：“你看前面那个肥婆跑得屁股都甩圆了！”这货沉默了一下。当我们和大妈擦身而过的时候，他喊道：“妈....”

本例实现的是连接字符串，并且去掉重复的项。

聚合函数实际上就是一个对象：

createorreplacetypedistinct_concat_typeasobject
(
--对象变量
cat_stringvarchar2(500),
--对象初始化
staticfunctionODCIAggregateInitialize(cs_ctxInOutdistinct_concat_type)
returnnumber,
--聚合函数的迭代方法
memberfunctionODCIAggregateIterate(selfInOutdistinct_concat_type,
valueinvarchar2)returnnumber,
--当查询语句并行运行时,才会使用该方法,可将多个并行运行的查询结果聚合
memberfunctionODCIAggregateMerge(selfInOutdistinct_concat_type,
ctx2InOutdistinct_concat_type)
returnnumber,
--终止聚集函数的处理,返回聚集函数处理的结果
memberfunctionODCIAggregateTerminate(selfInOutdistinct_concat_type,
returnValueOutvarchar2,
flagsinnumber)
returnnumber
)

接着实现对象主体：

createorreplacetypebodydistinct_concat_typeis
--对象初始化
staticfunctionODCIAggregateInitialize(cs_ctxINOUTdistinct_concat_type)
returnnumberis
begin
cs_ctx:=distinct_concat_type(null);
returnODCIConst.Success;
end;

--聚合函数的迭代方法
memberfunctionODCIAggregateIterate(selfINOUTdistinct_concat_type,
valueINvarchar2)returnnumberis
begin
ifself.cat_stringisnullor(instr(self.cat_string,value,1,1)=0)then
self.cat_string:=self.cat_string||','||value;
endif;
returnODCIConst.Success;
end;

--当查询语句并行运行时,才会使用该方法,可将多个并行运行的查询结果聚合
memberfunctionODCIAggregateMerge(selfINOUTdistinct_concat_type,
ctx2INOutdistinct_concat_type)
returnnumberis
begin
ifself.cat_stringisnullor
(instr(self.cat_string,ctx2.cat_string,1,1)=0)then
self.cat_string:=self.cat_string||','||ctx2.cat_string;
endif;
returnODCIConst.Success;
end;

--终止聚集函数的处理,返回聚集函数处理的结果
memberfunctionODCIAggregateTerminate(selfINOutdistinct_concat_type,
returnValueOUTvarchar2,
flagsINnumber)returnnumberis
begin
returnValue:=ltrim(rtrim(self.cat_string,','),',');
returnODCIConst.Success;
end;
end;

最后定义函数，使用的是上面定义的对象：

createorreplacefunctiondistinct_concat(inputvarchar2)returnvarchar2
parallel_enable
aggregateusingdistinct_concat_type;