Print Page | Close Window

[MOD-RTE] Create Summary ;)

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Rich Text Editor (RTE)
Forum Description: Support forum for the Web Wiz Rich Text Editor (RTE).
URL: https://forums.webwiz.net/forum_posts.asp?TID=14351
Printed Date: 28 March 2026 at 2:20pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: [MOD-RTE] Create Summary ;)
Posted By: superlative
Subject: [MOD-RTE] Create Summary ;)
Date Posted: 21 March 2005 at 9:44am
Hi Everyone;
 
 
 

'****DO NOT REMOVE THESE LINES*****

'Eliminate some HTML tags Function...

'Written by Kaan DOGAN aka Superlative

'www.kaan.tk - http://www.knowhow.gen.tr - www.knowhow.gen.tr

'*******************************
'Text is your html source value

Text = Trim(Mid(Text,1,500))

'You can add some html tags to bellow array for exclude some tags

TermX = Array("<img","<a href","<b","</a","</b","</p","<p")
pos1=1

skipchar=0
Do
pos1 = InStr(pos1, Text, "<")
If pos1<>0 then
     pos2 = InStr(pos1, Text, ">")+1

     If pos2=1 then pos2 = Len(Text)+1 

     temp_term=Mid(Text,pos1,pos2-pos1)

     skipchar = 0
 
    For i=0 to ubound(TermX)

         If Trim(Mid(temp_term,1,len(TermX(i)))) = TermX(i) then skipchar=1

     Next
 
 If skipchar=0 then

  Text = Replace(Text,Temp_Term,"")

  Else

  pos1=pos1+1

  End if
End if
Loop Until pos1=0
 
Thats All !! Tongue This is gift from me for RTE users..


-------------
http://www.knowhow.gen.tr" rel="nofollow">



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net