★→ASP程序学习群:62655404 微信公众号开发

订阅本栏目 RSS您所在的位置：深山工作室 > ASP学习 > 正文

asp之自动闭合UBB标签函数

网络　2010/1/21 20:07:19　深山行者　字体：大中小　浏览 6105　我要评论

当前标签: 标签 asp

asp之自动闭合UBB标签函数

以下为详细代码

Function closeUBB(strContent)
'*************************************
'自动闭合UBB
'*************************************
    Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
    Set re = New RegExp            '申明re对象
    re.IgnoreCase = True        '设置是否区分字符大小写
    re.Global = True            '设置全局可用性
    arrTags = Array("code", "quote", "list", "color", "align", "font", "size", "b", "i", "u", "html")    '建立数组，存储相关需要检测是否闭合的标签
    For i = 0 To UBound(arrTags)    '循环对数组里的每一个元素进行检测
        OpenPos = 0                '初始化当前标签开始标记的个数
        ClosePos = 0            '初始化当前标签结束标记的个数
        re.Pattern = "\[" + arrTags(i) + "(=[^\[\]]+|)\]"    '开始分别正则判断开始与结束标记的个数
        Set strMatchs = re.Execute(strContent)    
        For Each Match in strMatchs
            OpenPos = OpenPos + 1
        Next
        re.Pattern = "\[/" + arrTags(i) + "\]"
        Set strMatchs = re.Execute(strContent)
        For Each Match in strMatchs
            ClosePos = ClosePos + 1
        Next
        For j = 1 To OpenPos - ClosePos    '当开始与结束标记数量不一致时，闭合当前标签
            strContent = strContent + "[/" + arrTags(i) + "]"
        Next
    Next
    closeUBB = strContent
    Set re = Nothing
End Function

前一页：ASP汉字转拼音，支持自定义特殊词语

后一页：asp之自动闭合HTML标签函数

相关阅读: ( 2019/5/6 17:22:07 )网站从http改成https(ssl证书)后设置301跳转将http跳转到https的方法; ( 2019/4/16 14:29:04 )asp导出内容到excel表并自定义命名后下载（非打开）; ( 2019/4/15 22:32:46 )asp中qequest读取优先级顺序（通过优化之后提高速度）; ( 2019/4/15 22:07:57 )asp计算页面执行时间显示到毫秒; ( 2018/6/21 17:35:47 )ASP操作access或sqlserver数据库的函数库; ( 2018/5/29 11:27:36 )asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法; ( 2018/5/19 9:23:42 )asp利用dateadd获得上个月、本月、下个月的第一天和最后一天; ( 2018/5/18 16:58:25 )asp随机显示字符长度与类型（可随机显示数字、小写字母、大写字母，可以做为随机密码使用）

共有0条关于《asp之自动闭合UBB标签函数》的评论: 发表评论

正在加载评论……

返回顶部发表评论

呢称：
表情：
内容：	评论内容：不能超过 1000 字，需审核，请自觉遵守互联网相关政策法规。
验证码：

深山工作室网友评论声明，请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款：
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家、社会、集体和公民的合法权益；
二、不得发布国家法律、法规明令禁止的内容；互相尊重，对自己在本站的言论和行为负责；
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择: rss学习; 个人空间; 网站设计; 网站公告; 下载; photoshop学习; ASP学习; DIV+CSS学习; SEO搜索引擎忧化; java学习; HTML学习; 网站信息; 网站类信息

更多>>同类信息: ASP利用fso读取文件夹里所有文件的名字; asp实现获得当前文章的上一篇信息与下一篇信息功能及代码; asp导出内容到excel表并自定义命名后下载（非打开）; '禁止站外提交页面和数据; asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字; asp中qequest读取优先级顺序（通过优化之后提高速度）; asp计算页面执行时间显示到毫秒; 批量删除access字段里面fld.Properties.Delete

更多>>最新添加文章: 网站从http改成https(ssl证书)后设置301跳转将http跳转到https的方法; ASP利用fso读取文件夹里所有文件的名字; jquery动态生成的html代码中无法使用jquery事件的解决方法; asp实现获得当前文章的上一篇信息与下一篇信息功能及代码; asp导出内容到excel表并自定义命名后下载（非打开）; '禁止站外提交页面和数据; asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字; asp中qequest读取优先级顺序（通过优化之后提高速度）

更多>>随机抽取信息: 背景调色板：状态栏还能显示颜色值; 兼容ie6+和火狐的禁止右键; 深山文章管理系统 v1.0 bulid 090418; 网站完成各个浏览器兼容测试; asp页面ip防火墙限制(判断ip内网还是外网)功能; 网站页面重新构写,正在验证其它浏览器; 启动旅行社管理系统3.0的开发服务; 服务项目

关于深山 | 业务范围 | 联系我们 | 网站地图

免责声明：本站所有资料信息，有部分为本人原创，部分为从网络收集而来，仅供网友查看阅读所用，所有信息版权归信息所有人或所有公司所有
如果信息内容侵犯到您的版权或权益请与我们联系，经确认后我们会立即移除相关内容或链接
Copyright © 2007-2019 https://www.qwbm.com 深山工作室 All Rights Reserved
如果您对我们的服务有任何意见或建议，请惠赐E-mail至:565449214@qq.com
服务QQ：565449214 手机：13961347334
ICP备案：苏ICP备15019627号

苏公网安备 32070502010230号

11