ubb代码转换为html

车头小子v

车头小子v

2016-02-19 13:51

图老师设计创意栏目是一个分享最好最实用的教程的社区,我们拥有最用心的各种教程,今天就给大家分享ubb代码转换为html的教程,热爱PS的朋友们快点看过来吧!

记得以前贴过一个ubb代码转换为html格式的代码,前几天读ubb的源代码。所以有了这个新的版本。注意,这个版本可能还不能正常使用,详细见注。

这段代码将用户输入的ubb代码转化为html格式,注意,需要Script Engine 5.0的支持(使
用了RegExp对象)

注:pattern中使用()将知道regexp记忆搜索到的值,$1是第一个(),其余类推。但$2的
语法并不被5.0版本的vbscript.dll所支持,我检查了自己机器上的版本(安装过ie 5.5),
发现vbscript.dll的版本为5.50.4629,最后修改日期为12月25日。该版本支持$1之类的语
法,这个简单的改进使regexp的功能逐渐与perl的正则表达式靠近

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)

function UBBCode(strContent)

dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
'url
objRegExp.Pattern="([URL])(http://S+?)([/URL])"
strContent= objRegExp.Replace(strContent,"A HREF=""$2"" TARGET=_blank$2/A")
objRegExp.Pattern="([URL])(S+?)([/URL])"
strContent= objRegExp.Replace(strContent,"A HREF=""http://$2"" TARGET=_blank$2/A")

'email
objRegExp.Pattern="()(S+@S+?)([/EMAIL])"
strContent= objRegExp.Replace(strContent,"A HREF=""mailto:$2""$2/A")

objRegExp.Pattern="([IMG])(S+?)([/IMG])"
strContent=objRegExp.Replace(strContent,"IMG SRC=""$2""")

objRegExp.Pattern="([QUOTE])(.+?)([/QUOTE])"
strContent=objRegExp.Replace(strContent,"BLOCKQUOTEfont size=1
face=""Verdana, Arial""quote:/fontHR$2HR/BLOCKQUOTE")

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)

objRegExp.Pattern="([i])(.+?)([/i])"
strContent=objRegExp.Replace(strContent,"i$2/i")

objRegExp.Pattern="([b])(.+?)([/b])"
strContent=objRegExp.Replace(strContent,"b$2/b")
set objRegExp=Nothing
UBBCode=strContent

end function

原版的转化程序,摘自freeware版本的ubb论坛,可到 http://www.ultimatebb.com/ 下载(Perl CGI方式)

sub UBBCode {

my $ThePost = shift;
$ThePost =~ s/([URL])(http://S+?)([/URL])/ A HREF="$2"
TARGET=_blank$2/A /isg;

$ThePost =~ s/([URL])(S+?)([/URL])/ A HREF="http://$2"
TARGET=_blank$2/A /isg;

$ThePost =~ s/()(S+@S+?)([/EMAIL])/ A
HREF="mailto:$2"$2/A /isg;

if (($UBBImages eq "ON") && ($OverrideImages ne "yes")) {
$ThePost =~ s/([IMG])(S+?)([/IMG])/ IMG SRC="$2" /isg;
}

$ThePost =~ s/([QUOTE])(.+?)([/QUOTE])/ BLOCKQUOTEfont size="1"
face="Verdana, Arial"quote:/fontHR$2HR/BLOCKQUOTE/isg;

$ThePost =~ s/([i])(.+?)([/i])/i$2/i/isg;

$ThePost =~ s/([b])(.+?)([/b])/b$2/b/isg;

return ($ThePost);

}

学习Asp的同志,不要放弃对CGI的学习,特别是一些老外的CGI程序,看后对我们的asp编程会有很大的启发 

展开更多 50%)
分享

猜你喜欢

ubb代码转换为html

Web开发
ubb代码转换为html

Html转换UBB程序

Web开发
Html转换UBB程序

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

简单的Html转换UBB的程序

Web开发
简单的Html转换UBB的程序

将html转成ubb代码的正则

Web开发
将html转成ubb代码的正则

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

DOC转换为HTML后的变化

Web开发
DOC转换为HTML后的变化

转换html代码子程序

ASP
转换html代码子程序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

一个验证用户名的正则表达式

一个验证用户名的正则表达式

全面了解Word2010图表

全面了解Word2010图表
下拉加载更多内容 ↓