mysql ubb html_自动闭合HTML/ubb标签函数

心已赠人 2023-01-11 13:23 51阅读 0赞

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="\\\]+|)\\>"

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

发表评论取消回复

表情：

评论列表（有 0 条评论，51人围观）

还没有评论，来说两句吧...

相关阅读

相关没有闭合（结束）标签XML文件的解析

先上XML文件： <?xml version="1.0" encoding="UTF-8" standalone="no"?> <RESULT_INFO>

傷城~/ 2024年02月18日 17:54/ 0 赞/ 51 阅读

相关 mysql ubb html_自动闭合HTML/ubb标签函数

FunctioncloseUBB(strContent) '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '自动闭合UBB '\\\\\\\

心已赠人/ 2023年01月11日 13:23/ 0 赞/ 52 阅读

相关 HTML基础-标签分类(闭合标签，空标签，块级元素，行内元素，行级块元素，可替换元素)

文章目录一、闭合标签和空标签二、位置特性（块级元素，行内元素，行级块元素）块级元素（block）行级元素(in

Dear 丶/ 2022年11月14日 10:17/ 0 赞/ 229 阅读

相关 php标签好处,php不写闭合标签的好处

最早这个概念是从Drupal中接触到的，一开始有点不习惯——为什么不写闭合标签呢？这感觉很不完美啊，对于有强迫症的人来说很不适应嘛！后来，在工作中碰到了因为标签闭合而引起的问题

电玩女神/ 2022年10月21日 13:53/ 0 赞/ 53 阅读

相关 HTML自闭合(self-closing)标签

<meta>标签:设置页面元信息的 <base>:设置网页所有链接的相对目录(如根目录)的 <br>:换行 <hr>:水平线 <img>:图像 <input

青旅半醒/ 2022年09月27日 06:20/ 0 赞/ 122 阅读

相关 JavaWeb学习之路(20)–HTML之换行br与标签的闭合问题

[点此查看全部文字教程、视频教程、源代码][Link 1] 本文目录 1. 前言 2. 换行标签br 3. 标签的闭合问题 4. 小结 1.

布满荆棘的人生/ 2022年09月14日 13:24/ 0 赞/ 203 阅读

相关