")
fontTagExists = true
end if
if instr(sbody,"[font=") then
objRegExp.pattern = "\[font\=(\"\;|\')(.+?)\1\]"
sbody = objRegExp.Replace(sbody,"")
fontTagExists = true
end if
if fontTagExists then
objRegExp.pattern = "\[\/(?:font|size|color)\]"
sbody = objRegExp.Replace(sbody,"")
end if
Dim validURIChars:validURIChars = "\w\%\;\/\?\:\@\&\=\+\$\,\-\.\!\~\*\'\(\)\#"
Dim validURIPrefix:validURIPrefix = "(?:ftp|https?)\:\/\/"
'Auto Linking'
objRegExp.pattern = "\s(\w+\@\w+\.[a-zA-Z]{2,4})"
sbody = objRegExp.Replace(sbody," $1")
objRegExp.pattern = "\s("&validURIPrefix&"["&validURIChars&"]+)"
sbody = objRegExp.Replace(sbody," $1")
objRegExp.pattern = "\s([wW]{3}\.["&validURIChars&"]+)"
sbody = objRegExp.Replace(sbody," $1")
'Link w/ w/o Name'
if instr(sbody,"[link") or instr(sbody,"[url") then
objRegExp.pattern = "\[(url|link)\=(\"\;|\')?("&validURIPrefix&".+?)\2\](.+?)\[\/\1\]"
sbody = objRegExp.Replace(sbody,"$4")
objRegExp.pattern = "\[(url|link)\=?\]("&validURIPrefix&".+?)\[\/\1\]"
sbody = objRegExp.Replace(sbody,"$2")
end if
Dim imgStart, imgEnd : imgStart = " ![]()
"
'Image Tags Replace'
if instr(sbody,"[image]") or instr(sbody,"[img]") and (NoImage<>"1") then
objRegExp.pattern = "\[(im(?:g|age))\]((?:https?\:\/\/).+?)\[\/\1\]"
sbody = objRegExp.Replace(sbody,imgStart&"$2"&""""&imgEnd)
if instr(sbody,"]local://") then
objRegExp.pattern = "\[(im(?:g|age))\](?:local\:\/\/)(.+?)\[\/\1\]"
sbody = objRegExp.Replace(sbody,imgStart®expForumDir&"$2"""&imgEnd)
end if
end if
'Smiley Faces'
imgStart = imgStart®expForumDir
if NoSmile <> "1" then
Dim arrSmile, iSmile: arrSmile = Array("","[:)]","[:D]","[8D]","[;)]","[&:]","[:@]","[:(]","[:'(]","[>:]","[:o]","[X(]","[:-]","[8|]","[&o]")
if instr(sbody,"[sm=") then
objRegExp.pattern = "\[sm\=(.+?)\]"
sbody = objRegExp.Replace(sbody,imgStart&"upfiles/smiley/$1"""&imgEnd)
end if
for iSmile = 1 to ubound(arrSmile)
if instr(sbody,arrSmile(iSmile)) then sbody = replace(sbody,arrSmile(iSmile),imgStart&"image/s"&iSmile&".gif"""&imgEnd)
next
end if
'Finish Code Pre Tag'
if proceedWithCodeTagTransformation then
for im=0 to imatch
sbody = replace(sbody,chr(1)&im&chr(1),replace(replace(replace(matchg(im),"[/code]",""),"[code]",""),"
",vbcrlf),1,1,vbBinaryCompare)
next
Erase matchg
end if
vbPGDCode2 = sbody
end function
function PGDCodeResolution(byVal objPGDCode, byVal Body, enablePGDCode) 'generally input the SQLOuted string here'
body = replace(space(1)&body, vbcrlf, "
")
if enablePGDCode = 1 then
PGDCodeResolution = vbPGDCode2(objPGDCode,body,NoImage,NoSmile,finalKeysToHighLite,finalBadWordToBan,forumdir)
else
PGDCodeResolution = body
end if
end function
%>