Web Wiz Support and Community Forums : Strip Post

Strip Post : Any idea's or hints?

Fri, 21 May 2004 11:06:03 +0000

Author: Rebel Gaa
Subject: 10296
Posted: 21 May 2004 at 11:06am

Any idea's or hints?

Strip Post : The following code strips html...

Thu, 20 May 2004 10:06:26 +0000

Author: Rebel Gaa
Subject: 10296
Posted: 20 May 2004 at 10:06am

The following code strips html from text. Any ideas how i could change the code so it will strip some html and not others eg remove tag but leave
tags.

------------------------------------------------------------ -------

Private Function removeHTML(ByVal strMessageInput)

Dim lngMessagePosition
Dim intHTMLTagLength
Dim strHTMLMessage
Dim strTempMessageInput

strTempMessageInput = strMessageInput

For lngMessagePosition = 1 to CLng(Len(strMessageInput))

If Mid(strMessageInput, lngMessagePosition, 1) = "" Then Exit For

If Mid(strMessageInput, lngMessagePosition, 1) = "<" Then

   intHTMLTagLength = (InStr(lngMessagePosition, strMessageInput, ">", 1) - lngMessagePosition)

      If intHTMLTagLength < 0 Then intHTMLTagLength = CLng(Len(strTempMessageInput))

strHTMLMessage = Mid(strMessageInput, lngMessagePosition, intHTMLTagLength + 1)

   strTempMessageInput = Replace(strTempMessageInput, strHTMLMessage, "", 1, -1, 0)

  End If
Next

'Replace a few characters in the remaining text
strTempMessageInput = Replace(strTempMessageInput, "<", "<", 1, -1, 1)
strTempMessageInput = Replace(strTempMessageInput, ">", ">", 1, -1, 1)
strTempMessageInput = Replace(strTempMessageInput, "'", "", 1, -1, 1)
strTempMessageInput = Replace(strTempMessageInput, """", """, 1, -1, 1)
strTempMessageInput = Replace(strTempMessageInput, " ", " ", 1, -1, 1)
         strTempMessageInput = Replace(strTempMessageInput, "�", "", 1, -1, 1)
         strTempMessageInput = Replace(strTempMessageInput, "^", "", 1, -1, 1)
         strTempMessageInput = Replace(strTempMessageInput, "~", "", 1, -1, 1)
strTempMessageInput = Replace(strTempMessageInput, "�", "", 1, -1, 1)

'Return the function
removeHTML = strTempMessageInput
End Function

------------------------------------------------------------ -------

Strip Post : Cheers boRg, much appreciated....

Wed, 05 May 2004 05:59:51 +0000

Author: Rebel Gaa
Subject: 10296
Posted: 05 May 2004 at 5:59am

Cheers boRg, much appreciated.

Strip Post : In the include file 'functions_filters.asp'...

Wed, 05 May 2004 05:54:39 +0000

Author: WebWiz-Bruce
Subject: 10296
Posted: 05 May 2004 at 5:54am

In the include file 'functions_filters.asp' there is a function calledremoveHTML that is used to display the contents of a topic if you hoverthe mouse over the link to the topic on the page displaying all thetopics.

This function could be used to do what you require.

Strip Post : Apologies if this sounds a stupid...

Wed, 05 May 2004 05:43:07 +0000

Author: Rebel Gaa
Subject: 10296
Posted: 05 May 2004 at 5:43am

Apologies if this sounds a stupid question.

What i want to do is display the last post on my site outside the forum. (the actual message part) At the moment i have it set up to do so and its displaying the last post, no problem. My problem with it is, it also displays the avatars, quotes etc. I want to strip all this off and display just the core text. Is their anyway of doing this?

Thanks