quote:

---

Originally posted by MarcelG

squek, excuse me for saying this, but this code is the EXACT code I used in my mod, of mid last year.
The QuoteTD, QuoteTD2 and QuoteText are the same style classes used for 'my' quote code, and almost the entire how-to is the same as my post on this.
Except, your how to refers to the 'Italian' version.

I'm not entirely sure what point you are trying to make with this 'new mod', especially since I updated my own mod 6 days ago, to use DIV's instead of these TD's (which, as I said, were used in my first version of this mod.)
I know that this piece of software is open source, but posting a mod made by someone else as your own - even one as simple as this one - is kind of....strange.

---

quote:

---

The last part of your post - the question - is also not entirely clear to me. What are you trying to do ?

---

That's probably because my english is so poor...
I'll try to explain it better.

Well, in phpBB bullettin when you quote someone else's post clicking on the replyquote button you have this forum code in the posting window:




I was wondering if it is possible to have the same forum code in snitz, because if I use the mod above (YOUR mod, at least...) I have this forum code in the posting window:

[*quote][*b]Guy wrote[*/b][*br]His message[*/quote] And here you write your message....

And very often the users of my forum (most of them are newbies...) delete part of the code accidentally when they answer, probably because there's all that b, /b, br which are not so simple to understand for someone who is not so familiar with bullettins.

Also, the string that says "Guy wrote" in phpBB is outside the quoted text, vertically aligned to it and in the same size, as the image I've added above (that's is particulary pratical when you have a multi quoted message, because it appears simpler who is quoting who).

That's all, I was only wondering if there's a way to obtain this.


P.S.: I've edited my post here and on OneWayMule with the correct credits for the mod. Sorry again.

Function ReplaceQuotes(ByVal strToFormat)
	Dim oTag, c1Tag, c2Tag
	Dim roTag, rc1Tag, rc12Tag, rc2Tag
	Dim oTagPos, c1TagPos, oTagPos2, c1TagPos2
	Dim Counter
	Dim strArray, strArray2
	Dim strFirstPart, strSecondPart

	oTag = "[quote='"
	c1Tag = "']"
	c2Tag = "[/quote]"

	roTag = "<div class=""quoteboxhead"">"
	rc1Tag = " ha scritto</div><div class=""quotebox"">"
	rc2Tag = "</div>"

	oTagPos = InStr(1, strToFormat, oTag, 1) 'Position of opening tag
	c1TagPos = InStr(1, strToFormat, c1Tag, 1) 'Position of closing tag

	'if opening tag and closing tag is found...
	If (oTagpos > 0) And (c1TagPos > 0) Then
		'Split string at the opening tag
		strArray = Split(strToFormat, oTag, -1, 1)
		
		'Loop through array
		For Counter = 0 To UBound(strArray)
			'if the closing tag is found in the string then...
			If (InStr(1, strArray(Counter), c1Tag, 1) > 0) Then
				'split string at the closing tag...
				strArray2 = Split(strArray(Counter), c1Tag, -1, 1)
				strArray2(0) = replace(strArray2(0), """", """) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), "(c)", "©", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), "(r)", "®", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), "(tm)", "™", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), ">", ">", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), "<", "<", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), vbTab, " ", 1, -1, 1) ' ## filter out Tabs
				strArray2(0) = replace(strArray2(0), "view-source", " ", 1, -1, 1) ' ## filter out view-source
				strArray2(0) = replace(strArray2(0), "javascript", " ", 1, -1, 1) ' ## filter out javascript
				strArray2(0) = replace(strArray2(0), "jscript", " ", 1, -1, 1) ' ## filter out jscript
				strArray2(0) = replace(strArray2(0), "vbscript", " ", 1, -1, 1) ' ## filter out vbscript

				'if the closing url tag is found in the string
				If InStr(1, strArray2(1), c2Tag, 1) then

					strFirstPart = Left(strArray2(1), InStr(1, strArray2(1), c2Tag, 1)-1)
					strSecondPart = Right(strArray2(1), (Len(strArray2(1)) - Instr(1, strArray2(1), c2Tag,1) - len(c2Tag)+1))

					ReplaceQuotes = ReplaceQuotes & roTag & strArray2(0) & rc1Tag & strFirstPart & rc2Tag & strSecondPart
				Else
					ReplaceQuotes = ReplaceQuotes & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1)
				End If
			Else
				ReplaceQuotes = ReplaceQuotes & strArray(Counter)
			End If
		Next
	Else
		ReplaceQuotes = strToFormat
	End If
End Function

fString = extratags(fString)

fString = ReplaceQuotes(fString)

fString = ReplaceQuotes(fString)

fString = extratags(fString)

if strAllowForumCode = "1" then
		fString = ReplaceQuotes(fString)
		fString = extratags(fString)
	end if

	roTag = "<td class=""quotetd"">"
	rc1Tag = " ha scritto: </td><td class=""quotetd2"">"
	rc2Tag = "</td>"

	oTag = "[quote=" & chr(34)
	c1Tag = chr(34) & "]"
	c2Tag = "[/quote]"

oTag = "[quote='"
	c1Tag = "']"
	c2Tag = "[/quote]"

oTag = "[quote=" & chr(34)
	c1Tag = chr(34) & "]"
	c2Tag = "[/quote]"

quote:

---

Originally posted by Shaggy

You'll need to modify the function that inserts the [quote] tags in inc_code.js as well.

---

quote:

---

Originally posted by squek

quote:

---

Originally posted by Shaggy

You'll need to modify the function that inserts the [quote] tags in inc_code.js as well.

---

How?

---

Function ReplaceQuotes(ByVal strToFormat)
	Dim oTag, c1Tag, c2Tag
	Dim roTag, rc1Tag, rc12Tag, rc2Tag
	Dim oTagPos, c1TagPos, oTagPos2, c1TagPos2
	Dim Counter
	Dim strArray, strArray2
	Dim strFirstPart, strSecondPart

	oTag = "[quote=" & chr(34)
	c1Tag = chr(34) & "]"
	'c2Tag = "[/quote]"

	roTag = "<div class=""quoteboxhead""><b>"
	rc1Tag = " quote:</b></div class=""quoteboxhead""><div class=""quotebox"">"
	'rc2Tag = "</div id=""quotebox""">"

	oTagPos = InStr(1, strToFormat, oTag, 1) 'Position of opening tag
	c1TagPos = InStr(1, strToFormat, c1Tag, 1) 'Position of closing tag

	'if opening tag and closing tag is found...
	If (oTagpos > 0) And (c1TagPos > 0) Then
		'Split string at the opening tag
		strArray = Split(strToFormat, oTag, -1, 1)
		
		'Loop through array
		For Counter = 0 To UBound(strArray)
			'if the closing tag is found in the string then...
			If (InStr(1, strArray(Counter), c1Tag, 1) > 0) Then
				'split string at the closing tag...
				strArray2 = Split(strArray(Counter), c1Tag, -1, 1)
				strArray2(0) = replace(strArray2(0), """", """) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), "(c)", "©", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), "(r)", "®", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), "(tm)", "™", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), ">", ">", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), "<", "<", 1, -1, 1) ' ## replace by entity equivalent
				strArray2(0) = replace(strArray2(0), vbTab, " ", 1, -1, 1) ' ## filter out Tabs
				strArray2(0) = replace(strArray2(0), "view-source", " ", 1, -1, 1) ' ## filter out view-source
				strArray2(0) = replace(strArray2(0), "javascript", " ", 1, -1, 1) ' ## filter out javascript
				strArray2(0) = replace(strArray2(0), "jscript", " ", 1, -1, 1) ' ## filter out jscript
				strArray2(0) = replace(strArray2(0), "vbscript", " ", 1, -1, 1) ' ## filter out vbscript

				'if the closing url tag is found in the string
				If InStr(1, strArray2(1), c2Tag, 1) then

					strFirstPart = Left(strArray2(1), InStr(1, strArray2(1), c2Tag, 1)-1)
					strSecondPart = Right(strArray2(1), (Len(strArray2(1)) - Instr(1, strArray2(1), c2Tag,1) - len(c2Tag)+1))

					ReplaceQuotes = ReplaceQuotes & roTag & "Quoted from : " & strArray2(0) & rc1Tag & strFirstPart & rc2Tag & strSecondPart
				Else
					ReplaceQuotes = ReplaceQuotes & roTag & "Quoted from : " & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1)
				End If
			Else
				ReplaceQuotes = ReplaceQuotes & strArray(Counter)
			End If
		Next
	Else
		ReplaceQuotes = strToFormat
	End If
	ReplaceQuotes = Replace(Replace(ReplaceQuotes,"[/quote]","</div>"),"[quote]","<div class=""quoteboxhead""><b>quote:</b></div><div class=""quotebox"">")
End Function