DeleteHtmlTags

Top Previous Next

function DeleteHtmlTags(sPageSource) As String

DeleteHtmlTags deletes all HTML tags from sPageSource and returns the text of a HTML page.

In a first step, all HTML tags are replaced with blanks, in a second step, all duplicate blanks are replaced with a single blank.

Parameters

•	sPageSource ... String expression. Source code of a web page.

Example:

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"