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

最新推荐文章于 2023-09-25 16:37:41 发布

weixin_33979203

最新推荐文章于 2023-09-25 16:37:41 发布

阅读量81

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/uuxanet/p/3298831.html

本文介绍了使用VBScript实现的FunctioncloseHTML函数，用于检查并闭合HTML文档中的未闭合标签，确保网页代码的完整性和正确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

转载于:https://www.cnblogs.com/uuxanet/p/3298831.html