Web Wiz Rich Text Editor (RTE) - [MOD-RTE] Create Summary ;)

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;

I ask How to create summary... in yesterday 5.53 PM. I worked about 23-24 hours for eliminate some html tags for summary. I resolve this problem and I want to share this with you. I wrote this code and resolve my summary problem. Please protect copyright lines. This is not only for RTE. You can use this any Text...

@Admins : You can do sticky topic or lock, and you can promote me Big smile

Big smile

mod builder group :) I wrote another mod for RTE : [MOD-RTE] Give home folder to users If this message view as dirty (appear scroolbar for code tag reason) I can edit and correct.


'****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 !! 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