取出字段中的大写字母

create   function   f_Trans(@col varchar(2000))
returns   varchar(2000)
as
begin
declare @i int,@strlen int,@return varchar(500),@first nchar(1)
select @i=0,@strlen=len(@col),@return=''
    while @i<@strlen
  begin
   select @i=@i+1,@first=substring(@col,@i,1)
   if((ascii(@first)>64) and(ascii(@first)<91))
    set @return=@return+@first
  end
return(@return)
end