功能closeubb（strcontent）
*************************************
自动关闭UBB
*************************************
昏暗的arrtags，我openpos，closepos，Re，strmatchs，J，匹配
集重=新的肯定是对象的表达式
re.ignorecase =真设置是否区分字符的情况
重新设置全局可用性
arrtags =阵列（代码
我= 0，UBound（arrtags）环路检测数组中的每个元素
openpos = 0的初始化当前标签的开始标记数
closepos = 0的初始化当前标签的结束标签的数量
再次，模式= {+ arrtags（我）+（= { ^ } { } + |） }分别。常规裁判号的开始和结束
集strmatchs =重新执行（strcontent）。
每一场比赛中strmatchs
openposopenpos = openpos + 1
下一个
再次，模式= { / + arrtags + }（我）
集strmatchs =重新执行（strcontent）。
每一场比赛中strmatchs
closeposclosepos = closepos + 1
下一个
J = 1 openpos - ClosePos在开始标签和结束标签的数目不一致，关闭当前标签
strcontentstrcontent = strcontent +/+arrtags（i）}
下一个
下一个
closeubb = strcontent
设置否
端功能

程序代码
功能closehtml（strcontent）
*************************************
自动关闭HTML
*************************************
昏暗的arrtags，我openpos，closepos，Re，strmatchs，J，匹配
集重=新的正则表达式
re.ignorecase =真
重复全局=真的
arrtags =阵列（P
我= 0，UBound（arrtags）
openpos = 0
closepos = 0
再次，模式= } + | >）
集strmatchs =重新执行（strcontent）。
每一场比赛中strmatchs
openposopenpos = openpos + 1
下一个
模式
集strmatchs =重新执行（strcontent）。
每一场比赛中strmatchs
closeposclosepos = closepos + 1
下一个
J = 1 - closepos openpos
strcontentstrcontent = strcontent +
下一个
下一个
closehtml = strcontent
设置否
端功能
以下是PJBlog的函数代码，但没有注释和研究建议参照上面的笔记
复制代码代码如下所示：
*************************************
自动关闭UBB
*************************************

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

再次，模式= {+ arrtags（我）+（= { ^ } { } + |） }
集strmatchs =重新执行（strcontent）。
每一场比赛中strmatchs
openpos = openpos + 1
下一个
再次，模式= { / + arrtags + }（我）
集strmatchs =重新执行（strcontent）。
每一场比赛中strmatchs
closepos = closepos + 1
下一个
J = 1 - closepos openpos
strcontent = strcontent +/+arrtags（i）}
下一个
下一个
closeubb = strcontent
端功能

*************************************
自动关闭HTML
*************************************

功能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
端功能