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.
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:
around line 88 and above this line add following:
Done with the inc_func_posting.asp...
post.asp
now open post.asp Find following line around Line 328:
Replace it with following:
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 :
Replace it with following :
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.<
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 FunctionDone 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") & vbNewlineReplace it with following:
Code:
TxtMsg = TxtMsg & "[br]" & CleanQuotes(rs("R_MESSAGE")) & vbNewlineFollowing 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") & vbNewlineReplace it with following :
Code:
TxtMsg = TxtMsg & "[br]" & CleanQuotes(rs("T_MESSAGE")) & vbNewlineAnd 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.<
نوشته شده در
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.<
Having said that, your solution does appear to be a bit more elegant than what I remember seeing.<
نوشته شده در
Looks pretty clean and well documented! Nice work SiSL!
This certainly looks like one I should implemented on oxle!
<
نوشته شده در
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".<
نوشته شده در
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:
Example: http://oxle.com/topic.asp?tid=5313 (demo/demo when prompted for a password)<
Imagine a post like this, with multiple quotes in the post:
(between the *****'s)
***** You said this:
other blaRemember? ***** 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)<
نوشته شده در
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.<