以下是我自己写的一个ubb的类。但是有点小问题。
主要问题就是无法将回车认出来,从数据库中读出的文本,都没有换行。请指点阿!
下面是我的ubb类的代码——
Public Class ubbconvers
'////convers start/////
Public Function htmltoText(ByVal chr As String)
If chr Is Nothing Then
Return ""
Else
chr = chr.Replace("'", "''")
Return (chr)
End If
End Function
Public Function Texttohtml(ByVal chr As String)
If chr Is Nothing Then
Return ""
Else
chr = chr.Replace(" ", " ")
chr = chr.Replace("<", "<")
chr = chr.Replace(">", ">")
chr = chr.Replace("\n", "<br>")
chr = chr.Replace("\t", " ")
chr = Regex.Replace(chr, "\[dir=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/dir]", "<object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2><param name=src value=$3><embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed></object>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[url=(?<x>[^\]]*)\](?<y>[^\]]*)\[/url\]", "<a href=$1 target=_blank>$2</a>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[qt=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/qt]", "<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[mp=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/mp]", "<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 ><param name=ShowStatusBar value=-1><param name=Filename value=$3><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3 width=$1 height=$2></embed></object>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[rm=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/rm]", "<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[url\](?<x>[^\]]*)\[/url\]", "<a href=$1 target=_blank>$1</a>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\]*)\](?<y>[^\]]*)\[/email\]", "<a href=$1>$2</a>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[email\](?<x>[^\]]*)\[/email\]", "<a href=$1>$1</a>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[flash](?<x>[^\]]*)\[/flash]", "<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400><PARAM NAME=movie VALUE=""$1""><PARAM NAME=quality VALUE=high><embed src=""$1"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=500 height=400>$1</embed></OBJECT>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[img](?<x>[^\]]*)\[/img]", "<a href=""$1"" target=""_blank""><IMG SRC=""$1"" border=0></a>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[color=(?<x>[^\]]*)\](?<y>[^\]]*)\[/color\]", "<font color=$1>$2</font>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[face=(?<x>[^\]]*)\](?<y>[^\]]*)\[/face\]", "<font face=$1>$2</font>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[size=1\](?<x>[^\]]*)\[/size\]", "<font size=1>$1</font>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[size=2\](?<x>[^\]]*)\[/size\]", "<font size=2>$1</font>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[size=3\](?<x>[^\]]*)\[/size\]", "<font size=3>$1</font>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[size=4\](?<x>[^\]]*)\[/size\]", "<font size=4>$1</font>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[align=(?<x>[^\]]*)\](?<y>[^\]]*)\[/align\]", "<align=$1>$2</align>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[fly](?<x>[^\]]*)\[/fly]", "<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[move](?<x>[^\]]*)\[/move]", "<marquee scrollamount=3>$1</marquee>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[glow=(?<x>[^\]]*),(?<y>[^\]]*),(?<z>[^\]]*)\](?<w>[^\]]*)\[/glow\]", "<table width=$1 style='filter:glow(color=$2, strength=$3)'>$4</table>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[shadow=(?<x>[^\]]*),(?<y>[^\]]*),(?<z>[^\]]*)\](?<w>[^\]]*)\[/shadow\]", "<table width=$1 style='filter:shadow(color=$2, strength=$3)'>$4</table>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[b\](?<x>[^\]]*)\[/b\]", "<b>$1</b>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[i\](?<x>[^\]]*)\[/i\]", "<i>$1</i>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[u\](?<x>[^\]]*)\[/u\]", "<u>$1</u>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[list\](?<x>[^\]]*)\[/list\]", "<ul>$1</ul>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[list=1\](?<x>[^\]]*)\[/list\]", "<ol type=1>$1</ol id=1>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[list=a\](?<x>[^\]]*)\[/list\]", "<ol type=a>$1</ol id=a>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[\*\](?<x>[^\]]*)\[/\*\]", "<li>$1</li>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\
引用 (?<x>.*)\ ", "以下内容为引用:<table border='0' width='90%' style='TABLE-LAYOUT: fixed' cellpadding='10' cellspacing='1' bgcolor='#000000'><tr><td bgcolor='#FFFFFF'>$1</td></tr></table>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[gif](?<x>[^\]]*)\[/gif]", "<IMG SRC='images/icon/Gif.gif' border=0>此主题相关图片如下:<br><a href=""$1"" target=""_blank""><IMG SRC=""$1"" border=0></a><br>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[jpg](?<x>[^\]]*)\[/jpg]", "<IMG SRC='images/icon/Jpg.gif' border=0>此主题相关图片如下:<br><a href=""$1"" target=""_blank""><IMG SRC=""$1"" border=0></a><br>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[zip](?<x>[^\]]*)\[/zip]", "<a href=""$1"" target=""_blank""><IMG SRC='images/icon/Zip.gif' border=0>请点击此处下载</a><br>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[rar](?<x>[^\]]*)\[/rar]", "<a href=""$1"" target=""_blank""><IMG SRC='images/icon/Rar.gif' border=0>请点击此处下载</a><br>", RegexOptions.IgnoreCase)
chr = Regex.Replace(chr, "\[br\]", "<br>", RegexOptions.IgnoreCase)
Return (chr)
End If
End Function
'////convers end////
End Class