UBB 转换函数演示

 if strIcons = "1" then                       '笑脸转换
 re.Pattern="(\["&ImgName&"(.*?)\])"
 strContent=re.Replace(strContent,"<img src="/Files/BeyondPic/chinazcj/2005-11/20/05112015520397032.gif" border=0 align=middle>")
 end if

 if strSmile = "1" then                       '笑脸转换
 re.Pattern="(\[s(\d{1,2})\])"
 strContent=re.Replace(strContent,"<img src="/Files/BeyondPic/chinazcj/2005-11/20/05112015514850111.gif" border=0 align=middle>")
 end if

 re.Pattern="(\[color=(.[^\[]*)\])(.*?)(\[\/color\])"
 strContent=re.Replace(strContent,"<font color=$2 style=""font-size:"&FontSize&"pt;line-height:"&FontHeight&"pt"">$3</font>")
 re.Pattern="(\[face=(.[^\[]*)\])(.*?)(\[\/face\])"
 strContent=re.Replace(strContent,"<font face=$2 style=""font-size:"&FontSize&"pt;line-height:"&FontHeight&"pt"">$3</font>")
 re.Pattern="(\[align=(.[^\[]*)\])(.*?)(\[\/align\])"
 strContent=re.Replace(strContent,"<div align=$2>$3</div>")
'循环转换quote
 re.Pattern="(\[QUOTE\])(.*?)(\[\/QUOTE\])"
 while (instr(strContent,"[quote]")>0 and instr(strContent,"[/quote]")>0)
 strContent=re.Replace(strContent,"<blockquote>引用:<hr><span>$2</span><hr></blockquote>")
 wend
 re.Pattern="(\[fly\])(.*?)(\[\/fly\])"
 strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$2</marquee>")
 re.Pattern="(\[move\])(.*?)(\[\/move\])"
 strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$2</marquee>") 
 re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/GLOW]"
 strContent=re.Replace(strContent,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
 re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/SHADOW]"
 strContent=re.Replace(strContent,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")

 re.Pattern="(\[i\])(.*?)(\[\/i\])"
 strContent=re.Replace(strContent,"<i>$2</i>")
 re.Pattern="(\[u\])(.*?)(\[\/u\])"
 strContent=re.Replace(strContent,"<u>$2</u>")
 re.Pattern="(\[b\])(.*?)(\[\/b\])"
 strContent=re.Replace(strContent,"<b>$2</b>")

 re.Pattern="(\[size=1\])(.*?)(\[\/size\])"
 strContent=re.Replace(strContent,"<font size=1 style=""line-height:"&FontHeight&"pt"">$2</font>")
 re.Pattern="(\[size=2\])(.*?)(\[\/size\])"
 strContent=re.Replace(strContent,"<font size=2 style=""line-height:"&FontHeight&"pt"">$2</font>")
 re.Pattern="(\[size=3\])(.*?)(\[\/size\])"
 strContent=re.Replace(strContent,"<font size=5 style=""line-height:"&FontHeight&"pt"">$2</font>")
 re.Pattern="(\[size=4\])(.*?)(\[\/size\])"
 strContent=re.Replace(strContent,"<font size=6 style=""line-height:"&FontHeight&"pt"">$2</font>")
 
 re.Pattern="\[size=([+|-]?[0-7])\](.*?)(\[\/size\])"
 strContent=re.Replace(strContent,"<font size=$1 style=""line-height:"&FontHeight&"pt"">$2</font>")

 re.Pattern="(\[center\])(.*?)(\[\/center\])"
 strContent=re.Replace(strContent,"<center>$2</center>")

 re.Pattern="(\[table=(#*[a-z0-9]*),(#*[a-z0-9]*),(#*[a-z0-9]*)\])(.*?)(\[\/table\])"
 strContent=re.Replace(strContent,"<table border=0 cellpadding=5 cellspacing=1 bgcolor=$2><tr><td bgcolor=$3><font color=$4>$5</font></td></tr></table>")

'[HTML/] start
 're.Pattern="(\[html\])(.*?)(\[\/html\])"
 'strContent=re.Replace(strContent,"<span><TEXTAREA cols=95 rows=12>$2</TEXTAREA><br><INPUT onclick=runCode() type=button value=运行代码>[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]</span>")
       

'[HTML/] end  
 

 set re=Nothing
 gmt=strContent
end function

</script>

上一页  [1] [2] [3] [4] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18