No more Nested quotes - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

No more Nested quotes - Posted 04 Jun 2008 19:00 (4771 Views)

SiSL

Average Member

Posts: 671

671

Ok been long time since I've had with the mods, here is my little mod (I'm not sure if it has been made before)

NMNQ MOD 1.0
This mod removes internal quotes of a quoted post. In other words, when you quote a message that has quoted another, you won't get previously quoted message inside, therefor removes cluttering chain quotes (ofcourse if done on purpose that's whole another reason)

Download: No More Nested Quotes
INSTALL
It is very simple process really. Two files modified.

inc_func_posting.asp
Find following line:

Code:

function CleanCode(fString)

around line 88 and above this line add following:

Code:

Function CleanQuotes(fString)
	if fString <> "" AND IsNull(fstring) = False Then
		set re = new RegExp
		re.pattern = "\[quote(?:(?!\[quote)([\s\S]))+?(\[/quote\]\n\r|\\n|\)"
		re.ignorecase = true
		re.global = true

		set matches = re.execute(fstring) 
		totalMatches =  matches.count
		if totalMatches <> 0 Then
			Do While totalMatches <> 0
				For each match in matches
					fstring = re.Replace(fstring,"")
				Next
				if totalMatches = 0 Then
					Exit Do
				End If
				set matches = re.execute(fString)
				totalMatches =  matches.count 	
			Loop	
		End If
		set matches = nothing
		set re=nothing
	
		CleanQuotes = fstring
	Else
		CleanQuotes = fstring
	End If
End Function

Done with the inc_func_posting.asp...
post.asp
now open post.asp Find following line around Line 328:

Code:

TxtMsg = TxtMsg & "[br]" & rs("R_MESSAGE") & vbNewline

Replace it with following:

Code:

TxtMsg = TxtMsg & "[br]" & CleanQuotes(rs("R_MESSAGE")) & vbNewline

Following change is OPTIONAL. Generally topics are not quoted, but may be quote stuff inside, so you may not add it if you find it necessary or not. But here it goes: Find following line around line 355 :

Code:

TxtMsg = TxtMsg & "[br]" & rs("T_MESSAGE") & vbNewline

Replace it with following :

Code:

TxtMsg = TxtMsg & "[br]" & CleanQuotes(rs("T_MESSAGE")) & vbNewline

And voila ;) Now you won't get anymore annoying quote in quote in quote in quote over and over...

http://www.chip.com.tr/forum

Credits: Thanks to Carefree for taking risks to test this piece of code and preparing the file for download and MarcelG for all previous tries.<

Last edited by SiSL on 12 December 2008, 01:22

Posted 04 Jun 2008 21:41

AnonJr

Forum Moderator

Posts: 5768

5768

I do believe that I've seen it done around here before - or at least I've seen some discussion on it.
Having said that, your solution does appear to be a bit more elegant than what I remember seeing.<

Posted 05 Jun 2008 02:10

MarcelG

Retired Support Moderator

Posts: 2625

2625

Looks pretty clean and well documented! Nice work SiSL! This certainly looks like one I should implemented on oxle! <

portfolio - linkshrinker - oxle - twitter

Posted 05 Jun 2008 03:10

Carefree

Advanced Member

Posts: 4224

4224

I like it. I always ended up having to manually delete 95% of the quotes (when it was necessary for me to quote someone) so the message stayed readable. Maybe you should have called it "No More Nested Quotes".<

Last edited by Carefree on 05 June 2008, 03:10

Posted 05 Jun 2008 06:26

MarcelG

Retired Support Moderator

Posts: 2625

2625

SiSL, it doesn't seem to work as I expected.
Imagine a post like this, with multiple quotes in the post:
(between the *****'s)

***** You said this:

other bla

Remember? ***** Eg. the quotes are not removed when there's more than one in R_MESSAGE...

Example: http://oxle.com/topic.asp?tid=5313 (demo/demo when prompted for a password)<

portfolio - linkshrinker - oxle - twitter

Last edited by MarcelG on 05 June 2008, 06:40

Posted 05 Jun 2008 09:58

bobby131313

Senior Member

Posts: 1163

1163

I removed the reply with quote icon looooong ago for this reason. Hell I had one member with over 250 posts or so and I couldn't find one of his post that didn't quote an entire post whether it already had multiples or not.<

Switch the order of your title tags