删除空格自定义函数

create function FTrimStr(@str varchar(100))
returns varchar(100)
as
begin
declare @s varchar(100)
declare @result varchar(100)
declare @r varchar(10)
declare @i int
declare @len int
set @result=''
set @r=''
set @s=ltrim(rtrim(@str))
set @i=1
set @len=len(@s)
while @i<=@len
begin
set @r=substring(@s,@i,1)
if(@r!=' ')
  set @result=@result+@r
set @i=@i+1
end
return @result
end