Alle HTML-Tags aus einem String entfernen Diese Funktion entfernt auf Basis von regulären Ausdrücken alle HTML-Tags aus dem übergebenen String.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  16.177
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 6 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgender Funktion lassen sich alle HTML-Tags aus einem String entfernen. Das Entfernen der HTML-Tags erfolgt hierbei über eine regulären Ausdruck. In unserem Fall werden alle Teilstrings, die in <...> stehen entfernt.

Um reguläre Ausdrücke anwenden zu können, müssen Sie dem Projekt einen Verweis auf Microsoft VBScript Regular Expressions 5.x hinzufügen.

' Entfernt alle HTML-Tags aus dem übergebenen String
Public Function RemoveHTML(ByVal Text As String) As String
  Dim oRegExp As RegExp
  Set oRegExp = New RegExp
  With oRegExp
    .IgnoreCase = True
    .Global = True
    .MultiLine = True
    .Pattern = "<.*?>"
 
    RemoveHTML = .Replace(Text, "")
  End With
  Set oRegExp = Nothing
End Function