最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
html转换成UBB代码
时间:2022-07-02 23:16:23 编辑:袖梨 来源:一聚教程网
html转换成UBB代码
Function Html2Ubb(str)
If Str<>"" And Not IsNull(Str) Then
Dim re,tmpstr
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern = "()":Str = re.Replace(Str,"")
re.Pattern = "()":Str = re.Replace(Str,"")
re.Pattern ="(
re.Pattern ="()":Str = re.Replace(Str,"")
re.Pattern ="(
re.Pattern ="(
re.Pattern ="(
re.Pattern ="( re.Pattern ="(Div>)":Str = re.Replace(Str,"div>")
re.Pattern ="( re.Pattern ="(
re.Pattern ="( re.Pattern ="()":Str = re.Replace(Str,"")
re.Pattern ="( re.Pattern ="()":Str = re.Replace(Str,"")
re.Pattern = "(
re.Pattern ="({)":Str = re.Replace(Str,"{")
re.Pattern ="(})":Str = re.Replace(Str,"}")
re.Pattern ="($)":Str = re.Replace(Str,"$")
're.Pattern = "(
|
)":Str = re.replace(Str,"
")
're.Pattern = "(|)":Str = re.replace(Str,"")
Set Re=Nothing
Html2Ubb = Str
Else
Html2Ubb = ""
End If
End Function
're.Pattern = "(|)":Str = re.replace(Str,"")
Set Re=Nothing
Html2Ubb = Str
Else
Html2Ubb = ""
End If
End Function
相关文章
- FGO国服圣诞2024年90+本&90++本组队思路 12-23
- FGO国服3000天纪念四星自选推荐 12-23
- 鸣潮黎那汐塔声骸大收集网页活动怎么玩 12-23
- 崩坏星穹铁道忘归人遗器怎么选择 12-23
- 《核噩梦/Nuclear 12-23
- 崩坏星穹铁道忘归人怎么配队 12-23
热门栏目
-
php教程
php入门 php安全 php安装 php常用代码 php高级应用 -
asp.net教程
基础入门 .Net开发 C语言 VB.Net语言 WebService -
手机开发
安卓教程 ios7教程 Windows Phone Windows Mobile 手机常见问题 -
css教程
CSS入门 常用代码 经典案例 样式布局 高级应用 -
网页制作
设计基础 Dreamweaver Frontpage js教程 XNL/XSLT -
办公数码
word excel powerpoint 金山WPS 电脑新手 -
jsp教程
Application与Applet J2EE/EJB/服务器 J2ME开发 Java基础 Java技巧及代码