DeleteHtmlTags

Top Previous Next

function DeleteHtmlTags(sPageSource) As String

DeleteHtmlTags löscht alle HTML-Tags aus sPageSource und retourniert den Text der HTML-Seite.

In einem ersten Schritt werden alle HTML-Tags mit Leerzeichen ersetzt, in einem zweiten Schritt werden alle doppelten Leerzeichen durch ein einfaches Leerzeichen ersetzt.

Parameter

•	sPageSource ... String-Ausdruck. Source-Code der Webseite.

Beispiel:

Dim s

s = "This is <b>bold</b> and<br>a new line"

s = DeleteHtmlTags(s)

' returns s = "This is bold and a new line"