Diese Funktion dient dazu, das Schließen allgemeiner HTML- und UBB-Tags zu realisieren, wurde jedoch noch nie verwendet. Es wird empfohlen, auf die Funktion in pjblog zu verweisen. Funktion closeUBB(strContent)
'***********************************
„UBB automatisch schließen.“
'***********************************
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Set re = New RegExp 'Deklarieren Sie das re-Objekt
re.IgnoreCase = True 'Legen Sie fest, ob bei Zeichen zwischen Groß- und Kleinschreibung unterschieden wird
re.Global = True 'Globale Verfügbarkeit festlegen
arrTags = Array(code, quote, list, color, align, font, size, b, i, u, html) 'Erstellen Sie ein Array und speichern Sie zugehörige Tags, die auf Schließung überprüft werden müssen
For i = 0 To UBound(arrTags) 'Schleife, um jedes Element im Array zu erkennen
OpenPos = 0 'Initialisiere die Anzahl der Start-Tags des aktuellen Etiketts
ClosePos = 0 'Initialisieren Sie die Anzahl der End-Tags des aktuellen Tags
re.Pattern = /[ + arrTags(i) + (=[^/[/]]+|)/] 'Beginne mit der Beurteilung der Anzahl der Start- und End-Tags
Setze strMatchs = re.Execute(strContent)
Für jede Übereinstimmung in strMatchs
OpenPosOpenPos = OpenPos + 1
Nächste
re.Pattern = /[/ + arrTags(i) + /]
Setze strMatchs = re.Execute(strContent)
Für jede Übereinstimmung in strMatchs
ClosePosClosePos = ClosePos + 1
Nächste
Für j = 1 To OpenPos - ClosePos 'Wenn die Anzahl der Start- und End-Tags inkonsistent ist, schließen Sie das aktuelle Tag
strContentstrContent = strContent + [/ + arrTags(i) + ]
Nächste
Nächste
closeUBB = strContent
Setze re=Nothing
Funktion beenden
Programmcode
Funktion closeHTML(strContent)
'***********************************
'HTML automatisch schließen
'***********************************
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Setze re = New RegExp
re.IgnoreCase = True
re.Global = True
arrTags = Array(p, div, span, table, ul, Schriftart, b, u, i, h1, h2, h3, h4, h5, h6)
Für i = 0 To UBound(arrTags)
OpenPos = 0
ClosePos = 0
re.Pattern = /< + arrTags(i) + ( [^/</>]+|)/>
Setze strMatchs = re.Execute(strContent)
Für jede Übereinstimmung in strMatchs
OpenPosOpenPos = OpenPos + 1
Nächste
re.Pattern = /</ + arrTags(i) + />
Setze strMatchs = re.Execute(strContent)
Für jede Übereinstimmung in strMatchs
ClosePosClosePos = ClosePos + 1
Nächste
Für j = 1 Zu OpenPos - ClosePos
strContentstrContent = strContent + </ + arrTags(i) + >
Nächste
Nächste
closeHTML = strContent
Setze re=Nothing
Funktion beenden
Das Folgende ist der Funktionscode von pjblog, es gibt jedoch keine Kommentare. Es wird empfohlen, sich für Studien- und Forschungszwecke auf die obigen Kommentare zu beziehen.
Kopieren Sie den Codecode wie folgt:
'***********************************
„UBB automatisch schließen.“
'***********************************
Funktion closeUBB(strContent)
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Setze re = New RegExp
re.IgnoreCase = True
re.Global = True
arrTags = Array(Code, Zitat, Liste, Farbe, Ausrichtung, Schriftart, Größe, b, i, u, html)
Für i = 0 To UBound(arrTags)
OpenPos = 0
ClosePos = 0
re.Pattern = /[ + arrTags(i) + (=[^/[/]]+|)/]
Setze strMatchs = re.Execute(strContent)
Für jede Übereinstimmung in strMatchs
OpenPos = OpenPos + 1
Nächste
re.Pattern = /[/ + arrTags(i) + /]
Setze strMatchs = re.Execute(strContent)
Für jede Übereinstimmung in strMatchs
ClosePos = ClosePos + 1
Nächste
Für j = 1 Zu OpenPos - ClosePos
strContent = strContent + [/ + arrTags(i) + ]
Nächste
Nächste
closeUBB = strContent
Funktion beenden
'***********************************
'HTML automatisch schließen
'***********************************
Funktion closeHTML(strContent)
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Setze re = New RegExp
re.IgnoreCase = True
re.Global = True
arrTags = Array(p, div, span, table, ul, Schriftart, b, u, i, h1, h2, h3, h4, h5, h6)
Für i = 0 To UBound(arrTags)
OpenPos = 0
ClosePos = 0
re.Pattern = /< + arrTags(i) + ( [^/</>]+|)/>
Setze strMatchs = re.Execute(strContent)
Für jede Übereinstimmung in strMatchs
OpenPos = OpenPos + 1
Nächste
re.Pattern = /</ + arrTags(i) + />
Setze strMatchs = re.Execute(strContent)
Für jede Übereinstimmung in strMatchs
ClosePos = ClosePos + 1
Nächste
Für j = 1 Zu OpenPos - ClosePos
strContent = strContent + </ + arrTags(i) + >
Nächste
Nächste
closeHTML = strContent
Funktion beenden