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

asp之自动闭合UBB标签函数

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

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汉字转拼音，支持自定义特殊词语

相关阅读: CSS语法在DW中无效的解决方法; 绍兴中侨旅游网; ASP.NET 2和IIS 7.0发生不兼容变化; 吉林省文化国际旅行社有限公司; 凹陷文字; 另外的一种可以计算的倒计时效果; 初期入门地接旅行社建站解决方案; uni-app的父与子页面传递参数之属性Props字段类型讲解

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

正在加载评论......

返回顶部发表评论

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

网友评论声明,请自觉遵守互联网相关政策法规。

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

更多信息>>栏目类别选择: 百度小程序开发; 微信小程序开发; 微信公众号开发; 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还有其它的吗

更多>>随机抽取信息: 深山留言板系统V3.6(游戏之穿越火线幽灵归来); 极酷的,漂亮的页面loading等待页面特效; 14个CSS实用技巧精选推荐; css里media属性详解; 利用java控制图片的大小; 一些平时用到HTML的过滤

更多标签热门标签

风格 IE8 默认高度对联标注加减 IP FireFox 代码 css rss 垂直 imprt 黑白营销 rnd 指向 relative function adobe 渐变增大长拖动固定深山v1.0旅行社网站管理系统网页制作框架用户体验 mssql 经典的 sql Javascript实现CSS代码高亮显示1 例子命名 flush 思考标签颜色 CSS滤镜电影 DW Word 斜线改变留言板搜索 overflow 屏幕 filter 框