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

 

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

= DeleteHtmlTags(s)

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