Web Wiz Forums Modifications - Request : hide tag.

Print Page | Close Window

Request : hide tag.

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=26029
Printed Date: 28 March 2026 at 10:57am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Request : hide tag.

Posted By: zadax
Subject: Request : hide tag.
Date Posted: 28 July 2008 at 10:41pm

using it on my v7.

can anyone make a new mod for 9.5 ?

for new comers :
the Hide tag make everting between
You must be a registered member and post a reply in this topic to view the hidden content within this post!
shows text/pic instead its contect
contect will show only if user will replay...

so whos going to do it ? :)

Thanks button also will be great :)

Replies:

Posted By: zadax
Date Posted: 30 July 2008 at 11:51am

here how i done it in ver 7

if Str_Mem_Posted = "No" or intGroupID = 2 then
if InStr(1, strMessage, "[hide]", 1) > 0 then
Dim lngEndhidePos,lngStarthidePos ,strhideAuthor ,strhideMessage ,strBuildhide ,strOriginalhide
Do While InStr(1, strMessage, "[hide]", 1) > 0 AND InStr(1, strMessage, "[/hide]", 1) > 0

lngStarthidePos = InStr(1, strMessage, "[hide]", 1) + 6
lngEndhidePos = InStr(lngStarthidePos, strMessage, "]", 1)

If lngStarthidePos > 5 AND lngEndhidePos > 0 Then
   strhideAuthor = Trim(Mid(strMessage, lngStarthidePos, lngEndhidePos-lngStarthidePos))
End If

lngStarthidePos = lngStarthidePos + Len(strhideAuthor) + 1
lngEndhidePos = InStr(lngStarthidePos, strMessage, "[/hide]", 1)

If lngEndhidePos - lngStarthidePos =< 0 Then lngEndhidePos = lngStarthidePos + Len(strhideAuthor)

If lngEndhidePos > lngStarthidePos Then
   strhideMessage = Trim(Mid(strMessage, lngStarthidePos, lngEndhidePos-lngStarthidePos))
   strhideAuthor = Replace(strhideAuthor, """", "", 1, -1, 1)
   strBuildhide = strhideMessage
End If

lngStarthidePos = InStr(1, strMessage, "[hide]", 1)
lngEndhidePos = InStr(lngStarthidePos, strMessage, "[/hide]", 1) + 7

If lngEndhidePos - lngStarthidePos =< 5 Then lngEndhidePos = lngStarthidePos + Len(strhideAuthor) + 7

strOriginalhide = Trim(Mid(strMessage, lngStarthidePos, lngEndhidePos-lngStarthidePos))

If strBuildhide <> "" Then
   strMessage = Replace(strMessage, strOriginalhide, "<a href='#reply'><img src=hide2007.jpg border=0></a>", 1, -1, 1)
Else
   strMessage = Replace(strMessage, strOriginalhide, Replace(strOriginalhide, "[", "[", 1, -1, 1), 1, -1, 1)
End If
Loop

End If
elseif Str_Mem_Posted = "Yes" then
if InStr(1, strMessage, "[hide]", 1) > 0 then
   strMessage= Replace(strMessage, "[hide]", "", 1, -1, 1)
   strMessage= Replace(strMessage, "[/hide]", "", 1, -1, 1)
End If
End If

thats code in "forum_posts.asp" .

comon guys .. you know how the new v9 structure is i dont .. need asp pros for it to make it work with v9