I think your going about it the wrong way.
I would copy the "ReplaceURLs" function in "inc_func_common" and rename it, "ReplaceTags" or what ever you want. Then change these lines
oTag = "[ url="""
c1Tag = """]"
oTag2 = "[ url ]"
c2Tag = "[ /url ]"
roTag = "<a href="""
rc1Tag = """ target=""_blank"">"
rc2Tag = "</a>"
and change them to what you need
oTag = "[tag="""
c1Tag = """]"
oTag2 = "[tag]"
c2Tag = "[/tag]"
roTag = "<a href="""
rc1Tag = """ target=""_blank"" add you html here>"
rc2Tag = "</a>"
I searched through it and you'll need to change this line to
'if the closing url tag is found in the string and
'[ URL ] is not found in the string then...
If InStr(1, strArray2(1), c2Tag, 1) And _
Not InStr(1, UCase(strArray2(1)), "[ URL ]", 1) Then
Change that to [TAG] - uppercase.
Then you can call it in the formatrStr() function
if strAllowForumCode = "1" then
fString = ReplaceURLs(fString)
fString = ReplaceTags(fString)
fString = ReplaceCodeTags(fString)
if strIMGInPosts = "1" then
fString = ReplaceImageTags(fString)
end if
end if
that way you'll have 2 functions "ReplaceURLs()" for your regular links and "ReplaceTags()" to deal with you special links.
There may be more to it than this, but it's a start.
<
Adding CSS to links
Posted - 07 June 2008 : 21:35:19
