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:	Views:  15.448
www.tools4vb.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.