您现在的位置: 365建站网 > 365学习 > 自动闭合HTML/ubb标签函数

自动闭合HTML/ubb标签函数

文章来源:365jz.com     点击数:155    更新时间:2011-05-18 14:32   参与评论


 学asp的应该知道,自动闭合html/ubb变迁函数有些烦人的,我现在虽然是做电话录音卡销售工作的,虽然那么长时间没看书了,不过我嘛上学时对程序都有些敏感,所以写下这个程序共大家参考一下:

FunctioncloseUBB(strContent)
'*************************************
'自动闭合UBB
'*************************************
DimarrTags,i,OpenPos,ClosePos,re,strMatchs,j,Match
Setre=NewRegExp'申明re对象
re.IgnoreCase=True'设置是否区分字符大小写
re.Global=True'设置全局可用性
arrTags=Array("code","quote","list","color","align","font","size","b","i","u","html")'建立数组,存储相关需要检测是否闭合的标签
Fori=0ToUBound(arrTags)'循环对数组里的每一个元素进行检测
OpenPos=0'初始化当前标签开始标记的个数
ClosePos=0'初始化当前标签结束标记的个数
re.Pattern="\["+arrTags(i)+"(=[^\[\]]+|)\]"'开始分别正则判断开始与结束标记的个数
SetstrMatchs=re.Execute(strContent)
ForEachMatchinstrMatchs
OpenPosOpenPos=OpenPos+1
Next
re.Pattern="\[/"+arrTags(i)+"\]"
SetstrMatchs=re.Execute(strContent)
ForEachMatchinstrMatchs
ClosePosClosePos=ClosePos+1
Next
Forj=1ToOpenPos-ClosePos'当开始与结束标记数量不一致时,闭合当前标签
strContentstrContent=strContent+"[/"+arrTags(i)+"]"
Next
Next
closeUBB=strContent
Setre=Nothing
EndFunction
程序代码程序代码
FunctioncloseHTML(strContent)
'*************************************
'自动闭合HTML
'*************************************
DimarrTags,i,OpenPos,ClosePos,re,strMatchs,j,Match
Setre=NewRegExp
re.IgnoreCase=True
re.Global=True
arrTags=Array("p","div","span","table","ul","font","b","u","i","h1","h2","h3","h4","h5","h6")
Fori=0ToUBound(arrTags)
OpenPos=0
ClosePos=0
re.Pattern="\<"+arrTags(i)+"([^\<\>]+|)\>"
SetstrMatchs=re.Execute(strContent)
ForEachMatchinstrMatchs
OpenPosOpenPos=OpenPos+1
Next
re.Pattern="\</"+arrTags(i)+"\>"
SetstrMatchs=re.Execute(strContent)
ForEachMatchinstrMatchs
ClosePosClosePos=ClosePos+1
Next
Forj=1ToOpenPos-ClosePos
strContentstrContent=strContent+"</"+arrTags(i)+">"
Next
Next
closeHTML=strContent
Setre=Nothing
EndFunction

   其实语言这东西学习就像儿时学习语言一样,要对他充满好奇,这样才不会感觉枯燥无味!
 

如对本文有疑问,请提交到交流论坛,广大热心网友会为你解答!! 点击进入论坛

发表评论 (155人查看0条评论)
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
昵称:
最新评论
------分隔线----------------------------

快速入口

· 365软件
· 建站公司
· 杰创官网
· 建站工具

业务咨询

· 技术支持
· 服务时间:9:00-18:00
365建站网二维码

Powered by 365建站网 RSS地图 HTML地图

copyright © 2013-2022 版权所有 鄂ICP备17013400号-1