复制代码代码如下所示：
功能closehtml（strcontent）
昏暗的arrtags，我openpos，closepos，Re，strmatchs，J，匹配
集重=新的正则表达式
re.ignorecase =真
重复全局=真的
arrtags =阵列（P
我= 0，UBound（arrtags）
openpos = 0
closepos = 0


再次，模式= } + | >）
集strmatchs =重新执行（strcontent）。
每一场比赛中strmatchs
openpos = openpos + 1
下一个
模式
集strmatchs =重新执行（strcontent）。
每一场比赛中strmatchs
closepos = closepos + 1
下一个
J = 1 - closepos openpos
strcontent = strcontent +
下一个
下一个
closehtml = strcontent
端功能