Mejoras al código de strip_tags para SQL Server

[mauroardolino]

thread183-880068

Better code, corrected:

create function dbo.strip_tags( @s varchar(5000) )
returns varchar(5000) as
begin
declare @pos1 smallint, @pos2 smallint, @largo smallint
set @pos2 = 1

while @pos2 > 0
begin
set @pos1 = charindex('<', @s, @pos2)
set @pos2 = charindex('>', @s, @pos1+1)
if @pos1 = 0 or @pos2 = 0 break

set @largo=LEN(@s)
set @s = left(@s, @pos1-1) + right(@s, len(@s)-@pos2)
set @largo=@largo-LEN(@s)

set @pos2 = @pos2-@largo
end


return @s
end