主动闭合HTML/ubb标签函数_365体育备用网址官网资讯

主动闭合HTML/ubb标签函数

文章来源:365jz.com     点击数:92    更新时间: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

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

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


公布评论 (92人察看0条评论)
请自觉遵守互联网相关的政策法规,严禁公布色情、暴力、反动的言论。
用户名: 验证码: 点击我更换龙8国际娱乐手机登入
最新评论
------分隔线----------------------------
条评论
Sitemap