asp之自动闭合UBB标签函数 -- [ASP]─ 深山工作室提供网络投票系统|微信公众号投票|微信公众号小程序|抖音小程序|百度小程序|微信公众号开发|企业网站建设

asp之自动闭合UBB标签函数

网络 2010/1/21 20:07:19 深山行者字体:大中小浏览 7382

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之自动闭合HTML标签函数

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

相关阅读: 深山行者留言系统V3.1; 调整CSS类型的顺序改变链接翻滚效果; ASP+Access随机读取数据库记录的方法; 连云港红发廊; Appium获取手机分辨率 & 自适应设备下滑刷新; uni-app开发表单input组件的一些规则说明自己预留使用; 巧妙运用CSS样式表立刻改变鼠标的样式; 利用java客户端静态页面玩分页

更多信息>>栏目类别选择: 百度小程序开发; 微信小程序开发; 微信公众号开发; uni-app; asp函数库; ASP; DIV+CSS; HTML; python

更多>>同类信息: ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明; asp显示随机密码; 通过阿里云服务接口获得ip地址详细信息; iis点开后任务栏上有显示，但是窗口看不到的解决办法; RSA加密解密插件; 微软Encoder加密解密函数

更多>>最新添加文章: dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT; Android移动端自动化测试：使用UIAutomatorViewer与Selenium定位元素; 抖音直播音挂载小雪花懂车帝小程序; javascript获取浏览器指纹可以用来做投票; 火狐Mozilla Firefox出现：无法载入您的Firefox配置文件它可能已经丢失或是无法访问问题解决集合处理办法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路径; python通过代码修改pip下载源让下载库飞起; python里面requests.post返回的res.text还有其它的吗

更多>>随机抽取信息: asp利用函数生成指定位数的随机数字符串; 山西省青年旅行社; QQ强聊; CSS编写过程中常见的10个错误; asp加载xml 用于验证目标网站是否更新; 耒阳华天国际旅行社

更多标签热门标签

em 定制 tag 调节 windows 程序爱墙 asp.net 展示建立日期限制 table 留言板 javascript 斜线硬件 flash 透明快捷表达式绝对管用的iis安装包下载展开滑动 cpu 眼睛 ResponseXML Google 邮箱下拉框执行手 imprt 经典 mop 获得 adobe jpg blog 技巧经典的 option 考试屏幕移动菜单自动隐藏刷新滑过层控制时钟