Spoiler Tag Links - 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.

Spoiler Tag Links - Posted 14 Jun 2008 07:30 (2991 Views)

leatherlips

Senior Member

Posts: 1838

1838

If you place a link inside of a spoiler tag, it is not hidden. I am trying to figure out how to make links hidden like the regular text is. I've tried a couple of things so far but they are not working.
Here is one thing I've tried (the part in red is what I've added():

fString = doCode(fString, "Reveal hidden content", "", "<font color=""" & CColor & """>", "</font id=""" & CColor & """>", "<a:link=""" & CColor & """>")

It doesn't work. Can a link be hidded in a spoiler tag? If so, how can it be done?
Edit: I had to put a space after the two spoiler references above to keep them visible. My code does not have those spaces in them.

Last edited by leatherlips on 14 June 2008, 07:35

Posted 27 Jan 2012 06:04

leatherlips

Senior Member

Posts: 1838

1838

I had the wrong tag in the code above. Try it again. You will need to change the two sections that say spoilerCODE to spoiler. I had to do that or else it was being hidden.

Posted 27 Jan 2012 09:07

Carefree

Advanced Member

Posts: 4224

4224

Originally posted by leatherlips
I had the wrong tag in the code above. Try it again. You will need to change the two sections that say spoilerCODE to spoiler. I had to do that or else it was being hidden.

Like this, Giumer (delete the bits in red):

Code:


if mLev=0 and inStr(fString,"[spoiler") then
	for i = 1 to len(fString)
		if mid(fString,i,6)="[spoilerCODE]" then ij=i
		if mid(fString,i,7)="[/spoilerCODE]" then
			ik=i
			strTextString=left(fString,ij-1)+"<a href=""register.asp"">You must login or register to see this content.</a>"+mid(fString,ik+7)
		end if
	next
	strTempString=strTextString
end if

Last edited by Carefree on 27 January 2012, 09:09

Posted 27 Jan 2012 09:31

Giumer

Junior Member

Posts: 163

163

I figured if I insert it so? :

Code:

if mLev=0 and inStr(fString,"[spoiler") then
	for i = 1 to len(fString)
		if mid(fString,i,6)="[spoilerCODE]" then ij=i
		if mid(fString,i,7)="[/spoilerCODE]" then
			ik=i
			strTextString=left(fString,ij-1)+"<a href=""register.asp"">You must login or register to see this content.</a>"+mid(fString,ik+7)
		end if
	next
	strTempString=strTextString
end if

function extratags(fString)
fString = doCode(fString, "", "
", "<div class=""quoteboxhead"">" & fLang("strLangI_F_Common00780") & "</div><div class=""quotebox"">", "</div>")
fString = doCode(fString, "[spoiler2]", "[/spoiler2]", "<font color=""" & CColor & """>", "</font id=""" & CColor & """>")
fString = doCode(fString, "Reveal hidden content", "", "<div style=""margin:1em auto; width: 100%;"">" & vbNewline & " <div><b> Spoiler: </b><input type=""button"" value=""Show"" style=""width:45px;font-size:10px;margin:0px;padding:0px;"" onclick=""if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = '';this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }"" /></div>" & vbNewline & " <div style=""margin: 0px; padding: 0px; border: 1px solid; border-color: #333399;"">" & vbNewline & " <div style=""display: none;"">" & vbNewline, " </div>" & vbNewline & " </div>" & vbNewline & "</div>" & vbNewline)
extratags = fString
end function

=======================
http://www.Giumer.it/forum

=======================

Last edited by Giumer on 27 January 2012, 09:32

Posted 27 Jan 2012 12:22

Giumer

Junior Member

Posts: 163

163

ok I understand that you must enter the code
here:

Code:

fString = doCode(fString, "Reveal hidden content", "", "<div style=""margin:1em auto; width: 100%;"">" & vbNewline & " <div><b> Spoiler: </b><input type=""button"" value=""Show"" style=""width:45px;font-size:10px;margin:0px;padding:0px;"" onclick=""if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != ''){ this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = '';this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }"" /></div>" & vbNewline & " <div style=""margin: 0px; padding: 0px; border: 1px solid; border-color: #333399;"">" & vbNewline & " <div style=""display: none;"">" & vbNewline, "  </div>" & vbNewline & " </div>" & vbNewline & "</div>" & vbNewline)

and do I integrate this code

Code:

<a href=""register.asp"">You must login or register to see this content.</a>

I tried in every way by entering what you suggested, but if dislocates comes out the words, but this code and java?

=======================
http://www.Giumer.it/forum

=======================

Posted 27 Jan 2012 15:10

Carefree

Advanced Member

Posts: 4224

4224

Giumer, post a link to your "inc_func_common.asp" in .txt format and we'll edit it for you.

Posted 27 Jan 2012 22:21

Giumer

Junior Member

Posts: 163

163

http://www.giumer.it/public/filesText/inc_func_common.txt

=======================
http://www.Giumer.it/forum

=======================

Posted 01 Feb 2012 07:09

Giumer

Junior Member

Posts: 163

163

wow mod finish visible oly membner thx ian

=======================
http://www.Giumer.it/forum

=======================

Posted 05 Feb 2012 05:53

Giumer

Junior Member

Posts: 163

163

ok http://www.giumer.it/forum/topic.asp?rand=6760591&TOPIC_ID=292

spoiler visible only member code is this

[code]function extratags(fString)
fString = doCode(fString, "[quote]", "[/quote]", "<div class=""quoteboxhead"">" & fLang("strLangI_F_Common00780") & "</div><div class=""quotebox"">", "</div>")
fString = doCode(fString, "[spoiler2]", "[/spoiler2]", "<font color=""" & CColor & """>", "</font id=""" & CColor & """>")
if mLev >= 1 then
fString = doCode(fString, "[spoiler]", "[/spoiler]", "<div style=""margin:1em auto; width: 100%;"">" & vbNewline & " <div><b> Spoiler: </b><input type=""button"" value=""Show"" style=""width:45px;font-size:10px;margin:0px;padding:0px;"" onclick=""if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != ''){ this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = '';this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }"" /></div>" & vbNewline & " <div style=""margin: 0px; padding: 0px; border: 1px solid; border-color: #333399;"">" & vbNewline & " <div style=""display: none;"">" & vbNewline, " </div>" & vbNewline & " </div>" & vbNewline & "</div>" & vbNewline)
else
fString = doCode(fString, "[spoiler]", "[/spoiler]", "<div style=""margin:1em auto; width: 100%;"">" & vbNewline & " <div><b> Spoiler: </b><a href=""policy.asp""><B>" & fLang("strLangRegister00560") & "</B></div>" & vbNewline & " <div style=""margin: 0px; padding: 0px; border: 1px solid; border-color: #333399;"">" & vbNewline & " <div style=""display: none;"">" & vbNewline, " </div>" & vbNewline & " </div>" & vbNewline & "</div>" & vbNewline)
end if
extratags = fString
end function[/code]

=======================
http://www.Giumer.it/forum

=======================