next »

[fons]

Hi all,

I'm having a problem with the CropSentence function.
Example:
uncropped

Code:

<p><span style="background-color: rgb(255, 0, 0); color:#FFF">Lorem ipsum dolor sit amet, consectetur adipiscing elit.
Pellentesque feugiat mi sed arcu feugiat blandit. Curabitur feugiat vulputate massa, id rhoncus leo mollis condimentum.
Aenean in aliquam ligula. Cras vitae vehicula dolor.
Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</span>
Nam hendrerit, eros non pretium iaculis, lectus ipsum euismod erat, vitae cursus massa mi sed tellus. Proin pharetra iaculis varius.
Etiam at est nisi. Aenean tempus, tellus in convallis ultrices, tortor lectus rhoncus odio, at ornare massa mi volutpat sapien.
Nam tempus nibh id felis posuere et pretium dui dignissim.
Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.
Aliquam eu pretium felis. Vivamus eget nisl enim, sit amet sodales felis. Nam iaculis mauris et nulla ultricies ullamcorper. </p>

cropped

Code:

<p><span style="background-color: rgb(255, 0, 0); color:#FFF">Lorem ipsum dolor sit amet, consectetur adipiscing elit.
Pellentesque feugiat mi sed arcu feugiat blandit. Curabitur feugiat vulputate massa, id rhoncus leo mollis condimentum.
Aenean in aliquam ligula. Cras vitae vehicula dolor. Pellentesque...

So the problem is that the html style tags used in the cropped part mostly doesn't have any close tags. So the whole page layout gets broken.
To strip the <p> and some other is easy but what about the <span style="... ?

Someone a solution?

[fons]

A 99% solution for anyone who has the same problem:

Code:

Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function

Code:

<%=CropSentence(RemoveHTML( CI_StripHTML(rsArticles.Fields.Item("BlogHTML").Value)), 500, "...")%>