asp自动补全html标签自动闭合(正则表达式)

245 阅读 0 评论 162 点赞

我是靠谱客的博主复杂外套，最近开发中收集的这篇文章主要介绍asp自动补全html标签自动闭合(正则表达式)，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

复制代码代码如下:

 
Function closeHTML(strContent) 
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match 
Set re = New RegExp 
re.IgnoreCase = True 
re.Global = True 
arrTags = Array("p", "div", "span", "table", "ul", "font", "b", "u", "i", "h1", "h2", "h3", "h4", "h5", "h6") 
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 
closeHTML = strContent 
End Function 