DotNet: conversione di codice html in testo

Piccolo e utile frammento di codice che, utilizzando le amate/odiate espressioni regolari, ripulisce dai tag html il testo passato.

Imports System.Text
Imports System.Text.RegularExpressions

Function Html2Text(ByVal html AsString) AsString

Dim repattern AsString=“\<[^\>]*\>“
Dim rexp AsNew Regex(repattern, RegexOptions.IgnoreCase)

    html = rexp.Replace(html, String.Empty)

Return html

End Function