----------------------------------------------------------------
/**
 *   版权：  石太祥 [ e.alpha ]   所有 ;
 *
 *   email:     ealpha(at)msn(dot)com  ;
 *   msn： ealpha(at)msn(dot)com  ;
 *   qq  ： 9690501
 *
 *  所有转载请注明本信息！
 */
----------------------------------------------------------------
if exists (select * from dbo.sysobjects where id = object_id(n'[dbo].[getepnum]') and xtype in (n'fn', n'if', n'tf'))
drop function [dbo].[getepnum]
go
if exists (select * from dbo.sysobjects where id = object_id(n'[dbo].[getstrcount]') and xtype in (n'fn', n'if', n'tf'))
drop function [dbo].[getstrcount]
go
if exists (select * from dbo.sysobjects where id = object_id(n'[dbo].[getstrofindex]') and xtype in (n'fn', n'if', n'tf'))
drop function [dbo].[getstrofindex]
go
set quoted_identifier on
go
set ansi_nulls on
go
－－－  这个函数直接调用了另外的两个函数，可以先阅读下面提到的两个函数
create   function  getepnum  (@str  varchar(8000))
returns  varchar(8000)
as
begin
declare  @str_return  varchar(8000) 
declare  @i  int
declare @temp_i int
declare @onlineornot int
declare @findepnumok int
  -- 用来取得一个epnum，
-- 规则：首先从chatid中取，如果有在线得，则取得最前面得在线得返回
--       如果全部不在线，则返回 ‘00000000’
   select @findepnumok = 0
select @temp_i = 0
if len(@str)begin
select @str_return = '00000000'
end
else
begin
select @i = dbo.getstrcount(@str,',')
    while @temp_ibegin
select @onlineornot = online from wwchat_user where epnum=dbo.getstrofindex(@str,',',@temp_i)           
if (@onlineornot=1)
begin
select @str_return =dbo.getstrofindex(@str,',',@temp_i)
select @findepnumok = 1 --找到epnum后置为1
break
end
else
begin
select @temp_i = @temp_i + 1
select @findepnumok = 0 --找不到epnum后置为1
end
end
          if @findepnumok = 0
begin
select @str_return = '00000000'
end
end
return  @str_return 
end
go
set quoted_identifier off
go
set ansi_nulls on
go
set quoted_identifier on
go
set ansi_nulls on
go
－－ getstrcount  输入一个没有分割的字符串，以及分割符
－－返回数组的个数
create     function  getstrcount (@str varchar(8000),@splitstr varchar(100)) 
--returns varchar(8000) 
returns int
as 
begin 
declare  @int_return int 
declare  @start  int 
declare  @next  int 
   declare  @location  int 
select @next = 0
select @location = 1
if len(@str)select @int_return =0
if charindex(@splitstr,@str) = 0
select @int_return =0
   while  (@location0) 
begin 
select  @start  =  @location  + 1 
select  @location  =  charindex(@splitstr,@str,@start) 
select  @next  = @next + 1
select  @int_return = @next
   end 
   return  @int_return
end
go
set quoted_identifier off
go
set ansi_nulls on
go
set quoted_identifier on
go
set ansi_nulls on
go
－－  getstrofindex  输入一个未分割的字符串，舒服分割符号，舒服要取得的字符位置
－－ 返回 制定位置的字符串
create   function  getstrofindex (@str varchar(8000),@splitstr varchar(4),@index int=0) 
returns  varchar(8000) 
as 
begin 
declare  @str_return  varchar(8000) 
declare  @start  int 
declare  @next  int 
declare  @location  int 
   select  @start =1 
select  @next = 1  --如果习惯从0开始则select  @next  =0 
select  @location  =  charindex(@splitstr,@str,@start) 
while  (@location  0  and  @index  >  @next  ) 
   begin 
select  @start  =  @location  +1 
select  @location  =  charindex(@splitstr,@str,@start) 
select  @next  =@next  +1 
end
if  @location  =0  select  @location  =len(@str)+1  --如果是因为没有逗号退出，则认为逗号在字符串后 
select  @str_return  =  substring(@str,@start,@location  -@start)  --@start肯定是逗号之后的位置或者就是初始值1 
if  (@index    @next  )  select  @str_return  =  ''  --如果二者不相等，则是因为逗号太少，或者@index小于@next的初始值1。 
return  @str_return 
end
go
set quoted_identifier off
go
set ansi_nulls on
go