Web Wiz - Green Windows Web Hosting

  New Posts New Posts RSS Feed - stripcode options.
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

stripcode options.

 Post Reply Post Reply
Author
Badaboem View Drop Down
Senior Member
Senior Member


Joined: 12 April 2002
Location: Netherlands
Status: Offline
Points: 600
Post Options Post Options   Thanks (0) Thanks(0)   Quote Badaboem Quote  Post ReplyReply Direct Link To This Post Topic: stripcode options.
    Posted: 07 June 2003 at 2:38am

Is it possible to adjust the stripcode function so it only displays the first image and say the first three hyperlinks in a forum post?

This would come in handy creating modified versions of the news mod (in order to create tutotials sections etc).

 

Function StripCode(strInput)
  'This function will remove any HTML in the given string
  strStripped = strInput

  intStart = InStr(1, strStripped, "<")
  Do While intStart <> 0
    intEnd = InStr(intStart, strStripped, ">")
    strStripped = Left(strStripped, intStart - 1) & Mid(strStripped, intEnd + 1)
    intStart = InStr(intStart + 1, strStripped, "<")
  Loop

  StripCode = strStripped
End Function

Back to Top
kiekeboe View Drop Down
Newbie
Newbie
Avatar

Joined: 19 April 2002
Location: Netherlands
Status: Offline
Points: 4
Post Options Post Options   Thanks (0) Thanks(0)   Quote kiekeboe Quote  Post ReplyReply Direct Link To This Post Posted: 07 June 2003 at 7:16am

Regular expressions do a good job:

Function stripHTML(strHTML)

  Dim objRegExp, strOutput
  Set objRegExp = New Regexp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<(.|\n)+?>"
  strHTML = objRegExp.Replace(strHTML, "")

  objRegExp.Pattern = "&lt;.&gt;|&lt;..&gt;"
  strOutput = objRegExp.Replace(strHTML, "")

  stripHTML = strOutput    'Return value of strOutput

  Set objRegExp = Nothing 

End Function

 

Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.08
Copyright ©2001-2026 Web Wiz Ltd.


Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Notice

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT at 20% unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2026 Web Wiz Ltd. All rights reserved.