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

 

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

= DeleteHtmlTags(s)

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




Translate document: