Ao usar o editor, você encontrará um ponto, ou seja, o problema de fechamento das tags. Esse problema é muito sério porque pode causar danos ao estilo geral da página da web exibida. Recentemente vi essa função na biblioteca de funções do PJ, acho que a ideia é um pouco ruim, mas é relativamente perfeita é só uma questão de ordem na hora de fechar a tag, haha.
Modifique o conteúdo de cada elemento do array arrTags para atingir a função de fechar qualquer tag.
Aqui, adicionei alguns comentários para facilitar que todos estudem juntos.
Copie o código do código da seguinte forma:
Função fecharUBB(strContent)
'************************************
'Fecha automaticamente o UBB
'************************************
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Set re = New RegExp 'Declara o objeto re
re.IgnoreCase = True 'Definir se os caracteres diferenciam maiúsculas de minúsculas
re.Global = True 'Definir disponibilidade global
arrTags = Array(code, quote, list, color, align, font, size, b, i, u, html) 'Cria um array e armazena tags relacionadas que precisam ser verificadas para fechamento
For i = 0 To UBound(arrTags) 'Loop para detectar cada elemento no array
OpenPos = 0 'Inicializa o número de tags iniciais do rótulo atual
ClosePos = 0 'Inicializa o número de tags finais da tag atual
re.Pattern = /[ + arrTags(i) + (=[^/[/]]+|)/] 'Comece a julgar o número de tags de início e fim, respectivamente
Definir strMatchs = re.Execute(strContent)
Para cada partida em strMatchs
OpenPos = OpenPos + 1
Próximo
re.Pattern = /[/ + arrTags(i) + /]
Definir strMatchs = re.Execute(strContent)
Para cada partida em strMatchs
ClosePos = ClosePos + 1
Próximo
For j = 1 To OpenPos - ClosePos 'Quando o número de tags inicial e final for inconsistente, feche a tag atual
strContent = strContent + [/ + arrTags(i) + ]
Próximo
Próximo
fecharUBB = strConteúdo
Definir re=Nada
Função final
As notas sobre closehtml são as mesmas acima
Copie o código do código da seguinte forma:
Função closehtml(strContent)
'************************************
'Fecha HTML automaticamente
'************************************
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Definir re = Novo RegExp
re.IgnoreCase = Verdadeiro
re.Global = Verdadeiro
arrTags = Array(p, DIV, span, tabela, ul, fonte, b, u, i, h1, h2, h3, h4, h5, h6)
Para i = 0 para UBound (arrTags)
OpenPos = 0
FecharPos = 0
re.Pattern = /< + arrTags(i) + ( [^/</>]+|)/>
Definir strMatchs = re.Execute(strContent)
Para cada partida em strMatchs
OpenPos = OpenPos + 1
Próximo
re.Pattern = /</ + arrTags(i) + />
Definir strMatchs = re.Execute(strContent)
Para cada partida em strMatchs
ClosePos = ClosePos + 1
Próximo
Para j = 1 Para OpenPos - ClosePos
strContent = strContent + </ + arrTags(i) + >
Próximo
Próximo
closehtml=strConteúdo
Definir re=Nada
Função final