Al utilizar el editor, encontrará un punto, es decir, el problema de cierre de etiquetas. Este problema es muy grave porque puede dañar el estilo general de la página web que se muestra. Recientemente vi esta función en la biblioteca de funciones de PJ. Siento que la idea es un poco pobre, pero es relativamente perfecta. Es solo una cuestión de orden al cerrar la etiqueta, jaja.
Modifica el contenido de cada elemento del array arrTags para lograr la función de cerrar cualquier etiqueta.
Aquí, he agregado algunos comentarios para facilitar que todos estudien juntos.
Copie el código de código de la siguiente manera:
Función cerrarUBB(strContent)
'************************************
'Cerrar UBB automáticamente
'************************************
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Set re = New RegExp 'Declarar el objeto re
re.IgnoreCase = True 'Establece si los caracteres distinguen entre mayúsculas y minúsculas
re.Global = True 'Establecer disponibilidad global
arrTags = Array(code, quote, list, color, align, font, size, b, i, u, html) 'Crea una matriz y almacena etiquetas relacionadas que deben verificarse para su cierre
For i = 0 To UBound(arrTags) 'Bucle para detectar cada elemento en la matriz
OpenPos = 0 'Inicializa el número de etiquetas de inicio de la etiqueta actual
ClosePos = 0 'Inicializa el número de etiquetas finales de la etiqueta actual
re.Pattern = /[ + arrTags(i) + (=[^/[/]]+|)/] 'Empiece a juzgar el número de etiquetas de inicio y fin respectivamente
Establecer strMatchs = re.Execute(strContent)
Para cada partido en strMatchs
OpenPos = OpenPos + 1
Próximo
re.Patrón = /[/ + arrTags(i) + /]
Establecer strMatchs = re.Execute(strContent)
Para cada partido en strMatchs
PosCerrar = PosCerrar + 1
Próximo
Para j = 1 A OpenPos - ClosePos 'Cuando el número de etiquetas de inicio y fin es inconsistente, cierre la etiqueta actual
strContenido = strContenido + [/ + arrTags(i) + ]
Próximo
Próximo
closeUBB = strContenido
Establecer re=Nada
Función final
Las notas sobre closehtml son las mismas que las anteriores
Copie el código de código de la siguiente manera:
Función closehtml(strContent)
'************************************
'Cerrar automáticamente html
'************************************
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Establecer re = Nueva expresión regular
re.IgnoreCase = Verdadero
re.Global = Verdadero
arrTags = Array(p, DIV, span, table, ul, font, b, u, i, h1, h2, h3, h4, h5, h6)
Para i = 0 a UBound(arrTags)
PosApertura = 0
PosCerrar = 0
re.Patrón = /< + arrTags(i) + ( [^/</>]+|)/>
Establecer strMatchs = re.Execute(strContent)
Para cada partido en strMatchs
OpenPos = OpenPos + 1
Próximo
re.Pattern = /</ + arrTags(i) + />
Establecer strMatchs = re.Execute(strContent)
Para cada partido en strMatchs
PosCerrar = PosCerrar + 1
Próximo
Para j = 1 A OpenPos - ClosePos
strContenido = strContenido + </ + arrTags(i) + >
Próximo
Próximo
closehtml = strContenido
Establecer re=Nada
Función final